Prog.Hu

Két szám közötti négyzetszámok
50

2013-09-08T21:26+02:00
Neovaki
NeovakiProg.Hu
regisztrált tag
2013-09-08T21:26+02:00
Sziasztok,



Ez a program a beírt 2 szám közötti négyzetszámokat kellene, hogy kiírja, de sajnos nem működik és nem tudom, hogy hol lehet a hiba. Segítenétek?

A turbo pascal ebben a sorban: i:= (ettol to eddig); ír hibát: "Error 89: ")" expected.

PROGRAM negyzetszamok;
USES Crt;

Var
   ettol, eddig, i: word;


BEGIN
     ClrScr;

WriteLn ('Melyik szamtol?');
Read (ettol);

WriteLn ('Melyik szamig?');
Read (eddig);

i:= (ettol to eddig);

While ettol<= eddig Do
BEGIN
WriteLn (i:4, sqr(i):6);

i:=i+1;
End;
Readkey;
End.


Nagyon köszönöm előre is.
Mutasd a teljes hozzászólást!
Két szám közötti négyzetszámok
2013-09-08T21:26+02:00
Neovaki
NeovakiProg.Hu
regisztrált tag
2013-09-08T21:26+02:00
2008-09-27T16:51+02:00
2008-09-27T16:51+02:00
A hatos szerepe, hogy megadja hány karakteren jelenjen meg a kiírandó szám.

pl:
writeln(i:6:2);

azt jelenti, hogy 6 karakter hosszú lesz a szám, és ebből 2 a tizedesjegyek lesznek. Tehát a :4 és :6 -nak semmi köze a lényegi megoldáshoz.

Ráadásul a
WriteLn (ettol:4, sqr(ettol):6);

minden számot kiír. nem csak a négyzetszámokat! Ráadásul minden számnak a négyzetét. Nem mondja meg róla, hogy négyzetszám-e.

A helyes megoldást az én hozzászólásomban láthatod.
Mutasd a teljes hozzászólást!