Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
vadimko28
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 1
1

Исправить недочеты в коде

25.12.2014, 13:59. Просмотров 158. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var   T : Text;
    a, b, h, x: real;
    y1, y2, y3, y1_1, y1_2, y1_3: real; 
function F(x, y1, y2, y3: real; n:byte):real;
begin
    case n of
    1: f:=-(55+y3)*y1+65*y2;
    2: f:=0.0785*(y1-y2);
    3: f:=0.1*y1;
    end;
end;
begin
    assign(T, 'c:\euler.txt'); rewrite(T);
    a:=0; b:=0.1; h:=0.01;
    y1:=1.0; y2:=1.0; y3:=0;
    x:=a;
    while x<=b+h do
    begin
       writeln(T, x:10:5, y1:10:5, y2:10:5, y3:10:5);
       y1_1:=y1+h*f(x, y1, y2, y3, 1);
       y1_2:=y2+h*f(x, y1, y2, y3, 2);
       y1_3:=y3+h*f(x, y1, y2, y3, 3);
       y1:=y1_1; y2:=y1_2; y3:=y1_3;
       x:=x+h;
    end;
    flush(T); close(T);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2014, 13:59
Ответы с готовыми решениями:

Калейдоскоп - исправить недочеты в коде
Всем доброго времени суток, дамы и господа :) Возникла у меня такая вот проблема, вернее у...

Исправить ошибки в коде
m - количество ячеек в строке n - кол-во ячеек в столбце Var q:Array w:array of integer; v,i...

Исправить ошибки в коде
program rita; const N=10; function SeqSearch(mas: DataArray; count:integer; x :...

Исправить ошибку в коде
не понимаю в чем тут ошибка...? program t; var M: array of integer; b,i,j: integer; begin...

Исправить ошибки в коде
Что не так в программе? program zap52218; type dan=record fam:string; ...

1
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,323
25.12.2014, 15:39 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function F(x, y1, y2, y3: real; n:byte):real;
begin
case n of
1: f:=-(55+y3)*y1+65*y2;
2: f:=0.0785*(y1-y2);
3: f:=0.1*y1;
end;
end;
var T : Text;
    a, b, h, x: real;
    y1, y2, y3: real;
begin
assign(T, 'euler.txt');//файл в папке с програмой
rewrite(T);
a:=0;
b:=0.1;
h:=0.01;
y1:=1.0;
y2:=1.0;
y3:=0;
x:=a;
while x<b+h/2 do
 begin
  writeln(T, x:10:5, y1:10:5, y2:10:5, y3:10:5);
  y1:=y1+h*f(x, y1, y2, y3, 1);
  y2:=y2+h*f(x, y1, y2, y3, 2);
  y3:=y3+h*f(x, y1, y2, y3, 3);
  x:=x+h;
 end;
close(T);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2014, 15:39

Исправить ошибки в коде
program zz; var m:integer; s:integer; g:integer; f:integer; p:integer; begin...

Исправить ошибки в коде
Помогите пожалуйста! Программа Pascal ABS выдаёт ошибку в самом конце FORM(A1,N1,M1,B1,B1)(массив...

Исправить ошибку в коде
program v1; const n=10; var a:array of integer; i:integer; begin for i:=1 to n do read(a);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru