Помогите решить задачу...
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
привет всем! помогите написать программу... вычисления корня любой степени у дробей...
т.е например дана дробь 27/125 , корень 3 степени = 3/5
так же и вычисление любой степени...
помогите плиззз!!!
т.е например дана дробь 27/125 , корень 3 степени = 3/5
так же и вычисление любой степени...
помогите плиззз!!!
Anton_XXX,
Это через логарифмы, используя тождество
y = x^n => y = exp (n * ln (x))
а извлечь корень степени N из числа X - это то же самое, что возвести число X в степень 1/N.
Т.е корень третьей степени из 27/125:
y = exp ((1/3) * ln (27/125))
Функции exp и ln в Паскале имеются.
Это через логарифмы, используя тождество
y = x^n => y = exp (n * ln (x))
а извлечь корень степени N из числа X - это то же самое, что возвести число X в степень 1/N.
Т.е корень третьей степени из 27/125:
y = exp ((1/3) * ln (27/125))
Функции exp и ln в Паскале имеются.
Привет всем! помогите написать программу...
2*х^4-x^3-8=0 на интервале от 0 до 2 по х
плизззз!
2*х^4-x^3-8=0 на интервале от 0 до 2 по х
плизззз!
Вот я зделал... выдает ошибку 207
Проверьте плиззз.... мне срочно нужно, чтобы она работала...
Где тут ошибка...?
Проверьте плиззз.... мне срочно нужно, чтобы она работала...
Где тут ошибка...?
Код: Выделить всё
program n_1;
uses crt;
var
r,q,k:real;
i:integer;
begin
clrscr;
for i:=0 to 2 do
begin
k:=exp(4*ln(i));
q:=exp(3*ln(i));
r:=2*k-q-8;
writeln('Результат:',r);
end;
readln;
end.
чет я не то сделал... короче надо найти иксы...
А в чем вопрос-то?
ЗЫ: функция намного нагляднее бы смотрелась в виде 2*x*x*x*x-x*x*x-8
ЗЫ: функция намного нагляднее бы смотрелась в виде 2*x*x*x*x-x*x*x-8
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Привет всем!
Помогите сделать интерфейс, с использованием модуля crt, и readkey...
вот такой интерфейс:
Меню:
1 - Вычисление {Эти пункты будую ввиде кнопочек}
2 - Инструкция
3 - Автор программы
4 - Выход
тут будет использоваться код #72(клавиша вверх) и #80(клавиша вниз)
т.е, я нажимаю код #72 и у меня выделяется другим цветом "4 - Выход", нажимаю еще раз код #72 "3 - Автор программы" и т.д... если обратно, нажимаю код #80, и у меня переходит к пункту "4 - Выход"... при нажатии на Enter, я выбираю тот или иной пункт...
Пожалуйста помогите сделать мне...
Помогите сделать интерфейс, с использованием модуля crt, и readkey...
вот такой интерфейс:
Меню:
1 - Вычисление {Эти пункты будую ввиде кнопочек}
2 - Инструкция
3 - Автор программы
4 - Выход
тут будет использоваться код #72(клавиша вверх) и #80(клавиша вниз)
т.е, я нажимаю код #72 и у меня выделяется другим цветом "4 - Выход", нажимаю еще раз код #72 "3 - Автор программы" и т.д... если обратно, нажимаю код #80, и у меня переходит к пункту "4 - Выход"... при нажатии на Enter, я выбираю тот или иной пункт...
Пожалуйста помогите сделать мне...
Ну что-то вроде
В массиве menu хранятся названия пунктов меню, в переменной choice - номер текущего выбранного пункта.
Код: Выделить всё
procedure drawmenu;
setbkcolor(black);
setcolor(lightgray);
clrscr;
for i:=0 to 3 do
begin
if choice=i then
begin
setbgcolor(white);
setcolor(red);
end
else
begin
setbkcolor(black);
setcolor(lightgray);
end;
writeln(menu[i]);
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
чет, я не полял... что это за код...
помогите... плиззз... ну срочно надо....