Algorytmy zadanie

ďťż

Algorytmy zadanie

Mariusz_Cebula - Pon Mar 01, 2010 5:54 pm
Poprawcie zeby dzialalo:
Kod: Zaznacz wszystkoprogram pliki;
uses crt;
type ulamek=record
l:integer;
m:integer;
end;

dane=file of ulamek;

var plik:dane;
z:ulamek;

procedure zapiszp(var p:dane);
var i:integer;
u:ulamek;
begin
randomize;
for i:=1 to 20 do
begin
u.l:=random(10);
u.m:=random(10)+1;
write(p,u);
end;
end;

procedure wypiszp( var p:dane);
var u:ulamek;
begin
while not(eof(p)) do
begin
read(p,u);
writeln(u.l,'\',u.m,u.l/u.m:10:2);
end;
end;

procedure najw(var p:dane);
var u,m:ulamek;
begin
if not eof(p) then
read(p,m);
while not (eof(p)) do
begin
read(p,u);
if(u.l*m.m)-(u.m*m.l)>0 then
m:=u;
end;
write(p,m);
end;

procedure wieksze2(var p:dane);
var u: ulamek;
begin
while not (eof(p)) do
begin
read(p,u);
if ((u.l/u.m)>2) then;
then
writeln(p,u);
end;
end;

begin
clrscr;
assign(plik,'dane');
{rewrite(plik);
zapiszp(plik);}
reset(plik);
wypiszp(plik);
writeln;
wieksze2(plik);
najw(plik);
close(plik);

repeat until keypressed;
end.

20znakow - Pon Mar 01, 2010 6:20 pm
Kod: Zaznacz wszystkoprogram pliki;
uses crt;
type ulamek=record
l:integer;
m:integer;
end;

dane=file of ulamek;

var plik:dane;
z:ulamek;

procedure zapiszp(var p:dane);
var i:integer;
u:ulamek;
begin
writeln('odpalam zapiszp...');
randomize;
for i:=1 to 5 do
begin
u.l:=random(10);
u.m:=random(10)+1;
write(p,u);
end;
end;

procedure wypiszp( var p:dane);
var u:ulamek;
begin
writeln('odpalam wypiszp...');
while not(eof(p)) do
begin
read(p,u);
writeln(u.l,'\',u.m,u.l/u.m:10:2);
end;
end;

procedure najw(var p:dane);
var u,m:ulamek;
begin
writeln('odpalam najw...');

if not eof(p) then
read(p,m);
while not (eof(p)) do
begin
read(p,u);
if(u.l*m.m)-(u.m*m.l)>0 then
m:=u;
end;
write('najwieksza liczba: ');
writeln(m.l,'/',m.m);
readln;
end;

procedure wieksze2(var p:dane);
var u: ulamek;
begin
writeln('odpalam wieksze2...');
while not (eof(p)) do
begin
read(p,u);
if ((u.l/u.m)>2) then
writeln(u.l,'/',u.m);
end;
end;

begin
clrscr;
assign(plik,'dane');
rewrite(plik);
zapiszp(plik);
close(plik);

reset(plik);
wypiszp(plik);
close(plik);
writeln;
reset(plik);
wieksze2(plik);
close(plik);
reset(plik);
najw(plik);
close(plik);

repeat until keypressed;
end.

Mariusz_Cebula - Pon Mar 01, 2010 8:26 pm
Czyli 98 % bylo dobrze.... Ehh... Thx Maciek

klaudia - Pon Kwi 26, 2010 4:29 pm
jeśli ktoś nie sprawdza naszego maila to macie linka do pliku, mamy chyba zadanie na jutro
http://www.speedyshare.com/files/22135697/lista_jednokierunkowav03.PDF

Darmowy hosting zapewnia PRV.PL