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

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

ЕК ЦОР: Часть2, глава 6, §35. ЦОР №2

Домашнее задание №24

Тема: Знакомство с языком Паскаль

1. Напишите на языке Паскаль программу вычисления y по формуле:

y = ( 1- x2 + 5x4 )2, где x - данное целое число.

program yy;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

x := x * x;

y := (1 - x + 5 * x * x);

y := y * y;

writeln(tasky =task, y);

end.

2. Перепишите программу на языке Паскаль, исправив ошибки:

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

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=x10 б) y=x15

Постараться использовать минимальное количество дополнительных переменных.

а)

program y10;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

x := x * x;

y := x * x;

y := y * y * x;

writeln(tasky =task, y);

end.

б)

program y15;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

y := x * x;

y := y * y * x;

y := y * y * y;

writeln(tasky =task, y);

end.

4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a

Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

program yy;

var

a,b,c,t: integer;

begin

write(taskВведи a,b,c > > task);

readln(a,b,c);

t:=a; a:=b; b:=c; c:=t;

writeln(taska=task, a,task b=task,b,task c=task,c);

end.