Повторно запросить данные при их неверном вводе

@leshoyxX · Регистрация: 03.10.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте.Хочу узнать с помощью какого оператора или цикла можно сделать так,чтобы программа спрашивала ещё один раз пользователя,если он ошибся в вводе.К примеру:

Pascal
1
2
3
4
5
6
7
8
9
10
Program lyalya;
const 
a = 'LAN';
var
b : string;
c : real;
begin
WriteLn('Что эт...'-);
read(b);
If a=b Then c:=1 else {что дальше не знаю,если второй раз ответ верный,то c:= 0.25 если же нет ,то 0 }

или же как-то иначе?

@o-user · 03.10.2009, 18:37

Pascal
1
2
3
4
5
6
7
8
9
If a=b Then c:=1
   else
      begin
         WriteLn('Что эт...'-);
         read(b);
 
         If a=b Then c:=0.25
         else c:=0;
      end;

@Puporev · 03.10.2009, 18:45

Pascal
1
2
3
4
5
repeat
write('Введите число от1 до 10 n=');
readln(n);
if not n in [1..10] then writeln('Число введено неверно! Повторите ввод.');
until n in [1..10];

@leshoyxX · 03.10.2009, 19:03 **[ТС]**

Ммм.. ) спасибо ,я понял

Можно вложенным циклом, а можно и через массив.

@Puporev · 03.10.2009, 21:16

Можно вложенным циклом, а можно и через массив.

Ничего ты не понял, при чем тут вложенные циклы и тем более массивы, где ты их вообще увидел?
Проверка правильности ввода и диалог идут в одном бесконечном цикле repeat .. until (можно while do), пока не введут допустимое значение.
А можно (первый вариант), используя оператор ветвления, но это только один раз. Еще можно использовать оператор goto, но это тоже что и repeat, только более запутанно.

@lexus_ilia · 04.10.2009, 02:54

Осталось лишь добавить, что обычно используют цикл repeat, т.к. он всегда выполниться хоть один раз. И то, что использовать метки (goto) в языке Pascal - это говорит о "плохом тоне программиста", я ничего не имею против меток, но их использование мне понятно например на Assembler'e, но совершенно не уместно в Паскале и вообще в языках высокого уровня.

@leshoyxX · 06.10.2009, 15:18 **[ТС]**

Ничего ты не понял, при чем тут вложенные циклы и тем более массивы, где ты их вообще увидел?

Да,ты прав

В том плане,что ничего не понял и ещё несу чушь про массивы и тд)
Ссорь,прост я нуб

но массива тут и вправду,оказывается, нет

@Puporev · 06.10.2009, 15:29

Вот такую программку прогони.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var a:real;
begin
clrscr;
repeat
write('Введите число от 5 до 10 a=');
readln(a);
if(a<5)or(a>10) then writeln('Число введено неверно! Повторите ввод.')
else writeln('Ввод выполнен успешно! Результат работы программы:');
until (a>=5)and(a<=10);
write('a=',a*5:0:2);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Повторно запросить данные при их неверном вводе

Решение

Решение

Решение

@leshoyxX 1 / 1 / 0 Регистрация: 03.10.2009 Сообщений: 15
	03.10.2009, 19:03 [ТС]
	Ммм.. ) спасибо ,я понял Можно вложенным циклом, а можно и через массив. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	04.10.2009, 02:54
	Осталось лишь добавить, что обычно используют цикл repeat, т.к. он всегда выполниться хоть один раз. И то, что использовать метки (goto) в языке Pascal - это говорит о "плохом тоне программиста", я ничего не имею против меток, но их использование мне понятно например на Assembler'e, но совершенно не уместно в Паскале и вообще в языках высокого уровня. 1