Toplista
- betöltés...
Ha szívesen korrepetálnál, hozd létre magántanár profilodat itt.
Ha diák vagy és korrepetálásra van szükséged, akkor regisztrálj be és írd meg itt, hogy milyen tantárgyban!
Pascal program
ksdjfskjdn
kérdése
377
Írj egy programot amely beolvas egy szöveges állományt és kiírja az abban található összes nullától különböző természetes számot növekvő sorrendben
Jelenleg 1 felhasználó nézi ezt a kérdést.
0
Felsőoktatás / Informatika
Válaszok
1
Hipocentrum
megoldása
var f:text; {szöveges állomány (feltételezzük, hogy minden szám külön sorban van);}
t:array [1..n] of integer;
i,db,j,seged:integer;
begin
assign(f,'helye');
reset(f);
{Megszámolja, hány sora van a fájlnak és beolvassa az adatokat}
db:=0;
while not eof(f) do
begin
inc(db);
readln(f,t[db]);
end;
close(f);
{Beolvasás vége}
{Rendezés}
for i:=2 to n do
begin
for j:=1 to i-1 do
begin
if t[j]>t[j+1] then begin
seged:=t[j];
t[j]:=t[j+1];
t[j+1]:=seged;
end;
end;
end;
for i:=1 to db do
writeln(t[i]);
readln;
end.
t:array [1..n] of integer;
i,db,j,seged:integer;
begin
assign(f,'helye');
reset(f);
{Megszámolja, hány sora van a fájlnak és beolvassa az adatokat}
db:=0;
while not eof(f) do
begin
inc(db);
readln(f,t[db]);
end;
close(f);
{Beolvasás vége}
{Rendezés}
for i:=2 to n do
begin
for j:=1 to i-1 do
begin
if t[j]>t[j+1] then begin
seged:=t[j];
t[j]:=t[j+1];
t[j+1]:=seged;
end;
end;
end;
for i:=1 to db do
writeln(t[i]);
readln;
end.
Módosítva: 7 éve
0
- Még nem érkezett komment!