Witam, we wtorek miałem maturę z informatyki i niestety zabrakło mi czasu na dokończenie programu, który mieliśmy zrobić. Postanowiłem napisać ten program jeszcze raz w domu dla własnej satysfakcji lecz nie wiem czy dobrze go napisałem. Dlatego zwracam się do was (bardziej doświadczonych i mądrzejszych ludzi) z prośbą o sprawdzenie tego programu:
uses crt;
var
plik:text;
tab,tab2:array[1..1000,1..2] of integer;
x,y,z,a,b,c:integer;
Begin
clrscr;
assign(plik,'G:\Dokumenty\dane_pp\dane_PP\PARY_LICZB.TXT');
reset(plik);
x:=1;
y:=1;
while not eof(plik) do
Begin
read(plik,tab[x,y]);
y:=y+1;
if (y=3) then
Begin
y:=1;
x:=x+1;
end;
end;
writeln('Zadanie A');
x:=1;
y:=1;
z:=0;
while x<=1000 do
Begin
if (tab[x,y] mod tab[x,y+1] = 0) then z:=z+1;
if (tab[x,y+1] mod tab[x,y] = 0) then z:=z+1;
x:=x+1;
end;
writeln(z);
writeln('Zadanie B');
x:=1;
y:=1;
z:=0;
c:=1;
a:=0;
while x<=1000 do
Begin
while c<=tab[x,y] do
Begin
if (tab[x,y] mod c = 0) and (tab[x,y+1] mod c = 0) then z:=z+1;
c:=c+1;
end;
if (z=1) then a:=a+1;
z:=0;
c:=1;
x:=x+1
end;
writeln(a);
writeln('Zadanie C');
x:=1;
y:=1;
a:=0;
b:=0;
c:=0;
while x<=1000 do
Begin
tab2[x,y]:=tab[x,y];
tab2[x,y+1]:=tab[x,y+1];
repeat
a:=a+tab2[x,y] mod 10;
tab2[x,y]:=tab2[x,y] div 10
until tab2[x,y]=0;
repeat
b:=b+tab2[x,y+1] mod 10;
tab2[x,y+1]:=tab2[x,y+1] div 10
until tab2[x,y+1]=0;
if (a=b) then c:=c+1;
a:=0;
b:=0;
x:=x+1;
end;
writeln(c);
close(plik);
readln();
end.
Tutaj jest arkusz z treścią zadania: http://pobieranie1.dlastudenta.pl/pliki/matura/2014/informatyka/informatyka_pp_2.pdf
Tutaj jest plik z danymi: http://pobieranie1.dlastudenta.pl/pliki/matura/2014/informatyka/dane_pp.rar
Z góry dziękuje za pomoc 