Программы на паскале - Форум Фрэла МАИ
FRELA Вторник, 10.12.2024, 12:22
Главная | 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
 
LenOKДата: Среда, 06.06.2007, 12:19 | Сообщение # 2
Полковник
Группа: Основатели
Сообщений: 174
Награды: 0
Репутация: 11
Статус: Offline
господи,помоги мне сдать седня РГР и чтоб меня эта карга допустила до экзамена
аминь meowth


не обольщайтесь,если вам улыбнулась удача.возможно она просто оскалилась...
 
zakiДата: Четверг, 07.06.2007, 12:00 | Сообщение # 3
Лейтенант
Группа: Основатели
Сообщений: 42
Награды: 0
Репутация: 2
Статус: Offline
да не норм тетька
иногда)
ост. экз. сдать. хы)


оО
 
[BMD]Дата: Пятница, 15.06.2007, 23:51 | Сообщение # 4
Сержант
Группа: Основатели
Сообщений: 32
Награды: 0
Репутация: 0
Статус: Offline
Вот занятный цикл написал
Quote
Repeat
Writeln("Nalivai!!!");
If Vodka - 1*Narod > 0 Then
Vodka := Vodka - 1*Narod
Else
Writeln("A kto idet za Klinskim?");
Until Vodka = 0;



Голодранцi усих краин гоп до кучи!
 
ИМХОДата: Воскресенье, 17.06.2007, 19:41 | Сообщение # 5
Генерал-лейтенант
Группа: Модераторы
Сообщений: 520
Награды: 0
Репутация: 7
Статус: Offline
Quote (|BMD|)
Вот занятный цикл написал

Quote
Repeat
Writeln("Nalivai!!!");
If Vodka - 1*Narod > 0 Then
Vodka := Vodka - 1*Narod
Else
Writeln("A kto idet za Klinskim?");
Until Vodka = 0;


lol


Аццкий катЯра-сатанА !!! B)
 
  • Страница 1 из 1
  • 1
Поиск:

By NIMESIS © 2007-2024