Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2012, 12:54   #1
maks22
Пользователь
 
Регистрация: 30.01.2012
Сообщений: 21
По умолчанию решить уравнение lazarus

надо написать программу для решения уравнения sqrt(cos(x))/(1-pi*sqr(x))+ln(1-sqr(sin(x)))/ln(cos(x)) только полностб пожалуйста там var... плохо понимаю это,буду разбираться
maks22 вне форума Ответить с цитированием
Старый 31.01.2012, 15:13   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Вот оно, решение.

Код:
rezult := sqrt(cos(x))/(1-pi*sqr(x))+ln(1-sqr(sin(x)))/ln(cos(x))
Чтобы увидеть мой код - покажите свой.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

Последний раз редактировалось Vanta11a; 31.01.2012 в 15:15.
Vanta11a вне форума Ответить с цитированием
Старый 31.01.2012, 15:13   #3
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

пфф! Да не вопрос
Код:
var
     x,y: real;
begin
     Readln (x);
     y := sqrt(cos(x))/(1-3.14*sqr(x))+ln(1-sqr(sin(x)))/ln(cos(x));
     Writeln (y);
end.
Разбирайтесь!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 31.01.2012, 15:39   #4
maks22
Пользователь
 
Регистрация: 30.01.2012
Сообщений: 21
По умолчанию

СПАСИБО ТО ЧТО НАДО
maks22 вне форума Ответить с цитированием
Старый 31.01.2012, 15:42   #5
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Сообщение от maks22 Посмотреть сообщение
СПАСИБО ТО ЧТО НАДО

Да не вопрос! обращайтесь!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 31.01.2012, 15:42   #6
maks22
Пользователь
 
Регистрация: 30.01.2012
Сообщений: 21
По умолчанию интересное задание

окай(10сим.)
maks22 вне форума Ответить с цитированием
Старый 31.01.2012, 15:46   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Код:
y := (trunc(x) mod 10) * ((frac(x)*1000) mod 10)
Как то так!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 06.10.2014, 14:27   #8
Joven_Hielo
Новичок
Джуниор
 
Регистрация: 06.10.2014
Сообщений: 1
По умолчанию

Надо написать программу для решения уравнения. Помогите пожалуйста!
Изображения
Тип файла: png Безымянный1.png (2.9 Кб, 177 просмотров)
Joven_Hielo вне форума Ответить с цитированием
Старый 06.10.2014, 15:50   #9
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Предлагаю ближе к зачётной неделе сделать вход на сайт платным.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решить уравнение (C++) ben74 Помощь студентам 4 31.01.2012 11:52
решить уравнение на паскале vadiprog Помощь студентам 1 24.10.2011 00:49
решить уравнение на паскаль dilja Помощь студентам 6 03.10.2011 19:53
Решить уравнение : используя схему горнера решить с меньшим количеством умножений! Rusl92 Помощь студентам 1 06.09.2009 23:24
помогите решить уравнение fist53 Паскаль, Turbo Pascal, PascalABC.NET 3 04.06.2009 22:47