| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
AmantuLuMata
Elev
Data inscrierii: 20/Mar/2008
Mesaje: 4
|
 Trimis: 20.03.2008 18:34 Titlul subiectului: Problema 25 |
|
|
type vector=array[1..100]of integer;
var k, n, i: integer;
f, g: text;
v: vector;
begin
assign (f,'date.in');
reset(f);
assign (f,'date.out');
k:=o;
while not eof(f) do begin
read (f,n);
k:=k+1;
v[k]:=n;
end;
for i:=k downto 1 do write (g, v[i], ' ');
end. |
|
| Sus » |
|
 |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 21.03.2008 15:28 Titlul subiectului: |
|
|
Textul problemei:
| Citat: |
Scrieþi un program care citeºte din fiºierul text date.in cel mult 100 de numere reale nenule aflate pe o singurã linie, formate din cel mult patru cifre fiecare, separate prin spaþii ºi scrie aceste numere în fiºierul text date.out , în ordine inversã faþã de cea în care au fost citite, pe o singurã linie, separate prin spaþii.
De exemplu dacã fiºierul date.in are urmãtorul conþinut :
1002 2004 1001 1243 5896
atunci fiºierul date.out va conþine în ordine valorile :
5896 1243 1001 2004 1002. |
Sau asa daca le deschizi si le inchizi corect:
| Cod: |
program prob25;
var k, n, i:integer;
f, g:text;
v:array [1..100] of integer;
begin
assign(f, 'date.in'); reset(f);
assign(g, 'date.out'); rewrite(g);
k:=0;
while not eof(f) do
begin
k:=k+1;
read(f,v[k])
end;
for i := k downto 1 do
write(g, v[i], ' ');
close(f); close(g);
end. |
 |
|
| Sus » |
|
|
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:28 Titlul subiectului: |
|
|
| Cod: |
{scrieti un program care citeste din fisierul text date.in cel mult 100 de numere
naturale nenule aflate pe o singura linie, formate din cel mult 4 cifre fiecare,
separate prin spatii si scrie aceste numere in fisierul text date.out, in ordine
inversa fata de cea in care au fost citite, pe o singura linie, separate prin
spatii}
program ex25;
var f,g: text;
x:array[1..100] of byte;
n,i:integer;
begin
assign(f,'datein.txt'); reset(f);
assign(g,'dateout.txt'); rewrite(g);
n:=0;
while not eoln(f) do begin
n:=n+1;
read(f,x[n]);
end;
for i:=n downto 1 do write(g,x[i],' ');
close(f);
close(g);
end.
|
|
|
| Sus » |
|
|
|
|
