If Then

[Andrey770]

Добрый день!
Подскажите кто-нибудь, как сделать так чтоб можно было вводить только цифры,а при вводе буквы выдавало сообщение типа "введите цифру"

[Alex11223]

Куда вводить? В строку что ли? Если вы введете букву в числовую (integer, real и т.д.) переменную, то выдаст ошибку.

[_-Re@l-_]

var
     s : string;
     x, err : integer;
    //
begin
        //
       Readln(s);
       Val(S,X,err);
       if err<> 0 then Writeln('Введите число');
       //
end.

Ну, идея такая.

[Andrey770]

Сообщение от Alex11223

Куда вводить? В строку что ли? Если вы введете букву в числовую (integer, real и т.д.) переменную, то выдаст ошибку.

Я это понимаю,оно нее выдаст ошибку, а закроет программу!
Мне же надо, чтоб была проверка

 write('Po4atok integruvann9I a= ');readln(a);
   write('Kinecb integruvann9I  b= ');readln(b);
   write('Vveditb shag n= '); readln(n);


    dx:=(b-a)/n;
    
    y:=0; x:=1;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;
    y:=y*dx;
     clrscr;
    writeln('integral of formul left  rectangles: ',y: 10:3);
    
     y:=0; x:=a+dx; {x= X1}
     while x<=b do begin {x<= Xn}
     y:=y+f(x);
     x:=x+dx; {x=x1,x2,x3..xn}
     end;
     y:=y*dx;
     writeln('integral of formul right rectangles: ', y:10:3);

как сделать что бы после

write('Po4atok integruvann9I a= ');readln(a);
   write('Kinecb integruvann9I  b= ');readln(b);
   write('Vveditb shag n= '); readln(n);

была проверка?

[Alex11223]

нее выдаст ошибку, а закроет программу!

выдаст и закроет

Во 2 посте же написано как: вводить строку, а не число и использовать функцию val, которая переводит ее в число.

[Andrey770]

Сообщение от Alex11223

выдаст и закроет

Во 2 посте же написано как: вводить строку, а не число и использовать функцию val, которая переводит ее в число.

Обьясните пожалуйста, как эту функцию использовать в моей программе.

[MyLastHit]

Скажите, это вам преподаватель дал такое задание, чтобы делать такую дурацкую и ненужную проверку?
Вам же _-Re@l-_ объяснил как она делается, если val вернул err=0, то ошибки при конвертации не было, иначе - была.


Кстати не знаю, можно ли в паскале использовать try except... От компилятора зависит наверное.

[Andrey770]

Сообщение от MyLastHit

Скажите, это вам преподаватель дал такое задание, чтобы делать такую дурацкую и ненужную проверку?
Вам же _-Re@l-_ объяснил как она делается, если val вернул err=0, то ошибки при конвертации не было, иначе - была.


Кстати не знаю, можно ли в паскале использовать try except... От компилятора зависит наверное.

Нет, я пишу курсовую роботу, и просто хочу, что бы все красиво было.
Так уже все сделал, только этот баг остался)
Val просто ещё не учили, тоисть я не видел примера нигде.

[sunny_alice]

попробуй так

{I-}
if ioresult<> then begin
  writeln('Vvedite slovo!'); {I+}
write('Vveditb shag n=');
readln(n);