Программа
End
Repeat
Begin
End.
Repeat
Begin
ПОВТОРЯТЬ
s = s + i;
i = i + 1;
ДО (i > 100);
Программа:
Program Gauss;
Uses CRT;
Var i, s : Word;
ClrScr;
s := 0;
i := 1;
s := s + i;
i := i + 1;
Until (i>100);
WriteLn(‘s = ‘, s);
ReadLn;
2. вычислить сумму s всех цифр заданного натурального числа n
Пусть s – искомая сумма,
i – очередная цифра числа.
Тогда алгоритм решения задачи можно описать следующим образом:
a. обнуляем сумму s ,
b. берем последнюю цифру числа, для чего определяем остаток от деления исходного числа на 10: i = n Mod 10,
c. добавляем в сумму найденную цифру: s = s + i,
d. уменьшаем число в 10 раз: n = n Div 10,
e. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.
Схема алгоритма: Программа:
Program Sum;
Uses CRT;
Var i, s, n : Word;
ClrScr;
Write(‘n= ‘);
ReadLn(n);
s := 0;
i := n Mod 10;
s := s + i;
n := n Div 10;
Until (n = 0);
WriteLn(‘s = ‘, s);
ReadLn;
3. ввести с клавиатуры по одному последовательность целых чисел (конец последовательности – число 0). Определить их сумму, максимальное и минимальное число, количество введенных чисел и их среднее арифметическое.
Пусть s – искомая сумма,
min, max – минимальное и максимальное из введенных чисел,
count – количество введенных чисел,
sred – среднее арифметическое,
n – очередное число.
Тогда алгоритм решения задачи можно описать следующим образом:
a. обнуляем сумму s ,
b. вводим первое число n,
c. если оно не равно нулю, то
1. принимаем его значение за min и max
2. количество введенных чисел count = 1
3. увеличиваем сумму на введенное число s = s + n
4. входим в цикл ввода:
d. вводим очередное число n,
e. если оно не равно нулю, то
1. количество введенных чисел увеличиваем на 1: count = count +1
2. увеличиваем сумму на введенное число s = s + n
3. если оно меньше min, то min = n,
4. если оно больше max, то max = n,
f. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.
g. Создадим интерфейс этой задачи – взаимодействие программы с пользователем, то есть что должно выводиться на экран:
Первое число: 3
Очередное число: 8
Очередное число: 1
Очередное число: -2
Очередное число: 0
Сумма = 10
Количество чисел = 4
Min = -2
Max = 8
Среднее арифметическое = 2.50
Схема алгоритма:
Program Posled;
Uses CRT;
Var n,min,max,s,count: Word;
sred: Real;