Форум программистов, компьютерный форум, киберфорум
Delphi
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.84/32: Рейтинг темы: голосов - 32, средняя оценка - 4.84
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
1

Программа, решает квадратные уравнения

12.05.2011, 17:55. Показов 6490. Ответов 21
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Я только вчера, после Паскаля начал изучать Delphi.
Появился вопрос
Мне надо составить программу для решения квадратного уравнения, то есть находила корни.
Вот:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13

var
a,b,c,x1,x2,dis,kor : real;
begin
a := StrTofloat (Edit1.Text);
b := StrTofloat (Edit2.Text);
c := StrTofloat (Edit3.Text);
dis:= sqr(b) - 4 * a * c;
If dis > 0 then Kor := Sqrt(dis);
x1 := (-b-kor) / (2 * a);
x2 := (-b+kor) / (2 * a);
Label4.Caption:= 'X1 = '+FloatToStr (x1) ;
Label5.Caption:= 'X2 = '+FloatToStr (x2) ;
end.
если не сложно проверьте на корректность.

P.S.
У меня выводит ошибку когда я хочу ввести число в Edit1.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 12.05.2011, 17:55
Ответы с готовыми решениями:

Квадратные уравнения
Написал программу: type TForm1 = class(TForm) a1: TEdit; b1: TEdit; c1: TEdit; ...

Квадратные уравнения
lbl1; var a,b,c,x,x1,x2,d:Real; s1:string; begin a:=StrToFloat(Edit1.Text); ...

Квадратные уравнения,дискриминант
Привет всем, мне нужна помощь. Составил програмку, которая решает квадратные уравнению по...

Правильно ли программа решает уравнение?
Дано задание: Составить программу в среде Delphi, которая выводит результат решения уравнения (само...

21
⚽
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
12.05.2011, 17:57 2
Pushin, этот код в каком событии лежит?
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
12.05.2011, 18:01  [ТС] 3
объясните новичку что вы имеете ввиду)))
0
⚽
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
12.05.2011, 18:04 4
Pushin, ну это же не весь код. И он должен быть в каком-то событии - нажатие кнопки, ввод текста, клик мыши и т.п.
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
12.05.2011, 18:14  [ТС] 5
ааа!
вроде понял.
(прикрепил скрин)
там отметил синим цветом, вот туда я нажал и ввёл код
Миниатюры
Программа, решает квадратные уравнения  
0
⚽
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
12.05.2011, 18:33 6
Цитата Сообщение от Pushin Посмотреть сообщение
ааа!
вроде понял.
(прикрепил скрин)
там отметил синим цветом, вот туда я нажал и ввёл код
а нужно нажимать на кнопку двойным щелчком и туда вводить этот код.

сейчас ты его ввел в событие изменение текста в edit1.
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
12.05.2011, 18:53  [ТС] 7
ну я так и делаю, ток всё равно ошибку выводит
может исходник кинуть?
0
⚽
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
12.05.2011, 18:54 8
Цитата Сообщение от Pushin Посмотреть сообщение
может исходник кинуть?
скинь сюда весь исходник. только в тэги не забудь обернуть.
1
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
12.05.2011, 18:57  [ТС] 9
вот, посмотри.
Вложения
Тип файла: rar программа.rar (2.5 Кб, 311 просмотров)
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
13.05.2011, 17:10  [ТС] 10
Сам разобрался!
пасиб за помощь.

Добавлено через 6 минут
Ещё один вопрос, как сделать из проекта EXE файл?

Добавлено через 3 часа 37 минут
хотя тож сам разобрался
0
Shaggy101
07.06.2011, 16:58 11
Pushin, можешь скинуть программу на почту ? Заранее спасибо
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
08.06.2011, 17:27  [ТС] 12
Тебе собственно зачем?
я свои ошибки уже давно понял.
0
56 / 56 / 5
Регистрация: 18.10.2009
Сообщений: 309
08.06.2011, 17:42 13
Если ты по такому простому коду не можеш зделать визуалку то у тебя оч низкий уровень знаний... и его прога те ничем непоможет поверь вот те курс молодого бойца :
1. http://www.ex.ua/view/3760964?r=28714 здесь сама основа программирования.
2. http://edumandriva.ru/edusoft/... zarus.html просмотри(все кроме того что с sql) Не смари что работают в lazarus программирование то на одном языке а компилятор то такое дело(Мое имхо что Лазарь удобнее Borland Delphi )
3. http://www.delphiexpert.ru/lessons.php тут куча маленьких уроков по решению разных проблем на delphi найдеш че те надо и попробуеш воплотить в жызнь а потом уже будеш ныть.
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
08.06.2011, 18:37  [ТС] 14
Цитата Сообщение от Wzz Посмотреть сообщение
Если ты по такому простому коду не можеш зделать визуалку то у тебя оч низкий уровень знаний... и его прога те ничем непоможет поверь вот те курс молодого бойца :
1. http://www.ex.ua/view/3760964?r=28714 здесь сама основа программирования.
2. http://edumandriva.ru/edusoft/... zarus.html просмотри(все кроме того что с sql) Не смари что работают в lazarus программирование то на одном языке а компилятор то такое дело(Мое имхо что Лазарь удобнее Borland Delphi )
3. http://www.delphiexpert.ru/lessons.php тут куча маленьких уроков по решению разных проблем на delphi найдеш че те надо и попробуеш воплотить в жызнь а потом уже будеш ныть.
слушай, я это писал когда только, только начинал программировать. Сейчас у меня такой вопрос не вызовет затруднений.
p.s. сайтик http://edumandriva.ru/edusoft/... zarus.html не работает))
0
56 / 56 / 5
Регистрация: 18.10.2009
Сообщений: 309
08.06.2011, 18:40 15
О_о вчера работал еще... ну вот тоже самое на другом сайте http://edumandriva.ru/edusoft/... zarus.html

p.s я ето не тебе писал а, Shaggy101.
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
08.06.2011, 18:48  [ТС] 16
ааа понял. А ты на lazarus прогаешь?
0
56 / 56 / 5
Регистрация: 18.10.2009
Сообщений: 309
08.06.2011, 19:00 17
Да, учился на нем и привык
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
08.06.2011, 19:40  [ТС] 18
=)
а я на Delphi, тож начал учиться на нём и привык.
0
56 / 56 / 5
Регистрация: 18.10.2009
Сообщений: 309
08.06.2011, 23:46 19
Ну ты ведь понимаеш что не купив прогу ты нечего комерческого писать несможеш?
0
0 / 0 / 0
Регистрация: 02.05.2011
Сообщений: 37
09.06.2011, 08:49  [ТС] 20
Цитата Сообщение от Wzz Посмотреть сообщение
Ну ты ведь понимаеш что не купив прогу ты нечего комерческого писать несможеш?
А ты думаешь для того что бы писать прибыльные проги, нужна обязательно лицензионная Delphi?
0
09.06.2011, 08:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 09.06.2011, 08:49
Помогаю со студенческими работами здесь

Программа вроде как работает только не решает
Здравствуйте помогите решить проблему. Только познаю Лазарус. Необходимо решить задачу. Программа...

Написать программу,которая решает квадратные уравнения
Написать программу,которая решает квадратные уравнения.

ООП: функция, которая решает квадратные уравнения.
Здравствуйте,начал только знакомиться с данной средой,написал простенькую программу,почему то не...

Программа, которая решает дифференциальные уравнения
Братцы, слышал что есть программа которая сама решает диффиренциальные уравнения. То есть вводишь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru