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

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

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


    type stroka=array[1..6] of real;

    var

    a,b,c,d,e:array[1..6] of stroka; s,n:real;

    bs:stroka;

    y,imax,imin:integer;

    max,min,smax,jmax:real; i,j,k:integer;


    { matrix A}


    begin

    for i:=1 to 6 do

    for j:=1 to 6 do

    a[i,j]:=sqr(i)+j*(sin(i)/cos(i));


    {write matrix A}


    writeln('matrix A');

    for i:= 1 to 6 do begin

    for j:=1 to 6 do

    write(a[i,j]:6:0);

    writeln;

    readln;

    end;



    {matrix B}


    writeln;

    begin

    max:=a[1,1];

    imax:=1;

    min:=a[1,1];

    imin:=1;

    for i:=1 to 6 do

    for j:=1 to 6 do

    begin

    if a[i,j] > max then

    begin

    max:=a[i,j];

    imax:=i;

    end;

    if a[i,j] < min then

    begin

    min:=a[i,j];

    imin:=i;

    end;

    end;

    bs:=a[imin];

    a[imin]:=a[imax];

    a[imax]:=bs;

    b:=a;


    {write matrix B}


    writeln('matrix B');

    for i:=1 to 6 do begin

    for j:=1 to 6 do

    write(b[i,j]:6:0);

    writeln;

    readln;

    end;

    end;


    { matrix C}

    writeln;

    for i:=1 to 6 do

    for j:=1 to 6 do

    if i>=j then c[i,j]:=0

    else c[i,j]:=1;


    writeln('matrix C');


    for i:= 1 to 6 do begin

    for j:=1 to 6 do

    write (c[i,j]:6:0);

    writeln;

    readln;

    end;


    { matrix D }


    writeln;

    for i:=1 to 6 do

    for j:=1 to 6 do begin

    d[i,j]:=0;

    for k:=1 to 6 do

    d[i,j]:=d[i,j]+b[i,k]*c[k,j];

    end;


    {write matrix D}


    writeln('matrix D');

    for i:=1 to 6 do begin

    for j:=1 to 6 do

    write(d[i,j]:6:0);

    writeln;

    readln;

    end;


    { matrix E }


    writeln;

    e:=d;

    for i:=1 to 2 do

    for j:=3 to 4 do begin

    E[i+2,j-2]:=d[i,j];

    end;

    for i:=3 to 4 do

    for j:=1 to 2 do

    E[i-2,j+2]:=d[i,j];

    writeln('matrix E');

    for i:=1 to 6 do begin

    for j:=1 to 6 do

    write(e[i,j]:6:0);

    writeln;

    readln;

    end;



    { nomer stolbza matrix E }


    smax:=0;

    jmax:=1;

    for i:=1 to 6 do smax:=smax+e[i,1];

    for j:=2 to 6 do begin

    s:=0;

    for i:=1 to 6 do

    s:=s+e[i,j];

    if s>=smax then begin

    smax:=s;

    jmax:=j;

    end;

    end;


    { nomer stolbza matrix E}


    writeln('nomer stolbza matrix e');

    write(j);

    writeln;

    readln;readln;

    end.


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

    Файл
    145275.rtf
    29437-1.rtf
    43724.doc
    70994.rtf
    157502.rtf




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