Архив тем Архив тем
Комментарии (25)
ответил xmikex7
Вот преподы дают кривые программы, а потом их нужно перевести на другой язык
И пойми где ошибка не зная паскаля
И пойми где ошибка не зная паскаля
ответил xmikex7
Program Lab_9;
Uses crt;
Var x,y1,y2,h,a,b,k1,k2,k3,k4,k_1,k_2,k_3,k_4:real;
Function F(x,y1,y2,:real;k:integer):real;
Begin
Case k of
1:f:=sin(x)+sin(y1*x);
2:f:=cos(x)+cos(y2*x);
End;
End;
Begin
Clrscr;
Writeln(‘ x y1 y2’);
A:=0;b:=2;h:=0.1;
Y1:=1.0;y2:=2;
X:=a;
While x(=b+h do
Begin
Writeln(‘’,x:3:1,y1:8:4,y2:8:4);
K1:=h*f(x,y1,y2,1);
K_1:=h*f(x,y1,y2,2);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.1);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.2);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.1);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.2);
K4:=h*f(x+h,y1+k3,y2+k_3,1);
K_4:=h*f(x+h,y1+k3,y2+k_3,2);
Y1:=y1+h*f(k1 +2*k2+2*k3+k4)/6;
Y2:=y1+h*f(k_1 +2*k_2+2*k_3+k4)/6;
X:=x+h;
End
Readln;
End.
Сорян что отступов нету
Все с ворда в котором их не было
Uses crt;
Var x,y1,y2,h,a,b,k1,k2,k3,k4,k_1,k_2,k_3,k_4:real;
Function F(x,y1,y2,:real;k:integer):real;
Begin
Case k of
1:f:=sin(x)+sin(y1*x);
2:f:=cos(x)+cos(y2*x);
End;
End;
Begin
Clrscr;
Writeln(‘ x y1 y2’);
A:=0;b:=2;h:=0.1;
Y1:=1.0;y2:=2;
X:=a;
While x(=b+h do
Begin
Writeln(‘’,x:3:1,y1:8:4,y2:8:4);
K1:=h*f(x,y1,y2,1);
K_1:=h*f(x,y1,y2,2);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.1);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.2);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.1);
K2:h*f(x+h/2,y1 +k1/2,y2+k_1/2.2);
K4:=h*f(x+h,y1+k3,y2+k_3,1);
K_4:=h*f(x+h,y1+k3,y2+k_3,2);
Y1:=y1+h*f(k1 +2*k2+2*k3+k4)/6;
Y2:=y1+h*f(k_1 +2*k_2+2*k_3+k4)/6;
X:=x+h;
End
Readln;
End.
Сорян что отступов нету
Все с ворда в котором их не было
Для добавления комментариев необходимо авторизоваться
Аэропорт
В этой игре вам предстоит построить собственный...