Hogyan javítsam át ezt a delphi progamot, hogy működjön?
Figyelt kérdés
function szavak (x,y:string): byte;
var i: byte;
begin
nev:='words.txt';
assign(f,nev);
n:=0;
read(f,x,y);
for i:=1 to 5 do
if upcase(x[i])=upcase(y[i]) then n:=n+1;
szavak:=n;
close(f);
end;
begin
writeln('A kozos betuk szama:',szavak(read()));
readln;
end.
2009. nov. 27. 12:23
2/2 anonim válasza:
Itt, mivel karaktereket vet össze bizony UpCase.
Egyébként helyből hiányzik a fejléc:
"program lb@szott_prg;"
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!