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

Задача

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=x8
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.
y=x10
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.
y=x15
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.
y=x19
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.

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

Составим программы на Паскале для задач 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.