Parašė t0mas· 2010 Bal. 28 16:04:02
#19
Na turiu naują klausimėlį iš
paskalio.
Kompiliuojasi
gerai, tik kaip paleidi meta
Blogas skaičiaus formatas.
Tekstinis failas:
Tomas Donskis 1991
Petriukas Bindorkis 1982
Bartas Simpsonas 1975
Programa:
program T98;
type zmones = record
vardas :string [10];
pavarde :string [15];
gimimo, amzius :integer;
end;
mas = array [1..50] of zmones;
var n, i, x, y :integer;
f, g :text;
a :mas;
//--------------------------------- SKAITYMAS ---------------------------------------//
procedure skaityti;
begin
assign(f, 'nariai.txt');
reset(f);
readln(f,n);
n:=0;
while not eof (f) do
begin
n:=n+1;
readln(f, a[i].vardas, a[i].pavarde, a[i].gimimo);
end;
close(f);
end;
//---------------------------- AMZIAUS SKAICIAVIMAS ---------------------------------//
procedure amzskaiciavimas;
begin
for i:=1 to n do
begin
a[i].amzius:=2010-a[i].gimimo;
end;
end;
//-------------------------------- ATRINKIMAS ---------------------------------------//
procedure intervalas;
begin
for i:=1 to n do
begin
if (a[i].gimimo>y) and (a[i].gimimo<y) then writeln(g, a[i].vardas, a[i].pavarde);
end;
end;
//-------------------------------- SPAUSDINIMAS -------------------------------------//
procedure spausdinti;
begin
assign(g, 'rezultatai.txt');
rewrite(g);
writeln(g, '| Vardas | Pavarde | Gimimo | Amzius |');
writeln(g, '____________________________________________________________________');
for i:=1 to n do
writeln(g, a[i].vardas:15, a[i].pavarde:15, a[i].gimimo:15, a[i].amzius:15);
writeln(g, '____________________________________________________________________');
close(g);
end;
//---------------------------------- KREIPINIAI -------------------------------------//
begin
skaityti;
amzskaiciavimas;
Writeln('Iveskite intervalo galus:');
readln(x,y);
intervalas;
spausdinti;
Readln;
end.
Redagavo t0mas· 2010 Bal. 28 21:04:18