Работа только с IF - THEN Опции

[Ксения]

Помогите написать программц , а то я в програмированнии еле-еле, а сегодня здавать лабораторную...


Цель задания

1. получене навыков в использовании условного оператора в программе.
2. Знакомство с задачами , для решения которых используются условные операторы.



1. программы должна выполняться при любых значенимях данных.
2. правельность работы всех ветвей программы долна быть проверена на тестах.
3. При отсутствии решения или бесчисленном множестве решений должен быть напечатан соответствующий текст. Например : НЕРАВЕНСТВО РЕШЕНИЙ НЕИМЕЕТ или ЛЮБОЕ Х ЯВЛЯЕТСЯ РЕШЕНИЕМ УРАВНЕНИЯ и т.п.

ВАРИАНТ РАБОТЫ : ax*x + b = 0

[NightPaladin]

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

[Ксения]

ax*x + b = 0

А и B вводятся с клавиатуры , При отсутствии решения или бесчисленном множестве решений должен быть напечатан соответствующий текст. Например : НЕРАВЕНСТВО РЕШЕНИЙ НЕИМЕЕТ или ЛЮБОЕ Х ЯВЛЯЕТСЯ РЕШЕНИЕМ УРАВНЕНИЯ !

[volvo]

Ксения

Код

var
 a, b, t: real;

begin
 write('Введите a > '); readln(a);
 write('Введите b > '); readln(b);
 if a = 0 then
   begin
     if b <> 0 then
       writeln('Неравенство решений не имеет')
     else
       writeln('Любое Х является решением уравнения')
   end
 else
   begin
     t := -b / a;
     if t < 0 then
       writeln('Неравенство решений не имеет')
     else
       if t = 0 then
         writeln('Один корень: x = 0')
       else
         begin
           writeln('Два корня:');
           writeln('x1 = ', (sqrt(t)):10:6);
           writeln('x2 = ', (-sqrt(t)):10:6);
         end;
   end
end.

[Ксения]

volvo спасибо большое! ;)