Дополнительное задание 1 Параграф 27 ГДЗ Семакин 8 класс (Информатика)

Домашнее задание №27
Тема: Программирование циклов
1. Составьте на Паскале программу возведения в N-ую степень целого числа X.
program task_1;
var
x, n, s, i: integer;
begin
write(‘Введи X и N через пробел > > ‘);
readln(x, n);
s := 1;
for i := 1 to n do
s := s * x;
writeln(x, ‘ в степени ‘, n, ‘ = ‘, s)
end.
2. Запишите на языке Паскаль программу, соответствующую приведённой ниже блок-схеме и определить, что вычисляет данная программа:
Программа вычисляет сумму введеных с клавиатуры чисел до введеного 0.
program t_2;
var
n, s: integer;
begin
write(‘n > ‘);
readln(n);
s := 0;
while n < > 0 do
begin
s := s + n;
write(‘n > ‘);
readln(n);
end;
writeln(‘S=’, s)
end.
3. Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу.
program t_3;
var
n, s,i: integer;
begin
write(‘n > ‘);
readln(n);
s := 0;
for i:=1 to n do
s:=s+i;
writeln(‘S=’, s)
end.
N=7

1. Для возведения числа $$X$$ в степень $$N$$ удобно использовать цикл: сначала присвоить произведению значение $$1$$, затем $$N$$ раз умножить его на $$X$$.

program task_1;
var
  x, n, s, i: integer;
begin
  write(‘Введи X и N через пробел >> ‘);
  readln(x, n);
  s := 1;
  for i := 1 to n do
    s := s * x;
  writeln(x, ‘ в степени ‘, n, ‘ = ‘, s);
end.

2. По блок-схеме программа сначала вводит число $$N$$, затем обнуляет сумму $$S$$. Пока $$N \ne 0$$, к сумме прибавляется текущее значение $$N$$, после чего вводится следующее число. Когда введён $$0$$, выводится сумма.

program t_2;
var
  n, s: integer;
begin
  write(‘n > ‘);
  readln(n);
  s := 0;
  while n <> 0 do
  begin
    s := s + n;
    write(‘n > ‘);
    readln(n);
  end;
  writeln(‘S=’, s);
end.

Данная программа вычисляет сумму всех введённых с клавиатуры чисел до появления $$0$$.

3. Сумма всех натуральных чисел, не превышающих $$N$$, находится последовательным сложением чисел от $$1$$ до $$N$$.

program t_3;
var
  n, s, i: integer;
begin
  write(‘n > ‘);
  readln(n);
  s := 0;
  for i := 1 to n do
    s := s + i;
  writeln(‘S=’, s);
end.

Трассировочная таблица при $$N = 7$$:

Ответ

1) Программа возводит целое число $$X$$ в степень $$N$$.
2) Программа вычисляет сумму введённых чисел до ввода $$0$$.
3) При $$N = 7$$ получаем $$S = 28$$.