Ćwiartki

var n,i,ile:integer;

x,y:array[1..50]of integer;

p:textfile;

srednia:real;

begin

assignfile(p,'PUNKTY.txt');

reset(p);

n:=0;

while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;

close(p);

srednia:=0;

for i:=1 to n do

srednia:=srednia+sqrt(sqr(x[i])+sqr(y[i]));

srednia:=srednia/n;

ile:=0;

for i:=1 to n do if (x[i]<0) and (y[i]>0) then

ile:=ile+1;

writeln('Srednia odleglosc punktow od (0,0) = ',srednia:4:1);

writeln('ile punktow w II cwiartce = ',ile);

readln;

end.

Zad 4 „koło”

var n,i,ile,r:integer;

x,y:array[1..100] of integer;

p:textfile;

srednia:real;

begin

writeln('podaj wartosc r ');readln(r);

assignfile(p,'PUNKTY.txt');

reset(p);

n:=0;

while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;

close(p);

ile:=0;

for i:=1 to n do if (x[i]*x[i]+(y[i]*y[i]+2*y[i]+1)>r*r) then

ile:=ile+1;

srednia:=0;

for i:=1 to n do srednia:=srednia+sqrt(sqr(x[i])+sqr(y[i]));

srednia:=srednia/n;

writeln('Srednia odleglosc punktow od (0,0)=',srednia:4:1);

writeln('ile punktow na zew. okregu=',ile);

readln;

z3; odległość od pkt A

var

n,i,ile,xa,ya:integer;

x,y:array[1..100] of integer;

p:textfile;

srednia:real;

begin

writeln('podaj wartosc x punktu A '); Readln(xa);

writeln('podaj wartosc y punktu A '); Readln(ya);

assignfile(p,'PUNKTY.txt');

reset(p);

n:=0;

while not eof(p) do begin n:=n+1; readln(p,x[n],y[n]); end;

close(p);

srednia:=0;

for i:=1 to n do

srednia:=srednia+sqrt(sqr(x[i]-xa)+sqr(y[i]-ya));

srednia:=srednia/n;

ile:=0;

for i:=1 to n do if (sqrt(sqr(x[i]-xa)+sqr(y[i]-ya))>srednia) then

ile:=ile+1;

writeln('Srednia odleglosc od A =',srednia:4:1);

writeln('punkty o odleglosci > sredniej= ',ile);

readln;

end.

Zad2 - bramki

var n,i,max:integer;

a,b:array[1..15] of integer;

p:textfile;

suma:real;

begin

assignfile(p,'BRAMKI.txt');

reset(p);

n:=0;

while not eof(p) do begin n:=n+1; readln(p,a[n],b[n]); end;

close(p);

suma:=0;

for i:=1 to n do

suma:=a[i]+b[i];

max:=0;

for i:=1 to n do if (b[i]>max)then

max:=b[i];

writeln('Suma wszystkich goli=',suma:4:1);

writeln('najwieksza liczba goli strzelonych przez gosci=',max);

readln;

end.

Zad 1 –bramki

var n,i,max:integer;

a,b:array[1..50] of integer;

p:textfile;

srednia:real;

begin

assignfile(p,'BRAMKI.txt');

reset(p);

n:=0;

while not eof(p) do begin n:=n+1; readln(p,a[n],b[n]); end;

close(p);

srednia:=0;

for i:=1 to n do

srednia:=srednia+a[i];

srednia:=srednia/n;

max:=0;

for i:=1 to n do if (a[i]+b[i]>max)then

max:=a[i]+b[i];

writeln('Srednia liczba bramek zdobytych przez gospodarzy=',srednia:4:1);

writeln('najwieksza liczba goli strzelonych w 1 spotkaniu=',max);

readln;

end.