3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления

а) y=x¹° б)y=x¹⁵ или а) y=x^10 б)y=x^15

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

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

1

Ответы и объяснения

Лучший Ответ!
2013-05-26T21:14:28+04:00

1)

var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*10);
y2:= exp(ln(x)*15);

writeln(y1);
writeln(y2);
end.

 

2)

procedure abc(var a,b:real);
var x:real;
begin
x:=a;
a:=b;
b:=x;
end;
var a,b,c:real;
begin
writeln('Vvedite a,b,c');
readln(a,b,c);
if a>b then abc(a,b);
if b>c then abc(b,c);
if a>b then abc(a,b);
write(a,' ',b,' ',c);
end.