Pascal: mi a hiba?
olyan programot szeretnék írni,ami fájlból olvassa be
az adatokat (jelen esetben szoveg.txt ből)és azokat nagybetűvé alakítja.
Mi a hiba a programomban?
40 perce kínlódok már.. :(
program allomanyok;
uses crt;
var l,f:text;
s:string;
i:integer;
begin
clrscr;
assign(f,'szoveg.txt');
reset(f);
while not eof(f) do begin
textcolor(14);
readln(f,s);
writeln(s);
end;
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
writeln(f,s);
readln;
end.





A "mi a hiba?" kérdésre neked kéne válaszolnod. És az okának kiderítésében tudnánk segíteni.
Tehát leírhatnád, hogy mit ír ki (eredmény, hibaüzenet).
"Fájlban nyitja meg a nagybetűűket (szoveg2.txt)"
Ez pedig mit jelent? "szoveg2.txt" sehol sincs a kódodban!










Miután kicsit jobban átnéztem a kódodat:
Ha az a gond, hogy csak az utolsó sort írja ki nagybetűsítve, akkor:
A "while not eof(f) do begin" ciklusod "end;"-jét lejjebb kéne vinned a "writeln(f,s);" után.
Magyarázat:
- s-be beolvasol sorokat
- a CIKLUS UTÁN s-ben az utolsó sor lesz szerintem
- ekkor s minden karakterét nagybetűsíted
- kiírod a módosított s-t
Tehát a ciklusmagban kéne a következőket csinálni:
- beolvasni egy sort s-be
- nagybetűsíteni s-t
- kiiírni a módosított s-t





Szia.
Mindent leirtak előttem.
Itt biztosan hibát kell hogy kapj a forditótól vagy runtime errot : writeln(f,s);
Mivel az "f" file csak olvasásra van megnyitva, Te pedig irni szeretnél bele.
Tehát nyisd meg a ciklus előtt az "l" file változót irásra, és abba irasd a nagybetűsitett szövegeket.
Sok sikert.
Üdv.
Kapcsolódó 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!