29.03.2024г.14:00
Добро пожаловать на DevelStudio.3dn.ru — Уникальное для DevelStudio!
ГлавнаяФорумУрокиПримерыИсходникиНов. СообщенияЗаказать исходникВаша ссылка
Участники · Правила форума · Поиск · RSS
  • Страница 1 из 1
  • 1
Форум » DevelStudio (PHP) » Песочница » Помогите с программой (Квадратные уравнения)
Помогите с программой
sheldon
Суббота, 05.01.2013, 23:49
Группа:
 
Пользователь
Сообщений:
 
1
Репутация:
 
0

Код
$a = c("edit1")->text;
$b = c("edit2")->text;
$c = c("edit3")->text;
$D = $b*$b - 4*$a*$c;
$E = 0;
If($D<$E)
{
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d<0, òî óðàâíåíèå íå èìååò êîðíåé";
c("memo1")->text="-";
c("memo2")->text="-";
}
elseif ($D=$E)
{
echo $x1=-$b/2*$a;
c("memo1")->text=$X1;
c("memo2")->text="-";
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d=0, òî óðàâíåíèå èìååò 1 êîðåíü";
c("memo6")->text="x=-b/2a";
c("memo7")->text=$x1;
}
else
{
echo
$x1=(-$b - sqrt($D))/(2*$a);
$x2=(-$b + sqrt($D))/(2*$a);
c("memo1")->text=$X1;
c("memo2")->text=$X2;
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d>0, òî óðàâíåíèå èìååò 2 êîðíÿ";
c("memo6")->text="x1=(-b - root(D))/(2*a)";
c("memo7")->text=$x1;
c("memo8")->text="x2=(-b + root(D))/(2*a)";
c("memo9")->text=$x2;
}

это мой код.
Помогите исправить...программа вычисляет корень квадратого уравнения: ax^2+bx+c=0
 
Форум » DevelStudio (PHP) » Песочница » Помогите с программой (Квадратные уравнения)
  • Страница 1 из 1
  • 1
Поиск:

При копировании материалов → указывайте ссылку на источник!
DevelStudio.3dn.ru © 2011 Все права защищены. Используются технологии uCoz DevelStudio
Счётчики
Сегодня нас посетило
Показано 2 последних комментария из 252.
С помощью этого компонента можно прослушивать музыку в потоке TMusic v1.2 . дальше »
С помощью этого компонента можно прослушивать музыку в потоке TMusic v1.1 . дальше »
Мини-статистика
Всего зарегистрировано: 574
Постов на форуме: 2066
Тем на форуме: 452