Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Помощь в написание программного кода на Pascale
Закрытая тема
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию Помощь в написание программного кода на Pascale - 17.11.2002, 00:45

Помогите написать прогу на Pascale :
Дано начальное значение аргумента А, верхний придел функцыи YM, начальное значение шага Н и коэфициент шага С Значение функцыи вычисляется в точках А,А+Н,А+Н+С*Н,А+Н+С*Н+С2*Н, ,,, /т,к шаг берется каждыи раз умноженныи на с / пока значение функцыи не привышает YM, но не больше чем в 15 ой точке. Незнаю как её правильно записать,но функция такая:
у=(корень квадратный из (х*х*х+4*х*х))/(4-х*х) надеюсь разберётесь. Умоляю помогите,очень нада.Заранее всем огромное спосибо. aleksandrov@hot.ee
  (#2 (permalink)) Старый
AssAsin AssAsin вне форума
Member
 
Сообщений: 383
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 02.11.2002
По умолчанию 17.11.2002, 13:26

Вроде бы, так:

Код:
program shit;

var
  a, ym, h, c: double;

function func_y(x: double): double;
var
  xx: double;
begin
  xx := x*x;
  Result := sqrt(xx*x + 4.0*xx) / (4.0 - xx);
end;

procedure do_it(a, ym, h, c: double);
var
  i: integer;
  x, y, dc, dx: double;
begin
  x := a;
  dc := 1;  // = 1, c, cc, ccc, ...
  dx := h;  // = h, h+ch, h+ch+cch, ...
  for i := 1 to 15 do begin
    y := func_y(x);
    if y > ym then
      break;
    writeln('y(', x, ')=', y);
    x := x + dx;
    dc := dc * c;
    dx := dx + (h * dc);
  end;
end;

begin
  write('input a, ym, h, c: ');
  readln(a, ym, h, c);
  do_it(a, ym, h, c);
end;
P.S. Запрашиваемые переменные вводить одной строкой, кажись через пробел.
P.P.S. В действии не проверял.
  (#3 (permalink)) Старый
Влад Влад вне форума
Специалист
 
Сообщений: 3,884
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 27.06.2002
Адрес: Санкт-Петербург
По умолчанию 17.11.2002, 18:43

"Папа у Васи силен в математике, учится папа за Васю весь год..."
  (#4 (permalink)) Старый
AssAsin AssAsin вне форума
Member
 
Сообщений: 383
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 02.11.2002
По умолчанию 17.11.2002, 21:48

Да ладно уж... Вроде бы, попросил человек культурно, а у меня все равно в тот момент мозгов ни на что другое не хватило бы.
  (#5 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию 18.11.2002, 02:09

Еше не пробовал запускать,но всёравно огромное спосибо.Я вам очень сильно блогодарен.
Ads.
Ads
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Частичная специализация программного кода caxaromires C++ Builder 4 21.06.2011 07:46
Отправка программного кода из XLS в Access Maxi Visual Basic 1 03.03.2011 19:44
Ошибка при компилировании программного кода tomaticus Вопросы начинающих программистов 2 02.01.2011 13:32
Требуется помощь в реализации программного кода duden Вопросы начинающих программистов 1 03.06.2010 11:58
Требуется помощь в редактировании программного кода stayer47 Delphi 7 26.10.2008 02:15
Написание Javascripta для программного кода yosha Вопросы начинающих программистов 6 02.11.2006 15:35
Написание программного кода в MVC T_Volkova_81 Вопросы начинающих программистов 0 14.09.2006 09:24
Компилирование программного кода dex157 Вопросы начинающих программистов 6 20.08.2006 02:25
UNIX кодировка текста для написание и шифрования программного кода vilru Visual C++ 4 03.01.2005 18:42
Написание программного кода cpp-файла на С++ __HIM__ Вопросы начинающих программистов 3 27.10.2004 23:04
Написание программного кода с AVI Sakura-chan Вопросы начинающих программистов 4 15.07.2004 18:06
Перевод программного кода в VB Anonymous Delphi 0 16.07.2003 22:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов