Question

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

Answer 1

Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры.

const
  maxn = 100; //изменяйте по усмотрению

type
  myarr = array [1..maxn] of char;

var
  a: myarr;
  n: longint;

procedure input(var a: myarr; n: longint);
var
  i: longint;
begin
  for i := 1 to n do
    read(a[i]);
end;

function kolvo_gl(a: myarr; n: longint): longint;
var
  i, k: longint;
begin
  k := 0;
  for i := 1 to n do
    case a[i] of
      'a', 'i', 'u', 'o', 'e': inc(k);
    end;
  kolvo_gl := k;
end;

begin
  readln(n);
  input(a, n);
  writeln(kolvo_gl(a, n));
end.

Answer 2

Приведенный ниже код на языке Pascal реализует программу, которая считывает последовательность символов на латинице с клавиатуры и подсчитывает количество гласных в этой последовательности. Для этого используется процедура ввода последовательности и функция, которая возвращает количество гласных.

program CountVowels;

uses
  SysUtils;

function CountVowels(str: string): integer;
var
  i, count: integer;
begin
  count := 0;
  for i := 1 to Length(str) do
  begin
    if UpCase(str[i]) in ['A', 'E', 'I', 'O', 'U'] then
      count := count + 1;
  end;
  CountVowels := count;
end;

procedure InputSequence(var str: string);
begin
  Write('Введите последовательность символов на латинице: ');
  ReadLn(str);
end;

var
  sequence: string;
  vowelCount: integer;

begin
  InputSequence(sequence);
  vowelCount := CountVowels(sequence);
  WriteLn('Количество гласных в последовательности: ', vowelCount);
end.

При выполнении программы сначала вызывается процедура `InputSequence`, которая запрашивает у пользователя ввод последовательности символов на латинице и сохраняет ее в переменной `sequence`. Затем вызывается функция `CountVowels`, которая принимает последовательность в качестве аргумента и подсчитывает количество гласных символов в ней. Результат сохраняется в переменной `vowelCount`. Наконец, программа выводит количество гласных на экран с помощью процедуры `WriteLn`.