Исправить ошибку-проверка корректности ввода.

@Own3D · Регистрация: 29.10.2011

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

нужно проверить корректность ввода ФИО.
пытался использовать эту конструкцию - ругается на неверное выражение( исправьте ошибку пж.

Pascal
1
2
3
4
5
6
7
8
9
10
11
var s,alph:string;
begin
alph:='АаБбВвГгДдЕеЁёЖжЗзИиКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. '; 
//объявил допустимые символы
repeat
     write ('Введите ФИО: ');
     readln(s);
           if s not in alph then
           writeln('Некорректный ввод!');
until s in alph;
end.

@BOUH_TbMbI · 03.12.2011, 16:07

У тебя же тип string...будет массив строковый. Попробуй просто s заменить на s[i]

@Own3D · 03.12.2011, 16:14 **[ТС]**

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

У тебя же тип string...будет массив строковый. Попробуй просто s заменить на s[i]

попробовал вот так

Pascal
1
2
3
4
5
6
7
8
9
repeat
        write ('Введите ФИО: ');
        readln(s);
        for j:=1 to length(s) do
           begin
              if not (s[j] in alph) then
              writeln('Некорректный ввод!');
           end;
     until s in alph;

тоже не работает.(

@КонецСвета · 03.12.2011, 16:17

вот так работает, но корректность проверяет только после введения всего выражения, а не в процессе... то есть repeat теряет смысл...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var alph,s:string;
    i: integer;
 
begin
alph:='АаБбВвГгДдЕеЁёЖжЗзИиКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. ';
//объявил допустимые символы
write ('Введите ФИО: ');
read(s);
for i:=1 to length(s) do
if pos(s[i],alph)=0 then
           writeln('Некорректный ввод!');
end.

так что красоты нет пока...

@Own3D · 03.12.2011, 16:31 **[ТС]**

Сообщение от КонецСвета

вот так работает, но корректность проверяет только после введения всего выражения, а не в процессе... то есть repeat теряет смысл...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var alph,s:string;
    i: integer;
 
begin
alph:='АаБбВвГгДдЕеЁёЖжЗзИиКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. ';
//объявил допустимые символы
write ('Введите ФИО: ');
read(s);
for i:=1 to length(s) do
if pos(s[i],alph)=0 then
           writeln('Некорректный ввод!');
end.

так что красоты нет пока...

при такой конструкции, если фио введенно не корректно, оно выдает сообщение, но все равно переходит к след. пункту программы.. над доработать.. думаю ввести еще 1 переменную, которой будет присваиватся значение после вывода сообщения не корректности, и на нее прицепить репид..

@КонецСвета · 03.12.2011, 16:33

нда =(

@Own3D · 03.12.2011, 16:41 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
     repeat
        write ('Введите ФИО: ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],alph)=0 then
           error:=1;
              if error<>0 then
              writeln('Некорректный ввод!');
     until error=0;

вот так норм) спс за подсказки))

@КонецСвета · 03.12.2011, 16:44

Профессионал!

@Own3D · 03.12.2011, 16:55 **[ТС]**

Сообщение от КонецСвета

Профессионал!

хД нее.) новичек я.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@BOUH_TbMbI 36 / 17 / 9 Регистрация: 14.02.2011 Сообщений: 169
	03.12.2011, 16:07
	У тебя же тип string...будет массив строковый. Попробуй просто s заменить на s[i] 1

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	03.12.2011, 16:33
	нда =( 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	03.12.2011, 16:44
	Профессионал! 0