Вывести на экран количество символов, обозначающих арифметические операции - Turbo Pascal (29582)

Узнай цену своей работы

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

Вводится строка. Программа выводит на экран количество символов, обозначающих арифметические операции: «+», «-», «*», «/». Опишите функцию CalcOp. МАССИВЫ использовать НЕЛЬЗЯ.
Листинг программы
  1. var
  2. s: string;
  3. kol: integer;
  4. begin
  5. readln(s);
  6. kol := CalcOp(s,'+-*/');
  7. writeln(kol);
  8. end.

Решение задачи: «Вывести на экран количество символов, обозначающих арифметические операции»

textual
Листинг программы
  1. function CalcOp(sIn, sOperations : string) : integer;
  2. var
  3.   res, i : integer;
  4. begin
  5.   res := 0;
  6.   for i := 1 to Length(sIn) do
  7.     if Pos(Copy(sIn,i,1), sOperations) > 0 then Inc(res);
  8.   CalcOp := res;
  9. end;

Объяснение кода листинга программы

  1. В функции CalcOp объявлены две переменные: res и i.
  2. Переменная res инициализируется значением 0. Она будет использоваться для подсчета количества символов, обозначающих арифметические операции.
  3. Переменная i инициализируется значением 1. Она будет использоваться для перебора символов в строке sIn.
  4. В цикле for происходит проверка каждого символа в строке sIn.
  5. Если текущий символ присутствует в строке sOperations (это можно проверить с помощью функции Pos), то значение переменной res увеличивается на 1.
  6. После завершения цикла, значение переменной res сохраняется в переменную CalcOp и возвращается из функции.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы