Написать программу, в которой осуществляется ввод целых чисел(ввод до тех пор, пока не будет введен ноль) и подсчет суммы введенных положительных чисел. Сделать блок схемой(даю 30 баллов)
Ответы
Ответ дал:
0
Ответ:
Добрый вечер. (ночи :) )
Сделать схемкой не могу но вот написал прогу. Надеюсь поможет. Сейчас попробую сделать схему, но не обещаю удачи.
(P.S. Протестил)
var a,sum:integer;
begin
sum:=0;
repeat
readln(a);
if a>0 then
begin
sum:=sum+a;
end;
until a = 0;
writeln('Сумма ',sum:5);
end.
Объяснение:
ricster640:
На какой проге ты это делал?
begin (Начало(в блок схеме вроде овал) )
sum:=0; (Ввод данных (параллелограмм) )
repeat (запуск цикла (ромб))
readln(a); (Ввод с клавиатуры (параллелограмм))
if a>0 then (Цикл условие if (ромб))
begin (Начало подпрограммы)
sum:=sum+a; (Обработка данных(прямоугольник))
end; (Конец)
until a = 0; (Проверка и часть цикла repeat(стрелкой проведешь на схеме к фигуре repeat)
writeln('Сумма ',sum:5); (Вывод на экран)
end. (Конец основной программы)
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад