Question

Срочно пожалуйста!!! Сделайте пожалуйста программу для Pascal ABC,которая заменит заглавные гласные буквы,в строчные(в тексте, который введём с клавиатуры).

Answer 1

Ответ:

 begin

 var S:string;

 write('Введите текст: '); readln(S);

 var A:array of char:=('А','Я','У','Ю','Ы','И','Э','О','Е','Ё');

 for var L:=1 to S.Length do

   for var D:=0 to 9 do if S[L].Equals(A[D]) then

     S[L]:=S[L].ToLower;

 write(S);  

end.

Объяснение:

.ToLower - преобразует букву к её аналогу в нижнем регистре (в строчную)

.Length - возвращает длину массива или строки

.Equals - сравнивает два значения и, в случае равенства, возвращает true

Answer 2

Конечно, вот программа на Pascal ABC, которая заменяет заглавные гласные буквы в введенном тексте на строчные:

pascalCopy code
program ReplaceVowels;
var
  inputText, outputText: string;
  i: integer;
begin
  Write('Введите текст: ');
  Readln(inputText);

  outputText := '';

  for i := 1 to Length(inputText) do
  begin
    case inputText[i] of
      'A'..'Z', 'А'..'Я', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я':
        outputText := outputText + LowerCase(inputText[i]);
      else
        outputText := outputText + inputText[i];
    end;
  end;

  WriteLn('Текст с замененными заглавными гласными буквами на строчные:');
  WriteLn(outputText);

  Readln;
end.

Программа запрашивает ввод текста с клавиатуры и затем проходит по каждому символу текста, проверяя, является ли символ заглавной гласной буквой. Если это так, то символ заменяется на соответствующую строчную гласную букву с помощью функции LowerCase. Затем программа выводит текст с замененными буквами на экран.