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

Задача

Составьте программы на Паскале для решения задач № 6–9 из заданий к предыдущему параграфу. При этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях задач.

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

Составим программы на Паскале для задач 6–9. Чтобы не ограничивать число операций в выражении, используем промежуточные переменные и последовательные вычисления.

program y_6;
var
  a, b, c, d, m, n: integer;
begin
  write(‘Введи через пробел a,b,c,d >> ‘);
  readln(a, b, c, d);
  m := a * d + b * c;
  n := b * c;
  writeln(‘a/b+c/d = ‘, m / n:5:2);
end.

program y_7;
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.

Для выражений вида $$y=x^8$$, $$y=x^{10}$$, $$y=x^{15}$$, $$y=x^{19}$$ удобно последовательно возводить число в квадрат и умножать на нужную степень.

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

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

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

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

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