Программа на Turbo Pascal

15 ноября 2009

Программа на понимание основ языка. Сначала вывод рандомно две матрицы, после чего пользователь указывает по одной строчке из каждой матрицы и скаляр. Программа находит сумму этих двух строк и умножает её на скаляр. 

Program SymmaMatrix;

Uses crt;

VAR A:array[1..4,1..4] of integer;

B:array[1..4,1..4] of integer;

h,z,x,v,y,p,j,s,k,l,i,g,c:integer;

BEGIN

textcolor(green);

clrscr;

randomize;

for i:=1 to 4 do

for j:=1 to 4 do

A[i,j]:=random(50);

randomize;

for p:=1 to 4 do

for g:=1 to 4 do

B[p,g]:=random(30);

for i:=1 to 4 do

begin

for j:=1 to 4 do

write (A[i,j]:5);

writeln;

end;

writeln;

for p:=1 to 4 do

begin

for g:=1 to 4 do

write (B[p,g]:5);

writeln;

end;

writeln;

writeln (‘Введите номер строки из матрица А’);

readln (i);

writeln (‘Введите номер строки из матрицы В’);

readln (p);

writeln (‘Введите скаляр С’);

readln (c);

h:=0;

g:=1;

j:=1;

while j<=4 do

begin

s:=(A[i,j]+B[p,g])*c;

j:=j+1;

g:=g+1;

h:=h+s;

end;

writeln (‘Сумма К-ой строки матрицы A c l-ой строкой матрицы В, умноженной на скаляр  С  =  ‘, h);

readln;

end.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя