Вывести на экран количество символов, обозначающих арифметические операции - Turbo Pascal (29582)
Формулировка задачи:
Вводится строка. Программа выводит на экран количество символов,
обозначающих арифметические операции: «+», «-», «*», «/».
Опишите функцию CalcOp. МАССИВЫ использовать НЕЛЬЗЯ.
Листинг программы
- var
- s: string;
- kol: integer;
- begin
- readln(s);
- kol := CalcOp(s,'+-*/');
- writeln(kol);
- end.
Решение задачи: «Вывести на экран количество символов, обозначающих арифметические операции»
textual
Листинг программы
- function CalcOp(sIn, sOperations : string) : integer;
- var
- res, i : integer;
- begin
- res := 0;
- for i := 1 to Length(sIn) do
- if Pos(Copy(sIn,i,1), sOperations) > 0 then Inc(res);
- CalcOp := res;
- end;
Объяснение кода листинга программы
- В функции CalcOp объявлены две переменные: res и i.
- Переменная res инициализируется значением 0. Она будет использоваться для подсчета количества символов, обозначающих арифметические операции.
- Переменная i инициализируется значением 1. Она будет использоваться для перебора символов в строке sIn.
- В цикле for происходит проверка каждого символа в строке sIn.
- Если текущий символ присутствует в строке sOperations (это можно проверить с помощью функции Pos), то значение переменной res увеличивается на 1.
- После завершения цикла, значение переменной res сохраняется в переменную CalcOp и возвращается из функции.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д