Операции с числами. Перевести код с C# - Turbo Pascal

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

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

Решение задачи: «Операции с числами. Перевести код с C#»

textual
Листинг программы
var  s:String;
     i,k,sum,c,code:integer;
begin
  Write('Enter a line of text: ');
  Readln(s);
  k:=1;
  for i:=1 to Length(s)do begin
     case s[i]of
     '0'..'9':begin val(s[i],c,code);sum:=sum+k*c;k:=-k end;
     end
  end;
  writeln(sum)
end.

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

  1. Создается переменная s типа String, в которую будет записываться введенная пользователем строка.
  2. Создаются переменные i, k, sum и c типа integer.
  3. Выводится сообщение Enter a line of text: для приглашения пользователя ввести строку.
  4. Считывается введенная пользователем строка в переменную s.
  5. Инициализируется переменная k значением 1.
  6. Запускается цикл for, который будет выполняться от 1 до длины строки s.
  7. В каждой итерации цикла происходит следующее:
    • Проверяется каждый символ в строке s[i].
    • Если символ является числом от 0 до 9, то он преобразуется в тип integer с помощью функции val().
    • Значение переменной c сохраняется в переменную sum, а значение переменной code устанавливается равным k.
    • Значение переменной k сменяет знак на противоположный (от -k до k), и переменная sum увеличивается на k*c.
  8. После завершения цикла выводится значение переменной sum.

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

7   голосов , оценка 4 из 5
Похожие ответы