Все готовые лабы по паскалю (Текст программы)

Посмотреть архив целиком

  • Текст программы:


    type mas=array[1..10] of real;

    var

    s,t,a,b:real;z,c:real;n,m,l:mas;

    i:byte;

    function f(x,y:real):real;

    begin

    f:=(sqrt(x*y)/(sqrt(sqr(x)+2*x*y+y)));

    end;

    function p(i:integer):real;

    begin

    if i=1 then p:=sqrt(2)

    else p:=(p(i-1)+2*p(i-1))/(z)

    end;

    function H(i:integer):real;

    begin

    if i=1 then H:=cos(2)

    else H:=(H(i-1)+sqr(H(i-1)))/(z)

    end;

    procedure zad (t:byte; var mt:mas);

    begin

    for i:=1 to t do

    mt[i]:=random(20)

    end;

    procedure vivod (t:byte;mt:mas);

    begin

    for i:=1 to t do

    write (mt[i]:4:0);

    writeln;

    end;

    procedure preob (t:byte;s:real;var mt:mas);

    begin

    for i:=1 to t do

    if mt[i] >0 then mt[i]:=mt[i]/s;

    end;

    begin

    write('s=');

    readln(s);

    write('t=');

    readln(t);

    a:=f(s+sqr(t),t)+f(s,t);

    b:=(f(s+5,t+5)/(t+s))+f(s,t);

    writeln(a,b);

    begin

    write('z=');

    readln(z);

    c:=sqr(p(4))/H(4);

    writeln(c);

    end;

    begin

    randomize;

    writeln('zadat znachenie a,b,c');

    read(a,b,c);

    zad(9,n);

    writeln('isxodnaia posledovatelnost n');

    vivod(9,n);

    preob(9,a,n);

    writeln('preobraz n');

    vivod(9,n);

    zad(10,m);

    writeln('isxodnaia posledovatelnost m');

    vivod(10,m);

    preob(10,b,m);

    writeln('preobraz m');

    vivod(10,m);

    zad(8,l);

    writeln('isxodnaia posledovatelnost l');

    vivod(8,l);

    preob(8,c,l);

    writeln('preobraz l');

    vivod(8,l);

    readln;

    end;

    readln;

    end.


  • Случайные файлы

    Файл
    148405.rtf
    180860.rtf
    71485-1.rtf
    LifeProg.doc
    69894.rtf




    Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
    Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
    Это можно сделать совершенно бесплатно. Читайте подробности тут.