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

Задача

Напишите на языке Паскаль программу вычисления $$y$$ по формуле: $$y=(1-x^2+5x^4)^2$$, где $$x$$ — данное целое число.
Перепишите программу на языке Паскаль, исправив ошибки:
Program primer
Var a,b: integer;
Begin
;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a:b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End
Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) $$y=x^{10}$$
б) $$y=x^{15}$$
Постараться использовать минимальное количество дополнительных переменных.
Запишите на языке Паскаль программу циклического обмена значениями трёх переменных $$a,b,c$$. Схема циклического обмена: $$a < b < c$$
Например, если до обмена было: $$a=1$$, $$b=2$$, $$c=3$$, то после обмена должно стать: $$a=2$$, $$b=3$$, $$c=1$$.

Подробный ответ

1. Для вычисления $$y=(1-x^2+5x^4)^2$$ удобно сначала найти $$x^2$$, затем подставить его в формулу и возвести результат в квадрат:

program yy;
var
  x, y: integer;
begin
  write(‘Введи x >>’);
  readln(x);
  x := x * x;
  y := (1 — x + 5 * x * x);
  y := y * y;
  writeln(‘y =’, y);
end.

2. В программе были исправлены ошибки: добавлены пропущенные объявления переменных, знак присваивания $$:=$$, правильная запись деления и формат вывода вещественного числа.

program primer;
var
  a, b, s, m: integer;
  d: real;
begin
  ReadLn(a, b);
  s := a + b;
  m := a * b;
  d := a / b;
  WriteLn(s);
  WriteLn(m);
  WriteLn(d:5:2);
end.

3. Наиболее короткие алгоритмы вычисления степеней без функции возведения в квадрат:

а) $$y=x^{10}$$

program y10;
var
  x, y: integer;
begin
  write(‘Введи x >>’);
  readln(x);
  x := x * x;
  y := x * x;
  y := y * y * x;
  writeln(‘y =’, y);
end.

б) $$y=x^{15}$$

program y15;
var
  x, y: integer;
begin
  write(‘Введи x >>’);
  readln(x);
  y := x * x;
  y := y * y * x;
  y := y * y * y;
  writeln(‘y =’, y);
end.

4. Для циклического обмена значениями трёх переменных используется вспомогательная переменная $$t$$:

program yy;
var
  a, b, c, t: integer;
begin
  write(‘Введи a,b,c >>’);
  readln(a, b, c);
  t := a;
  a := b;
  b := c;
  c := t;
  writeln(‘a=’, a, ‘ b=’, b, ‘ c=’, c);
end.