Написать программу, в которой осуществляется ввод целых чисел(ввод до тех пор, пока не будет введен ноль) и подсчет суммы введенных положительных чисел. Сделать блок схемой(даю 30 баллов)

Ответы

Ответ дал: Pomagator7

Ответ:

Добрый вечер. (ночи :) )

Сделать схемкой не могу но вот написал прогу. Надеюсь поможет. Сейчас попробую сделать схему, но не обещаю удачи.

(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: На какой проге ты это делал?

Pomagator7: Pascal ABC

ricster640: На телефоне или на компе?

Pomagator7: На компьютере

Pomagator7: Мы в школе не делали блок-схем (зато писали кучу программ) так что опишу подробнее что делается может тебе будет проще.

Pomagator7: var a,sum:integer; (создаю переменные)
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. (Конец основной программы)

Pomagator7: Я сделал всё что мог удачи.

ricster640: Спасибо

Вас заинтересует

Українська мова

3 месяца назад

Розставте розділові знаки при прямій мові; Ти - моє щастя прошепотіла мати Завдання буде виконано запевнив Павлусь Ти бачила виставу запитала Марина подругу Мама просила маринку полий квіти Я

История

3 месяца назад

10 цікавих фактів про Грецію і про Римську державу

Информатика

5 месяцев назад

Рассмотрим алгоритм, который принимает на вход положительное целое число n. Если n четно, алгоритм делит его на два, иначе алгоритм умножает его на три и добавляет единицу. Например, для n=5