Программы на паскале - Форум Фрэла МАИ

FRELA

Суббота, 21.12.2024, 16:15

Главная | PDA версия сайта | Регистрация | Вход

Приветствую Вас Гость | RSS

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: ИМХО

Программы на паскале

frela

Дата: Среда, 06.06.2007, 00:01 | Сообщение # 1

Admin

Группа: Администраторы

Сообщений: 6

Награды: 0

Репутация: 0

Статус: Offline

Думаю это будет актуально...

Code

program rgr;
type ms=array[1..10,1..10] of real;
var b, x, a, XH, Da,dx, z, xk: real; y:ms; xa:ms;
N,k,I,M: Integer;
begin
writeln('vvedite b, x, a , XH, Da,dx, xk, m');
read(b, x, a, XH, Da,dx, xk, m);
writeln('b=',b:2,' x=',x:2,' a=',a:2,' XH=',XH:2,' Da=',Da:2,'dx=',dx:2, ' xk=',xk:2, ' m=',m);
writeln('rezyltat programmi P1');
For I:=1 to M do
begin
     writeln (' A=', A:3:2);
     k:=1;
     x:=XH;
           while x <= xk do
                 begin
                 if x > 1 then
                    begin
                    y[i,k]:=sin(a*x)*cos(b*x);

                    xa[i,k]:=x;
                    k:=k+1;
                    end
                 else
                     begin
                     z:=(a*a*x*x*x*x)+(b*b);
                     if z<0 then
                        begin
                        writeln('Error')
                        end
                     else
                          begin
                         y[i,k]:=(x*x*x*sqrt(z));
                         end;

                     xa[i,k]:=x;
                     k:=k+1;
                     end;
                 x:=x+Dx;

                 end;
                 A:=A+Da;
end;
n:=k-1;
for i:=1 to m do begin
for k:=1 to N do begin
writeln('x=', xA[i,k]:5:3, ' y=', y[i,k]:7:5);

end;
writeln;
end;
readln ( x );
end.

Прикрепления: 11336636.doc (32.0 Kb)

Сообщение отредактировал frela - Среда, 06.06.2007, 00:02