ALANLAR

PROGRAM alan;

Type kat=array[1..30,1..30] of INTEGER;

VAR m : kat;

Xler : array[1..30] of REAL;

Yler : array[1..30] of REAL;

i,j,ls,js,s,p,k:INTEGER;

t,top,t1,t2,t3,t4,t5,t6 :REAL;

girdi,alanlar :text;

BEGIN

ASSIGN (girdi, 'C:\girdiler.txt');

RESET(girdi);

ASSIGN (alanlar, 'C:\alanlar.txt');

REWRITE(alanlar);

READ (girdi, ls, js);

WRITELN(alanlar, 'sonuclar');

WRITELN (alanlar, 'matris sayisi: ',ls,',',js);

FOR i:=1 to ls DO

BEGIN

FOR j:=1 to js DO

BEGIN

READ (girdi,m[i,j]);

WRITE (alanlar, m[i, j]);

END;

WRITELN (alanlar);

END;

FOR s:=1 TO ls DO

BEGIN

READ(girdi, Xler[s])

END ;

READLN(girdi);

FOR k:= 1 TO js DO

BEGIN

READ (girdi, Yler[k]);

END;

FOR s:=1 TO ls DO

BEGIN

FOR i:=1 TO js DO

BEGIN

WRITELN (alanlar, ( Xler[s] * Yler[i]): 4:2);

END;

END;

{

m[1,1] --> 2 --> 3,5 * 2=7

m[1,2] --> 2 --> 3,5* 0,2=0,7

m[1,3] --> 2 --> 3'5*2=7 }

CLOSE (alanlar);

READLN;

END.