Ćwiczenie 11.doc

Ćwiczenie 11   8.01.09.

Zadanie1

program zadanie1;

uses crt;

var A:array[1..10,1..10] of real;

lk,lw,w,k:integer;

sk,sw,max,wmax,kmax:real;

begin

clrscr;

writeln('podaj wymiary:wiersz,kolumna');

readln(lw,lk);

for w:=1 to lw do

for k:=1 to lk do

begin

write('a[',w:2,',',k:2,']=');

readln(A[w,k]);

end;

for k:=1 to lk do

sw:=sw+a[lw,k];

for w:=1 to lw do

sk:=sk+a[w,lk];

max:=a[1,1];

wmax:=1;

kmax:=1;

for w:=1 to lw do

for k:=1 to lk do

if a[w,k]>max then

begin

max:=a[w,k];

wmax:=w;

kmax:=k;

end;

writeln ('suma elementow w ostatnim wierszu=',sw:0:2);

writeln ('suma elementow w ostatniej kolumnie=',sk:0:2);

write('max elemen=',max:0:2,'lezy w',wmax:2:0,'wierszu');

writeln ('i w ',kmax:2:0,'kolumnie');

readln;

end.

Zadanie2

program zadanie2;

uses crt;

var l:array[1..50] of real;

dane,wynik:text;

plik1,plik2:string[40];

var k,m,n:integer;

var r:real;

begin

clrscr;

writeln ('podaj nazwe pliku z danymi');

readln(plik1);

writeln ('podaj nazwe pliku z wynikami');

readln(plik2);

assign(dane,plik1);

assign(wynik,plik2);

reset(dane);

rewrite(wynik);

writeln ('ilosc liczb');

readln (n);

for k:=1 to n do

begin

readln(dane,l[k]);

end;

for k:=1 to (n-1) do

for m:=k+1 to n do

if l[k]>l[m] then

begin

r:=l[k];

l[k]:=l[m];

l[m]:=r;

end;

writeln ('wykaz posortowanych rosnaco');

for k:=1 to n do

writeln (l[k]:10:4);

readln;

for k:=1 to n do

writeln (wynik,l[k]:0:4);

close(dane);

close(wynik);

end.

end.

Zadanie3

program zadanie3;

uses crt;

var a,b,h:real;

n,k,nr:integer;

dane:text;

nazwa:string[30];

begin

clrscr;

writeln ('nazwa tworzonego pliku');

readln(nazwa);

assign(dane,nazwa);

writeln ('liczba pomiarow');

readln(n);

rewrite(dane);

for k:=1 to n do

begin

writeln ('podaj numer i wymiary a,b,h',k:2,'dzialki');

readln(nr,a,b,h);

writeln (dane,nr:3,a:10:2,b:10:2,h:10:2);

end;

close(dane);

end.

Zadanie4

program zadanie4;

uses crt;

type

wektor1=array[1..50] of integer;

wektor2=array[1..50] of real;

var nrd:wektor1;

a,b,h:wektor2;

n,k,nd: integer;

b1,b2,h1,p:real;

pomiary:text;

nazwa:string[30];

begin

clrscr;

writeln('nazwa pliku z danymi');

readln(nazwa);

assign(pomiary,nazwa);

reset(pomiary);

writeln('liczba dzialek');

readln(n);

for k:=1 to n do

begin

readln(pomiary,nrd[k],a[k],b[k],h[k]);

writeln(nrd[k]:3,a[k]:10:2,b[k]:10:2,h[k]:10:2);

end;

close(pomiary);

writeln('podaj numer dzialki');

readln(nd);

for k:=1 to n do

if nd=nrd[k] then

begin

b1:=a[k];

b2:=b[k];

h1:=h[k];

p:=(((b1+b2)*h1)/2)/10000;

writeln('podaj dzialki o numerze',nd:2,'=',p:10:4,'ha');

readln;

end

end.