Question

Function bukva(s: string; i, k: integer): integer; var n: integer; begin n := length(s); k := 0; for i := 1 to n do if (s[i] = 'а') then k := k + 1; bukva := k; end; var x, y: string; begin if bukva(x) > bukva(y) then writeln('В первом слове букв "а" больше') else if bukva(x) < bukva(y) then writeln('Во втором слове букв "а" больше') else writeln('Одинаковое кол-во букв'); end. Пишет: "Неверное количество параметров процедуры". Что делать, скажите?

Answer 1

Ответ:

Сделать:

Function bukva(s: string): integer;

var n, i, k: integer;

Было:

Function bukva(s: string; i, k: integer): integer;

3 параметра (строка и 2 целых числа)

bukva(x)

1 параметр (строка)

Answer 2

Код, который вы предоставили, имеет несколько ошибок и непонятных моментов. Вот исправленная версия:

pascalCopy code
program CountLetters;

function bukva(s: string): integer;
var
  n, i, k: integer;
begin
  n := length(s);
  k := 0;
  for i := 1 to n do
    if (s[i] = 'а') then
      k := k + 1;
  bukva := k;
end;

var
  x, y: string;

begin
  write('Введите первое слово: ');
  readln(x);
  write('Введите второе слово: ');
  readln(y);
  
  if bukva(x) > bukva(y) then
    writeln('В первом слове букв "а" больше')
  else if bukva(x) < bukva(y) then
    writeln('Во втором слове букв "а" больше')
  else
    writeln('Одинаковое количество букв "а" в обоих словах');
end.

Изменения и исправления включают в себя:

1. Исправление функции bukva: Вернул значение типа integer из функции bukva и убрал параметры i и k, так как они не нужны в данном контексте.

2. Добавление ввода данных: Пользователю предлагается ввести два слова, которые затем используются для подсчета букв "а" в них.

3. Исправление сравнения: Сравнение количества букв "а" в словах было исправлено.

Теперь программа должна правильно работать.