[Заказ рекламы]

Вернуться   Форум ICQMAG.Ru > Компьютеры/Интернет > Программирование

Важная информация

Программирование C++ / C# / Delphi / PHP / Perl / MySQL

Ответ
 
Опции темы Опции просмотра
Старый 15.12.2009, 08:54   #1
Новичек
 
Аватар для [AeR]
 
Регистрация: 23.11.2009
Сообщений: 35
Репутация: 6

ICQ: 275-220
По умолчанию Подскажите плиз...TP 7.0

Вот решил написать программу для решения квадратных уравнений.

PHP код:
program reshatel_kvadratnyh_uravnenii;
  
uses crt;
    var
  
a,b,c,D,x1,x2:real;
begin
  clrscr
;
  
writeln('** Reshatel kvadratnyh uravnenii v.0.1 **');
  
writeln('');
  
write('Vvedite chislo a -> ');
  
readln(a);
  
write('Vvedite chislo b -> ');
  
readln(b);
  
write('Vvedite chislo c -> ');
  
readln(c);
D:=b*b-4*a*c;
begin
  
if D<0 then writeln('Net resheniya')
         else 
x1:=(-b+sqrt(D))/2*a;
         
x2:=(-b-sqrt(D))/2*a;
         
end;
writeln('Diskriminant kvadratnogo uravneniya -> ',D:15:7);
writeln('x1 kvadratnogo uravneniya -> ',x1:15:7);
writeln('x2 kvadratnogo uravneniya -> ',x2:15:7);
writeln('');
writeln(' MaDe bY AeR All right RecEiVeD...');
writeln('');
writeln(' ICQ# = 275-220 ');
readln;
end
От begin'a до end;'a - область с ошибкой по моему мнению, программа конечно же работает, но не так как я хочу. Мне же нужно сделать так, чтобы при D<0 программа выводила 'нет решения', а у меня просто выходит.

Подскажите, плиз, что-нибудь.
__________________
[Ссылка заблокирована: Зарегистрируйтесь!]

Последний раз редактировалось [AeR]; 15.12.2009 в 11:33.
Offline   Ответить с цитированием
Старый 15.12.2009, 09:38   #2
Прибывший
 
Аватар для Nefised
 
Регистрация: 14.12.2009
Сообщений: 14
Репутация: 5

По умолчанию Re: Подскажите плиз...TP 7.0

Я посмотрела, правильно всё.
Закинула в Pascal ABC, ввела к примеру а=1 b=4 c=5. И всё нормально, вывел 'Net resheniya'.
Offline   Ответить с цитированием
Спасибо:
Старый 15.12.2009, 10:19   #3
Новичек
 
Аватар для [AeR]
 
Регистрация: 23.11.2009
Сообщений: 35
Репутация: 6

ICQ: 275-220
По умолчанию Re: Подскажите плиз...TP 7.0

Cтранно...у меня тупой вылет из программы.
__________________
[Ссылка заблокирована: Зарегистрируйтесь!]
Offline   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 02:57. Часовой пояс GMT +3.
 



|