FRELA

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

frela — Thu, 29 Dec 2016 20:17:53 GMT

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

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.

проги на делфи

tasha — Thu, 29 Dec 2016 20:17:47 GMT

Форум: Информатика
Описание темы: давайте выкладывайте
Автор темы: tasha
Автор последнего сообщения: panovhack
Количество ответов: 7

Методичка

NIMESIS — Fri, 11 Jan 2013 20:33:04 GMT

Методичка по Delphi

Формат: DjVu

качать

Delphi_6.0

ИМХО — Wed, 10 Oct 2007 12:16:53 GMT

Форум: Информатика
Описание темы: СРОЧНО ! ! !
Автор темы: ИМХО
Автор последнего сообщения: order-hacks
Количество ответов: 9

лекции по инфе

tasha — Thu, 06 Sep 2007 18:21:47 GMT

Форум: Информатика
Описание темы: может разберете что там пронина написала
Автор темы: tasha
Автор последнего сообщения: order-hacks
Количество ответов: 2