Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2013, 22:38   #1
kseniyaa
Новичок
Джуниор
 
Регистрация: 24.12.2013
Сообщений: 1
По умолчанию Помогите построить график к готовой программе в ABC паскале

Помогите построить график к готовой программе в ABC паскале чтоб была зависимость x от i
Код:
program rungekut;
var x,t,a,b,h,k1,k2,k3,k4:real;
i:integer;
 function f(t,x:real):real;
 begin f:= 0.6258*x;
 end;
 begin
 writeln('vvedite x, a, b, h');

 readln(x,a,b,h);
  Writeln('--------------------');
Writeln('| i |   t |   x *10^6 |');
Writeln('--------------------');

  t:=a;   i:=1825;
 repeat

      k1:=h*f(t,x);
      k2:=h*f(t+h/2,x+k1/2);
      k3:=h*f(t+h/2,x+k2/2);
      k4:=h*f(t+h,x+k3);
      x:=x+((k1+2*k2+2*k3+k4)/6);
      Writeln('|', i:2, ' |', t:5:2, ' |', x:10:20, ' |');
      t:=t+h;
             i:=i+25;
   until t>b;
   Writeln('--------------------');
 Readln;

 end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 24.12.2013 в 22:54.
kseniyaa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC-построить график уравнения и найти корень (метод касательных) Darik102rus Помощь студентам 3 26.04.2013 17:46
График в паскале ABC Amerikano Помощь студентам 0 08.10.2012 08:25
Построить график в Паскале. LEX.darnica Помощь студентам 3 28.11.2007 18:11