Помогите решить задачу...

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

привет всем! помогите написать программу... вычисления корня любой степени у дробей...

т.е например дана дробь 27/125 , корень 3 степени = 3/5
так же и вычисление любой степени...

помогите плиззз!!!
BBB
Сообщения: 1298
Зарегистрирован: 27 дек 2005, 13:37

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 в Паскале имеются.
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

Привет всем! помогите написать программу...

2*х^4-x^3-8=0 на интервале от 0 до 2 по х

плизззз!
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

Вот я зделал... выдает ошибку 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.

Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

чет я не то сделал... короче надо найти иксы...
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

А в чем вопрос-то?
ЗЫ: функция намного нагляднее бы смотрелась в виде 2*x*x*x*x-x*x*x-8
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

Привет всем!
Помогите сделать интерфейс, с использованием модуля crt, и readkey...

вот такой интерфейс:

Меню:

1 - Вычисление {Эти пункты будую ввиде кнопочек}
2 - Инструкция
3 - Автор программы
4 - Выход

тут будет использоваться код #72(клавиша вверх) и #80(клавиша вниз)

т.е, я нажимаю код #72 и у меня выделяется другим цветом "4 - Выход", нажимаю еще раз код #72 "3 - Автор программы" и т.д... если обратно, нажимаю код #80, и у меня переходит к пункту "4 - Выход"... при нажатии на Enter, я выбираю тот или иной пункт...


Пожалуйста помогите сделать мне...
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Ну что-то вроде

Код: Выделить всё

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;
В массиве menu хранятся названия пунктов меню, в переменной choice - номер текущего выбранного пункта.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

чет, я не полял... что это за код...
Anton_XXX
Сообщения: 108
Зарегистрирован: 21 дек 2006, 17:15

помогите... плиззз... ну срочно надо....
Ответить