Kezdőoldal » Számítástechnika » Programozás » Hogyan javítsam át ezt a...

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
 1/2 anonim ***** válasza:
Nem upcase, hanem uppercase
2009. nov. 29. 11:15
Hasznos számodra ez a válasz?
 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;"

2009. dec. 28. 15:46
Hasznos számodra ez a válasz?

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!