Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal 7.0] Решения квадратного уравнения  
:(
    Опции темы
Карина
Дата 10.9.2005, 22:04 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Народ, помогите плизззз... smile В универе задали составить прогу на Turbo Paskal 7.0, а я его вообще не знаю... Вот задание:
Составить структурированную программу для нахождения решения квадратного уравнения ax^+bx+c=0 с полным последованием возможных соотношений между коэффициентами этого уравнения и предполагая, что коэффициенты a, b, c не могут одновременно обратиться в ноль.
Пожалуйста...=((
  Вверх
Pakshin A. S.
Дата 10.9.2005, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61
smile ржунимагу....

Для начала: Pascal... а не Paskal. ЕНу если задали, то должны были объяснять как это делается!!! А раз вы не знаете как делается, то вы пропускали лекции и не изучали материал. Это нехорошо...
PM   Вверх
Guest
Дата 10.9.2005, 22:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Если бы объяснили, я сюда не пошла бы... А когда на самой первой паре дали задание и мол как хотите так и решайте... Я думала что здесь помогут...
  Вверх
LSD
Дата 10.9.2005, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
Карина вам надо будет объяснять преподавателю программу?


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Карина
Дата 10.9.2005, 23:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Нет, не надо... Препод просто проверит работает или нет...
  Вверх
LSD
Дата 10.9.2005, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
Попробую, но завтра.


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Guest
Дата 10.9.2005, 23:18 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Пасиба)))
  Вверх
LSD
Дата 10.9.2005, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
Вопрос: комплексные корни искать или говорить что корней нет?


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Pakshin A. S.
Дата 11.9.2005, 08:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61
Код

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.



Это сообщение отредактировал(а) Pakshin A. S. - 11.9.2005, 08:40
PM   Вверх
LSD
Дата 11.9.2005, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
Pakshin A. S.
О! Ведь могешь, мне даже паскаль ставить не пришлось smile


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Pakshin A. S.
Дата 11.9.2005, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61
Цитата(LSD @ 11.9.2005, 13:00)
даже паскаль ставить не пришлось

А нафиг он вообще нужен? Блокнот - рулез!
PM   Вверх
LSD
Дата 11.9.2005, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
А ты код не проверяешь?


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Poseidon
Дата 11.9.2005, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 5
Всего: 133
Паскалевский код ведь и в Дельфи проверить можно. И необязательно паскиль ставить. Просто создать в Дельфе консольное приложение и все.

Вот в коде Пакшина есть ошибка smile Точнее я бы сказал описка. В процедуре NoKvd.

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

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


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
LSD
Дата 11.9.2005, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

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


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Pakshin A. S.
Дата 11.9.2005, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61
Цитата(Poseidon @ 11.9.2005, 14:21)
Задание на дом: найти ее в кратчайшие сроки

smile smile smile

Цитата(Poseidon @ 11.9.2005, 14:21)
А в общем код работает. Результат считает (правильно или нет не проверял)

Это код от p0s0l'а, т. е первый попавшийся на глаза код из поиска по форуму... я только разделил его на процедурки... smile
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1223 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.