Помогите пожалуйста с Паскалем

[qip2005]

Люди добрые тут такая вот проблема!
У меня задача:
Дано действительное число А, Пользуясь только умножением, получить А в шестой степени за три операции и А в седьмой, за четыре операции, вычислить Е в степени А в седьмой и Е в степени А в шестой.


Всё было бы ничего, но А в шестой и А в седьмой я получил, а как Е возвести я не знаю! Помогите плз.

Вот то, что получилось на данный момент:

program lab1;
var A,B,C:real;
t,i:longint;
begin
writeln('Vvedi A');
readln(A);
B:=sqr(A)*sqr(A)*sqr(A);
C:=sqr(A)*sqr(A)*sqr(A)*A;
writeln('B=',B:6:2);
writeln('C=',C:6:2);
readln(B,C);
end.


Ещё мне известно что можно через ехр возвести, но как это сюда всунуть я не знаю.

[eoln]

вычислить Е в степени А в седьмой и Е в степени А в шестой

понятнее пишите - минут пять думал что тут написано
Формула: А в степени В = exp(B*ln(A))
В итоге: exp( exp(7*ln(A)) * ln(e) )это по формуле, но можно упростить ln(e)=1

[puporev]

Пользуясь только умножением

sqr -это не умножение.

uses crt;
var a,b:real;
begin
clrscr;
write('a=');
readln(a);
b:=a;
a:=a*a*a;{a^3- 2 operacii}
a:=a*a; {a^6 - 3 operacii}
writeln('a^6=',a:0:2);
b:=a*b;{a^7 - 4 operacii}
writeln('a^7=',b:0:2);
writeln('e^(a^6)=',exp(a):0:2);
writeln('e^(a^7)=',exp(b):0:2);
readln
end.

[qip2005]

Сообщение от eoln

понятнее пишите - минут пять думал что тут написано
Формула: А в степени В = exp(B*ln(A))
В итоге: exp( exp(7*ln(A)) * ln(e) )это по формуле, но можно упростить ln(e)=1

A^6, A^7
А^6:=A1
A^7:=A2



E^A1- это то что надо найти
E^A2- тоже

[qip2005]

Сообщение от puporev

sqr -это не умножение.

uses crt;
var a,b:real;
begin
clrscr;
write('a=');
readln(a);
b:=a;
a:=a*a*a;{a^3- 2 operacii}
a:=a*a; {a^6 - 3 operacii}
writeln('a^6=',a:0:2);
b:=a*b;{a^7 - 4 operacii}
writeln('a^7=',b:0:2);
writeln('e^(a^6)=',exp(a):0:2);
writeln('e^(a^7)=',exp(b):0:2);
readln
end.

Всё бы не плохо, тока во 1-ых е - это переменная, коорую надо вводить с клавы.А во вторых такого бреда насчитало, е в степенях!
НУ всё равно спасибо за замечание умножения

[Greblin]

B:=sqr(A)*sqr(A)*sqr(A);
C:=sqr(A)*sqr(A)*sqr(A)*A;

Не думаю, что это удовлетворит твоих преподов. Тут не только умножение, а ещё и функция возведения в квадрат. Подразумевалось что-то такое

A1 := A * A;
B := A1 * A1 * A1;
C := A1 * A1 * A1 * A;

По той же причине, боюсь, не пройдёт решение, которое предложил eoln

[puporev]

Дано действительное число А

вычислить Е в степени А в седьмой и Е в степени А в шестой

Где написано, что Е переменная, которую вводят с клавиатуры?

Еще, а как ты думаешь, чему равно Е в степени А^7, если например А=2?

[qip2005]

Сообщение от Greblin

Не думаю, что это удовлетворит твоих преподов. Тут не только умножение, а ещё и функция возведения в квадрат. Подразумевалось что-то такое

A1 := A * A;
B := A1 * A1 * A1;
C := A1 * A1 * A1 * A;

По той же причине, боюсь, не пройдёт решение, которое предложил eoln

Это замечание я уже принял во внимание.
Спасибо.
Теперь бы в этот кусок программы всунуть чтобы вводить переменную Е и возводить её в А^6 and A^7.

uses crt;
var a,b:real;
begin
clrscr;
write('a=');
readln(a);
b:=a;
a:=a*a*a;{a^3- 2 operacii}
a:=a*a; {a^6 - 3 operacii}
writeln('a^6=',a:6:2);
b:=a*b;{a^7 - 4 operacii}
writeln('a^7=',b:6:2);
writeln('e^(a^6)=',exp(a):0:2);
writeln('e^(a^7)=',exp(b):0:2);
readln
end.

[qip2005]

Сообщение от puporev

Где написано, что Е переменная, которую вводят с клавиатуры?

А откуда она с хоздуха берётся чтоль?
Вобщем тут моя лаба, задание первое, вариант 8.

[puporev]

Посмотрел задание и пришел к выводу, что Ваши познания в математике значительно ниже среднего уровня. По крайней мере средний ученик знает, что такое число e.