Miért ír csak nullákat?!
A feladat az, hogy koronáról kell átváltanom euróra (fájlból fájlba)
a programom egy része a következő:
read(Pzap);
b1:=0; i:=0; j:=1;
for j:=1 to PZap do
begin
while eoln(input) do
begin
i:=i+1;
read(input,b[i]);
b1:=b[i]/30.1260;
end;
writeln('b) ',b[i]:5:2,'Sk = ',b1:4:2,'Euro');
end;
változók: b:array[1..4] of real; b1:real, i,j,PZap:integer
bemeneti fájl adatai:
3 5.50 120 500
Problémám: a kimeneti fájlba a következőt írja:
b) 0.00Sk = 0.00Euro
b) 0.00Sk = 0.00Euro
b) 0.00Sk = 0.00Euro
Mi lehet a gond?
válasza:
válasza:Valami ilyesmivel próbálkozz:
Program atvalt;
var
b : array[1..4] of real;
b1:real;
fbe:text;
i,j:integer;
begin
i:=0;
Assign(fbe,'valuta.txt');
ReSet(fbe);
while not (eoln(fbe)) do
begin
inc(i);
read(fbe,b[i])
end;
Close(fbe);
for j:=1 to i do
begin
b1:=b[j]/30.1260;
writeln('b) ',b[j]:5:2,'Sk = ',b1:4:2,'Euro');
end;
writeln('Itt a vege! Kilepeshez nyomj ENTER-t...');
readln;
end.
Free Pascal alatt próbáltam ki, és ott csak a fájl első sorát olvasta be, de az eredményt hibátlanul jelenítette meg a képernyőn. A fájlba írást, illetve ha többsoros a bemeneti fájlod annak a teljes feldolgozását már neked kell megoldanod.
Remélem azért segít valamit ;)
További kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!