|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.09.2008, 17:11 | #1 |
Пользователь
Регистрация: 14.09.2008
Сообщений: 61
|
Помогите пожалуйста с Паскалем
Люди добрые тут такая вот проблема!
У меня задача: Дано действительное число А, Пользуясь только умножением, получить А в шестой степени за три операции и А в седьмой, за четыре операции, вычислить Е в степени А в седьмой и Е в степени А в шестой. Всё было бы ничего, но А в шестой и А в седьмой я получил, а как Е возвести я не знаю! Помогите плз. Вот то, что получилось на данный момент: 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. Ещё мне известно что можно через ехр возвести, но как это сюда всунуть я не знаю. |
14.09.2008, 17:55 | #2 | |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Цитата:
Формула: А в степени В = exp(B*ln(A)) В итоге: exp( exp(7*ln(A)) * ln(e) )это по формуле, но можно упростить ln(e)=1 |
|
14.09.2008, 17:59 | #3 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Код:
|
|
14.09.2008, 18:03 | #4 |
Пользователь
Регистрация: 14.09.2008
Сообщений: 61
|
|
14.09.2008, 18:07 | #5 | |
Пользователь
Регистрация: 14.09.2008
Сообщений: 61
|
Цитата:
НУ всё равно спасибо за замечание умножения |
|
14.09.2008, 18:09 | #6 | |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Цитата:
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
|
14.09.2008, 18:11 | #7 | ||
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Цитата:
Еще, а как ты думаешь, чему равно Е в степени А^7, если например А=2? |
||
14.09.2008, 18:12 | #8 | |
Пользователь
Регистрация: 14.09.2008
Сообщений: 61
|
Цитата:
Спасибо. Теперь бы в этот кусок программы всунуть чтобы вводить переменную Е и возводить её в А^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. |
|
14.09.2008, 18:28 | #10 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Посмотрел задание и пришел к выводу, что Ваши познания в математике значительно ниже среднего уровня. По крайней мере средний ученик знает, что такое число e.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с Паскалем пожалуйста | LLIypLLIyH | Помощь студентам | 0 | 31.05.2008 08:40 |
помогите пожалуйста с Паскалем!!! | STEPP | Помощь студентам | 2 | 29.05.2008 10:52 |
помогите с паскалем, пожалуйста | Зинуся | Помощь студентам | 6 | 28.04.2008 02:02 |
помогите пожалуйста с Паскалем.Тема векторы | Moroka | Помощь студентам | 1 | 23.12.2007 16:17 |