Kód: Vybrať všetko
var
vyska:array[1..9]of real=(1.98,1.86,1.95,1.80,1.88,1.79,1.92,1.83,1.84);
priemer:real;
i,sucet,max,min:integer;
begin
Image1.Canvas.FillRect(Image1.ClientRect);
priemer:=0;
sucet:=0;
max:=vyska[i];
min:=vyska[i];
for i:=1 to 9 do begin
sucet:=sucet+vyska[i];
priemer:=sucet/7;
Image1.Canvas.TextOut( 10,30,'Priemerná vyska ziakov:'+ FloatToStr(priemer));
end;
for i:=1 to 9 do begin
if vyska[i]<=max then max:=vyska[i] else
if vyska[i]>=min then min:=vyska[i];
Image1.Canvas.TextOut(10,70,'najvyssi je'+IntToSTr(i)+ '.ziak s vyskou'+FloatToStr(max));
end;
end;Kód: Vybrať všetko
var
znecistenie:array [1..11] of integer=(40,45,50,55,51,53,60,55,48,70,46 );
x,i,y:integer;
begin
Image1.Canvas.FillRect(Image1.ClientRect);
x:=20;
y:=100;
image1.canvas.textout(10,50,'Namerane udaje');
for i:=1 to 11 do begin
image1.canvas.textout(39*i,80,inttostr(znecistenie[i]));
image1.canvas.textout(20,60,'Zvyšena hodnota dusičnanov');
for i:=1 to 11 do begin
if znecistenie[i]>50 then
image1.canvas.TextOut(39*i,80,inttostr(znecistenie[i]));
end;
for i:=1 to 11 do
begin
image1.canvas.TextOut(y,x,'zvyšena namerana hodnota'inttostr(i);
y:=y+20;
end;
end;
end;
