Pascal

← →
Касабланка (2006-09-21 18:17) [0]

Привет всем, подскажите пожалуйста как на паскале написать прогу для решения квадратных уровнений. Я пробывал писать но у меня получалось не правильно, помогите пожалуйста.

← →
TUser © (2006-09-21 18:19) [1]

$100

За выдачу комплексных корней + $100

← →
Наиль © (2006-09-21 18:19) [2]

Давай свою программу, потправим.
А делать за тебя твою работу, ни кто не будет.

← →
Касабланка (2006-09-21 18:24) [3]

uses crt;
var a,b,c,d,x,x1,x2:real;
begin
clrscr;
Writeln("‚ ");
Readln(a,b,c);
d:=b*b-4*a*c;
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
Writeln(x1:5:2,,x2:5:2);
readln;
end.
Сдесь нужно будет добавить проверку дискриминанта, но это я потом сделаю сам. Нужно проверить на числах 2,0,-2 если корни будут 4 и -4 то это не верно.

← →
TUser © (2006-09-21 18:29) [4]

Ну что жб надо добавить - оператор if.

← →
palva © (2006-09-21 18:30) [5]

Скобки пропущены
x1:=(-b-sqrt(d))/(2*a);
и в следующей строке тоже

← →
Рамиль (с) (2006-09-21 18:31) [6]

> x1:=(-b-sqrt(d))/2*a;
> x2:=(-b+sqrt(d))/2*a;

← →
Palladin © (2006-09-21 20:43) [7]

:) интересно... а автор вообще их решать умеет..

← →
palva © (2006-09-21 20:46) [8]

Рамиль (с) (21.09.06 18:31) [6]
Знаменатель тоже в скобках должен быть.

← →
Leonid Troyanovsky © (2006-09-21 20:48) [9]

> Palladin © (21.09.06 20:43) [7]

> :) интересно... а автор вообще их решать умеет..

IMHO, интересней огласить бюджет.

> TUser © (21.09.06 18:19) [1]
> За выдачу комплексных корней + $100

Каждому.

--
Regards, LVT.

← →
Virgo_Style © (2006-09-21 20:51) [10]

Leonid Troyanovsky © (21.09.06 20:48) [9]
Каждому.

За одно сообщение.

← →
grisme © (2006-09-21 20:56) [11]

Так интересно, попробуйте представить себя в возрасте автора, такая перед ним задача стоит - ГЛОБАЛЬНАЯ(я серьезно)-, все ведь почти так начинали...%0)
нормально поставил вопрос, сформулировал проблему, как тут не похвалить, хоть и за начальное, но старание..%0)

← →
grisme © (2006-09-21 20:56) [12]

← →
grisme © (2006-09-21 20:57) [13]

извиняюсь за 2й пост %0) нечаянно

← →
Leonid Troyanovsky © (2006-09-21 21:01) [14]

> Virgo_Style © (21.09.06 20:51) [10]

> Каждому.
> За одно сообщение.

Это несерьезно.
За каждое.

--
Regards, LVT.

← →
Palladin © (2006-09-21 21:03) [15]

> [11] grisme ©

хм... а какой у автора возраст?

← →
Anatoly Podgoretsky © (2006-09-21 21:41) [16]

Я за посимвольную оплату.

← →
Leonid Troyanovsky © (2006-09-21 21:47) [17]

> Anatoly Podgoretsky © (21.09.06 21:41) [16]

> Я за посимвольную оплату.

Мы ж не кровопийцы, даже без учета цитирования.

Слышь, grisme © (21.09.06 20:57) [13], с тебя $597.

--
Regards, LVT.

← →
Плохиш © (2006-09-21 22:04) [18]

> grisme © (21.09.06 20:56) [11]
> Так интересно, попробуйте представить себя в возрасте автора,
> такая перед ним задача стоит - ГЛОБАЛЬНАЯ(я серьезно)-,
> все ведь почти так начинали

Это ты правильно слово применил :-) Потому что такое начало я вижу часто у поколения пепси, к сожалению.

← →
Ketmar © (2006-09-21 22:17) [19]

ой, ладно вам. помню, как радовался, сделав подобную софтину. целых 10 секунд. %-)

← →
Игорь Шевченко © (2006-09-21 23:05) [20]

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

Ketmar © (21.09.06 22:17) [19]

Ты 10 секунд делал или 10 секунд радовался ? :)

← →
Ketmar © (2006-09-21 23:10) [21]

>[20] Игорь Шевченко(c) 21-Sep-XLI A.S., 23:05
>Ты 10 секунд делал или 10 секунд радовался ? :)
радовался. делал дольше. печатал птому что плохо. а сейчас, кстати, вообще не сделаю. потому что формулу забыл. вот.

Решение квадратного уравнения, это первая программа которая по мооему скромному, должна писаться программистом полностью самостоятельно. Если он этого не может - программистом ему не быть.

Первый раз я ее написал на МК-61, через 10 минут знакомства с этим красавцем. И на любом языке(который это допускает) - я вместо "Привет, чудный мир", первым делом пишу именно эту программу.

>[22] Думкин(c) 22-Sep-XLI A.S., 06:00
>чудный мир", первым делом пишу именно эту
>программу.
а я -- текстовый редактор и тетрис...

> Ketmar © (22.09.06 06:50) [23]

Всяко если штангенциркулем толще.

Редактор не писал, а тетрис писал - как часть коммерческого проекта.

>[24] Думкин(c) 22-Sep-XLI A.S., 07:18
>Редактор не писал, а тетрис писал - как часть
>коммерческого проекта.
а я и то, и другое, и не раз -- но никогда не платили. последний более-менее редактор и тетрис -- как демки для ALISP3. редактор -- потому что нравится. тетрис -- потому что мне сказали, что без тетриса -- низачот.

> Ketmar © (22.09.06 07:32) [25]

Первый тетрис увидел в 1988 на СМ-4. Графика шла на телевизор. Автор писал егго на асме и кодах. Жуть. Там несколько игрушек было - все на асме и кодах. Один изх авторов - весьма колоритен был. Почти ботаник.

>[26] Думкин(c) 22-Sep-XLI A.S., 07:36
>Один изх авторов - весьма колоритен был.
>Почти ботаник.
да ладно. я сам ботаник. правда, без очков -- потому что неудобно. точнее, часто в очках, но тёмных. а в остальном -- вполне.

> Ketmar © (22.09.06 07:52) [27]

Так и ты колоритен. Фотку со Шреком аля Пашей видел. :)
офтоп. Пора ветку в Потрепаться. Там и бабки поделить.

>[28] Думкин(c) 22-Sep-XLI A.S., 08:14
>Так и ты колоритен. Фотку со Шреком аля Пашей
>видел. :)
ну да. а ещё я умён и обаятелен. только никто этого ещё не понял.

>офтоп. Пора ветку в Потрепаться. Там и бабки
>поделить.
упс. вот что значит -- пользоваться клиентом. перестал обращать внимание на то, где именно ветка живёт. был уверен, что мы уже в "трепологии".

кстати, клиент честно опрашивает счётчики. а пока читал из Оперы -- их злобно резал адманчер. странно.

Pascal Найти похожие ветки