ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ Надобно:1. Напишите на языке Паскаль программу
ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:
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.
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.