Results 1 to 3 of 3
Hybrid View
-
20th June 2009 12:43 #1Registered User
Join Date: Jun:2009
Location: Sofia
Posts: 2
10
:
) , : ,, , , ;
) ;
) ;
) ;
) ;
) ;
)
-
20th June 2009 20:11 #2
, , , :
, , , ( ), , .
, , .UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
geniusloci: ) ; ) ; ) ?
nope|r.i.p.
-
21st June 2009 13:12 #3Registered User
Join Date: Jun:2009
Location: Sofia
Posts: 2
:
Program Zad_1;
type
Machove=record
Ime:string;
Nac:string;
Tiahni_golove:integer;
Natiah_golove:integer;
Ravni_machove:integer;
end;
t=file of Machove;
var
f:t;
m:Machove;
rec:Machove;
Procedure Create(var m:Machove);
begin
with m do
begin
write('Ime=');readln(ime);
write('Nac=');readln(Nac);
write('Tiahni_golove=');readln(Tiahni_go love);
write('Natiah_golove=');readln(Natiah_go love);
write('Ravni_machove=');readln(Ravni_mac hove);
end;
end;
Procedure CreaterFile(var f:t);
var
rec:Machove;
begin
rewrite(f);
eCreateRec(rec);
while not eof do
begin
readln;
write(f:rec);
CreateRec(rec);
end;
close(f);
end;
Procedure Spravka_1;
begin
reset(f);
while not eof do
begin
read(f:rec);
if (rec Tiahni_golove=max) then
readln(rec,Ime);
end;
close(f);
end;
Procedure Spravka_2
begin
reset(f);
while not eof do
begin
read(f:rec);
if (rec Tiahni_golove=min then
readln(rec,Ime);
end;
close(f);
end;
assround (f,Machove;txt);
repeat
writeln (Izberete rejim);
writeln (1
obaviane na nov otbor);
writeln(2:Spravka na otbora s nai mnogo vkarani golove);
writeln(3:Spravka na otbora s nai malko vkarani golove);
writeln(4:Exit);
readln(ch);
case ch of
'1':CreateFile
'2':Spravka_1
'3':Spravka_2
'4':Exit;
else
write ('Nov izbor');
end;
until false
readln;
end;




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in