ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:1. Напишите на языке Паскаль программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2, где x - данное целое число.2. Перепишите программу на языке Паскаль, исправив ошибки: Program primer...
ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:
1. Напишите на языке Паскаль программу вычисления y по формуле:
y = ( 1- x2 + 5x4 )2, где x - данное целое число.
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
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c
Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Гость
Ответ(ы) на вопрос:
ГостьПрограммы для решения задач - в прилагаемом файле.
Гость1 задача
var
x : integer;
begin
readln(x);
x := sqr(1 - x*x + 5*x*x*x*x);
writeln(x);
end.
2 задача
Program primer;
Var a,b,s,m: integer;
d : double;
Begin
ReadLn(a,b);
s:=a+b;
m:=a*b;
d:=a/b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
3 задача
Тупой вариант без дополнительной переменной
а) y := x*x*x*x*x*x*x*x*x*x;
б) y := x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
Вариант покороче в записи, правильный с циклом, но нужна ещё 1 переменная i : integer
a) y :=x;
for i := 1 to 9 do
y := y * x;
б) y :=x;
for i := 1 to 14 do
y := y * x;
4 задача
Var
a, b, c, reg: integer;
d : double;
Begin
Readln (a,b,c);
reg := a;
a := b;
b := c;
c := reg;
Writeln(a,' ',b,' ',c);
End.
Не нашли ответ?
Похожие вопросы