MathCAD, Microsoft Excel, Pascal в инженерно-экономических расчетах

курсовая работа

1.2.1 Pascal (задача 2)

Выведем на экран элементы массива. Будем использовать вложенные циклы. Первый цикл будет менять значения строк, а второй заключенный в операторные скобки перебирает номера столбцов, в это время оператор write(Z[i,j]:7:3); выводит на экран значение массива Z. Ниже приведен текст программы.

program Zad2;

const

m=4;

n=4;

var Z,A:array[1..m,1..n] of real;

d,t:array[1..m] of real;

i,j,k:integer;

s:real;

begin

writeln(vvedite matricu);

for i:=1 to m do

for j:=1 to n do

read(Z[i,j]);

writeln(matricu);

writeln;

for i:=1 to m do

begin

for j:=1 to n do

write(Z[i,j]:7:3);

writeln;

end;

write;

writeln(1-aja stroka);

i:=1;

for j:=1 to n do

write(Z[i,j]:7:3);

writeln;

writeln;

writeln(4-i stolbec);

j:=4;

for i:=1 to m do

writeln(Z[i,j]:7:3);

writeln;

s:=0;

for j:=1 to n do

s:=s+Z[1,j];

writeln(summa 1-oi stroki,s:7:3);

writeln;

s:=0;

for i:=1 to m do

s:=s+Z[i,4];

writeln(summa 4-go stolbca,s:7:3);

writeln;

writeln(pomenaem 1-i i 3-ii stolbci);

for i:=1 to m do

for j:=1 to n do

A[i,j]:=Z[i,j];

for i:=1 to m do

begin

d[i]:=A[i,1];A[i,1]:=A[i,3];A[i,3]:=d[i];

end;

for i:=1 to m do

begin

for j:=1 to n do

write(A[i,j]:7:3);

writeln;

end;

writeln;

writeln(pomenjaem 1 i 3 stroki);

for j:=1 to n do

begin t[j]:=Z[1,j];Z[1,j]:=Z[3,j];Z[3,j]:=t[j];

end;

for i:=1 to m do

begin

for j:=1 to n do

write(Z[i,j]:7:3);

writeln;

end;

readln;

end.

Рис. 4. Результат работы программы

Делись добром ;)