Написать программу проверки корректности ввода строки по данной маске - Pascal ABC

Формулировка задачи:

Использовать типы данных множество и строка для ввода информации по заданной маске: 2 буквы, 3 цифры, 1 буква (ББЦЦЦБ) написать программу проверки корректности ввода строки по этой маске, при ошибочном вводе недопустимы символов подавать звуковой сигнал или менять цвет ошибочного символа и возвращать курсор назад. помогите пожалуйста.

Код к задаче: «Написать программу проверки корректности ввода строки по данной маске - Pascal ABC»

textual
uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
      cf=['0'..'9'];
var c:char;
    i:byte;
begin
writeln('Введите строку из 6 симолов по маске ББЦЦЦБ');
i:=1;
while i<=6 do
 begin
  textcolor(0);
  c:=readkey;
  write(c);
  if ((i in [1,2,6]) and not(c in bk))
  or ((i in [3..5]) and not(c in cf)) then
   begin
    gotoXY(whereX-1,whereY);
    textcolor(12);
    write(c);
    gotoXY(whereX-1,whereY);
   end
  else i:=i+1;
  if i>6 then writeln
 end
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы