Question

Помогите решить задачу в Паскаль. Очень надо...- Если введенный символ является гласной буквой английского языка, то заменить его восклицательным знаком, если согласной – то вопросительным знаком, если цифрой – то двоеточием, в остальных случаях заменить символ звездочкой.

Answer 1

Program Zamena;

Uses Crt;

var c:char;

begin

     clrscr; 

     write('Введите символ: ');

     readln(c);   

 

     case c of

         'A','a', 'E','e', 'I','i' 'O','o' 'U','u',' Y','y': writeln('!');

         'B','b',C,'c','D','d','F','f','G','g','H','h','J','j',K,'k','L','l','M','m', 'N','n' 'P','p','Q','q','R','r','S','s' ,'T','t','V','v','W','w' ,'X','x', 'Z','z':  writeln('?');

     '0'..'9': writeln(':');  

             else writeln('*');

 

     end;  

 

  readkey;

 end. 

 

 

Answer 2

Вот пример кода на Pascal, который решает задачу:

arduinoCopy code
program ReplaceSymbols;

var
  ch: char;

begin
  writeln('Введите символ: ');
  readln(ch);

  case ch of
    'A', 'E', 'I', 'O', 'U', 'Y': ch := '!';
    'B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Z': ch := '?';
    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9': ch := ':';
    else ch := '*';
  end;

  writeln('Новый символ: ', ch);
  readln;
end.

Программа сначала запрашивает символ у пользователя, затем использует оператор case для определения типа символа и замены его соответствующим символом. Затем программа выводит новый символ в консоль. Обратите внимание, что символы гласных букв и согласных букв указываются в верхнем регистре в соответствии с условием задачи.