ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:1. Напишите ** языке Паскаль программу вычисления...

Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:
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.

Answer 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.

Answer 2

Программы для решения задач - в прилагаемом файле.

---

Скачать вложение Текст (TXT)