Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> система неравенств в паскаль, паскаль 
:(
    Опции темы
Илона
Дата 28.1.2004, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.1.2004
Где: Latvija

Репутация: нет
Всего: нет
Парни, помогите пожалуйста составить программку в паскаль. Я честно говоря далека от информатики, но зато обладаю другими способностями, но ето не важно. Мне надо составить программу решения неравенства.
a1x+b1>=0
a2x+b2>=0 Eti dva neravenstva zakljuceni v sistemu i nuzno sostavitj programmu reshenija etoj sistemi, pomoemu opredelitj promezutok! wink.gif
PM MAIL   Вверх
p0s0l
Дата 28.1.2004, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
А какие способности ? smile.gif
Если математика за какой-там-класс еще не вылетела окончательно из моей головы, то ответ будет x>=max(-b1/a1, -b2/a2):
Код
program pp;
var
 xmin,a1,a2,b1,b2 : real;
begin
 writeln ('введи a1,a2,b1,b2:');
 readln (a1, a2, b1, b2);
 if (a1 = 0) or (a2 = 0) then writeln('нет решений')
 else
 beign
{ может есть функция max в TP ? Лень смотреть...}
   xmin :=-b1/a1;
   if xmin < -b2/a2 then xmin := -b2/a2;
   writeln ('Решение: x >= ', xmin);
 end;
 readln;
end.




--------------------
С уважением, г-н Посол.
PM   Вверх
Pakshin A. S.
Дата 28.1.2004, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Немного по-другому и с учетом смены знака...

Код

var
a1,a1,b1,b2:integer;
x1,x2:real;
begin
readln(a1,a2,b1,b2);
if b1 * b2 * a1 * a2 <> 0
 then
  begin
   x1:=-a1/b1;
   x2:=-a2/b2;
   if (x1 > x2) and (a1 > 0)
    then
      writeln('От ', x1:5:3,' до плюс бесконечности.');
   if (x1 < x2) and (a2 > 0)
    then
      writeln('От ', x2:5:3,' до плюс бесконечности.');        
   if (x1 < x2) and (a2 < 0) and (a2 < 0)
     then
      writeln('От минус бесконечности до ', x1:5:3,'.');
   if (x1 > x2) and (a2 < 0) and (a2 < 0)
     then
      writeln('От минус бесконечности до ', x2:5:3,'.');
   if (a1 < 0) and (a2 > 0)
    then
     if x2 > x1
       then
         writeln('От ', x1:5:3,' до ',x2:5:3,'.')
       else
         writeln('Решения нет.');
   if (a1 > 0) and (a2 < 0)
    then
     if x2 < x1
       then
         writeln('От ', x2:5:3,' до ',x1:5:3,'.')
       else
         writeln('Решения нет.');
 end
else
 writeln('Данные не верны!');
readln;
end.

Мог ишибиться (проверьте) т. к. писал без предварительного обдумывания... biggrin.gif


P. S. Может смысл и тот. Но всегда лучше, если есть выбор...
PM   Вверх
Илона
Дата 28.1.2004, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.1.2004
Где: Latvija

Репутация: нет
Всего: нет
Большое спасибо вам парни!! я еще раз убедилась, что мир не без добрых людей!!!!!!!!!!!
PM MAIL   Вверх
Илона
Дата 28.1.2004, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.1.2004
Где: Latvija

Репутация: нет
Всего: нет
Парниб большое вам спасибо! Я убедилась еще раз что мир не без добрых людей!!!!!!!!!
PM MAIL   Вверх
p0s0l
Дата 29.1.2004, 02:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
пора идти мне в школу...



--------------------
С уважением, г-н Посол.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

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


 




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


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

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