Вычислить сумму трех чисел - Turbo Pascal

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

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

Добрый день! не понимаю, что от меня тут хотят, помогите, пожалуйста! задача следующая: написать программу, которая вычисляет сумму трех чисел, введенных в форме символьной строки. Заранее благодарю за помощь

Решение задачи: «Вычислить сумму трех чисел»

textual
Листинг программы
uses crt;
procedure vvod(var a:integer);
var s:string;
    c:integer;
begin
repeat
write('Введите целое число: ');
readln(s);
val(s,a,c);
if c<>0 then writeln('Это не целое число, повторите ввод');
until c=0;
end;
var a,b,c,sm:integer;
begin
clrscr;
vvod(a);
vvod(b);
vvod(c);
sm:=a+b+c;
write('Сумма=',sm);
readln
end.

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

  1. В первой части кода используется процедура vvod, которая принимает целочисленное значение в качестве параметра и использует переменную s для ввода строки, а переменную c для проверки, является ли введенное значение целым числом.
  2. Если введенное значение не является целым числом, программа повторяет запрос ввода.
  3. Вторая часть кода объявляет три переменные a, b и c для хранения суммарных значений, полученных от пользователя.
  4. Затем вызывается функция vvod три раза, чтобы получить значения от пользователя для каждой из переменных a, b и c.
  5. После получения всех трех значений, сумма всех трех переменных a, b и c сохраняется в переменной sm.
  6. Наконец, программа выводит сообщение с результатом на экран.

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

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