Дополнительное задание 1 Параграф 20 ГДЗ Семакин 8 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:
ЕК ЦОР: Часть2, глава 6, §35. ЦОР №2
Домашнее задание №24
Тема: Знакомство с языком Паскаль
1. Напишите на языке Паскаль программу вычисления y по формуле:
y = ( 1- x2 + 5x4 )2, где x - данное целое число.
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: 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('Введи x >>');
readln(x);
x := x * x;
y := x * x;
y := y * y * x;
writeln('y =', y);
end.
б)
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. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a < b < c
Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
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.
Популярные решебники 8 класс Все решебники
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением