Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal 7.0] Решения квадратного уравнения

Автор: Карина 10.9.2005, 22:04

Народ, помогите плизззз... smile

В универе задали составить прогу на Turbo Paskal 7.0, а я его вообще не знаю... Вот задание:
Составить структурированную программу для нахождения решения квадратного уравнения ax^+bx+c=0 с полным последованием возможных соотношений между коэффициентами этого уравнения и предполагая, что коэффициенты a, b, c не могут одновременно обратиться в ноль.
Пожалуйста...=((

Автор: Pakshin A. S. 10.9.2005, 22:30

ржунимагу....

Для начала: Pascal... а не Paskal. ЕНу если задали, то должны были объяснять как это делается!!! А раз вы не знаете как делается, то вы пропускали лекции и не изучали материал. Это нехорошо...

Автор: Guest 10.9.2005, 22:56

Если бы объяснили, я сюда не пошла бы... А когда на самой первой паре дали задание и мол как хотите так и решайте... Я думала что здесь помогут...

Автор: LSD 10.9.2005, 23:06

Карина вам надо будет объяснять преподавателю программу?

Автор: Карина 10.9.2005, 23:09

Нет, не надо... Препод просто проверит работает или нет...

Автор: LSD 10.9.2005, 23:16

Попробую, но завтра.

Автор: Guest 10.9.2005, 23:18

Пасиба)))

Автор: LSD 10.9.2005, 23:42

Вопрос: комплексные корни искать или говорить что корней нет?

Автор: Pakshin A. S. 11.9.2005, 08:39

Код


program solver; (*частично код от p0s0l*)

var a, b, c: real;

procedure InputZn;
begin
   Write ('Input A, B, C: ');
   ReadLn (a, b, c)
end;

function Diskr:real;
begin
 Diskr:= b*b - 4*a*c
end;

procedure AnyX;
begin
 writeln('X = any')
end;

procedure NoKvd;
beign
 writeln('X = ', (-c)/b:2:2)
end;

procedure DAns;
var
 d: real;
begin
 d := Diskr;
 if d < 0 then WriteLn ('Net resheniy!')
 else if d = 0 then WriteLn ('x=', (-b/(2*a)):2:2)
 else WriteLn ('x1=', ((-b + Sqrt(d))/(2*a)):2:2, ' x2=', ((-b - Sqrt(d))/(2*a)):2:2 );
end;


begin
 WriteLn ('Equation: A*x*x + B*x + C = 0');
 InputZn;
 if (a = 0) and (b = 0)
  then
   AnyX 
  else
   if (b <> 0) and (a = 0)
    then
     NoKvd
    else 
     DAns;
  ReadLn;
end.

Автор: LSD 11.9.2005, 12:00

Pakshin A. S.
О! Ведь могешь, мне даже паскаль ставить не пришлось smile

Автор: Pakshin A. S. 11.9.2005, 12:25

Цитата(LSD @ 11.9.2005, 13:00)

даже паскаль ставить не пришлось

А нафиг он вообще нужен? Блокнот - рулез!

Автор: LSD 11.9.2005, 12:33

А ты код не проверяешь?

Автор: Poseidon 11.9.2005, 13:21

Паскалевский код ведь и в Дельфи проверить можно. И необязательно паскиль ставить. Просто создать в Дельфе консольное приложение и все.

Вот в коде Пакшина есть ошибка smile

Точнее я бы сказал описка. В процедуре NoKvd.

Задание на дом: найти ее в кратчайшие сроки smile

А в общем код работает. Результат считает (правильно или нет не проверял)

Автор: LSD 11.9.2005, 13:23

Кстати у тебя ошибка, если a = 0 и b = 0, а c <> 0 (а так должно быть по условию), то решений нет. А у тебя написанно что x может быть любым.

Автор: Pakshin A. S. 11.9.2005, 13:23

Цитата(Poseidon @ 11.9.2005, 14:21)

Задание на дом: найти ее в кратчайшие сроки

Цитата(Poseidon @ 11.9.2005, 14:21)

А в общем код работает. Результат считает (правильно или нет не проверял)

Это код от p0s0l'а, т. е первый попавшийся на глаза код из поиска по форуму... я только разделил его на процедурки... smile

Автор: LSD 11.9.2005, 13:24

Цитата(Poseidon @ 11.9.2005, 14:21)

Паскалевский код ведь и в Дельфи проверить можно. И необязательно паскиль ставить. Просто создать в Дельфе консольное приложение и все.

Delphi ставить дольше smile

Автор: Pakshin A. S. 11.9.2005, 13:24

Цитата(LSD @ 11.9.2005, 14:23)

Кстати у тебя ошибка, если a = 0 и b = 0, а c <> 0 (а так должно быть по условию), то решений нет. А у тебя написанно что x может быть любым.

Ну да.. забыл еще одно условие...

Автор: Гость_Паша 5.10.2005, 20:02

М	Читайте правила форума, прежде чем задвать вопросы, не относящиеся к данному топику

Автор: Guest 15.10.2005, 21:59

Ну совсем чайник, можете ли помочь составить в Паскале (турбо) такую программу:
Удалено комодератором Плизз! Ну очень надо. smile

!	Один топик- один вопрос!!!

Автор: Санек 31.10.2005, 18:53

Помогите Плиз! В универе задали составить прогу на Pascal. Понятия не имею, как она делается. Если у кого есть какие идеи - пишите на мыло аlех20z@mаil.ru. Заранее спасибо! Санек