Вычислить сумму трех чисел - 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.
Объяснение кода листинга программы
- В первой части кода используется процедура vvod, которая принимает целочисленное значение в качестве параметра и использует переменную s для ввода строки, а переменную c для проверки, является ли введенное значение целым числом.
- Если введенное значение не является целым числом, программа повторяет запрос ввода.
- Вторая часть кода объявляет три переменные a, b и c для хранения суммарных значений, полученных от пользователя.
- Затем вызывается функция vvod три раза, чтобы получить значения от пользователя для каждой из переменных a, b и c.
- После получения всех трех значений, сумма всех трех переменных a, b и c сохраняется в переменной sm.
- Наконец, программа выводит сообщение с результатом на экран.