Sehogy nem bírok rájönni a jó relációra, hogy 1-10 ig kérje be a számokat a program?

Ez úgy ahogy van rossz! rossz a gondolatmeneted! gondold át és írd le az egész programot, majd segítek elemezni. (mármint amire gonoltál: innentől: program neve; idáig: end)

Tehát leírod akkor elemezem nekede lehet rájössz a hibára. ja és én semmiképp nem használnék readkey-t a továbblépéshez.

"writeln('adjon egy szamot 1-10g');"

Nem jó üzenet a felhasználónak, akkor megadom hogy 3.7 és elszáll a program, pedig azt csináltam amit "kért" a program. Vagy figyelmetlenségből beírom hogy 11 és semmi ...

azt "hiszem" hogy lefagyott a program(, nincs hibaüzenet).

Vagy pedig hajlamos vagyok ezt beírni pl.: 5ű (gyakori gépelési hiba) szintén elszáll a program.

"writeln('szeretne kilepni?(i)');"

szeretne kilepni?(i/n) -t lenne illő írni(, e szerint is működni).

Majdnem így:

program tizigtest;

uses crt;

var

i:integer;

c:char;

begin

clrscr;

repeat

repeat

write('Adjon meg egy egesz szamot 1 es 10 kozott: ');

readln(i);

if not((i>=1) and (i<=10)) then

writeln('Tartomanyon kivuli.');

until (i>=1) and (i<=10);

writeln(i,' szam negyzete ',i*i);

writeln;

repeat

write('folytatja? (i/n)');

c:=readkey;

writeln(' ',c);

until UpCase(c) in ['I','N'];

until (UpCase(c)='N');

end.

Rakd bele hogy tesztelje hogy számot írtunk e be és a megfelelő hibaüzeneteket! Segítség az hogy szám-e a val eljárással lehet eldönteni.