Поделиться
41.docx
Если вы поняли идею счетчика, то понять идею сумматора вам будет нетрудно. Посмотрим, как будет работать следующий фрагмент:
s:=0; {Обнуляем сумматор. Это не менее важно, чем обнулить счетчик}
m: ReadLn(a);
s:=s+a; {Увеличиваем сумматор}
WriteLn(‘Сумма=’, s);
goto m;
Пусть мы вводим числа 8, 4, 10 . . . В этом случае порядок выполнения операторов будет такой:
|
Оператор |
а |
s |
Печать |
|
s:=0 |
? |
0 |
|
|
ReadLn(a) |
8 |
0 |
|
|
s:=s+a |
8 |
8 |
|
|
WriteLn(‘Сумма=' ,s) |
8 |
8 |
Сумма=8 |
|
goto m |
8 |
8 |
|
|
ReadLn(a) |
4 |
8 |
|
|
s:=s+a |
4 |
12 |
|
|
WriteLn(‘Сумма=' ,s) |
4 |
12 |
Сумма=12 |
|
goto m |
4 |
12 |
|
|
ReadLn(a) |
10 |
12 |
|
|
s:=s+a |
10 |
22 |
|
|
WriteLn(‘Сумма=' ,s) |
10 |
22 |
Сумма=22 |
|
goto m |
10 |
22 |
|
|
………. |
|
|
|
Как видите, в ячейке s накапливается сумма вводимых чисел a, поэтому назовем эту ячейку сумматором. Отличие сумматора от счетчика в том, что счетчик увеличивается на 1 оператором c:=c+1, а сумматор - на суммируемое число оператором s:=s+a.
Задача: В компьютер вводится N чисел. Вычислить и один раз напечатать их сумму.
Программа:
VAR i,N :Integer;
a,s :Real;
BEGIN
ReadLn(N);
s:=0;
for i:=1 to N do begin
ReadLn(a);
s:=s+a
end {for};
WriteLn(‘Сумма равна ' ,s:20:10)
END.
Задание 49: Пусть N=2, a=5 и 3. Тогда по этой программе Паскаль напечатает 8. Что он напечатает, если:
1) Вместо s:=0 написать s:=10.
2) Вместо s:=s+a написать s:=s+a+1.
3) Строки end {for} и WriteLn поменять местами.
4) Строки s:=0 и for поменять местами.
5) Строки for и ReadLn поменять местами.
6) Строки s:=s+a и end {for} поменять местами.
7) Вместо for i:=1 to N написать for i:=2 to N.
Задания 50-52: Написать программы для следующих задач:
50) Во дворце 40 залов. Известны длина и ширина каждого зала. Вычислить площадь пола всего дворца.
51) Вычислить средний балл учеников вашего класса по физике.
52) Вычислить произведение N произвольных чисел.
Скачано с www.znanio.ru
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
