Задание № 4. Использование условных операторов

1. Разработайте консольную программу решения системы неравенств:

2. Исходные данные – коэффициенты a1, b1, a2, b2 целого типа и вводятся с клавиатуры. Результат вещественного типа и выводится на экран.

3. Для ввода используются следующие значения: a1=2, b1=-1, а2=4, b2=6.

4. Листинг программы должен иметь примерно следующий вид:

program Zadanie_8;

{$APPTYPE CONSOLE}

Uses

SysUtils;

Var

a1,a2,b1,b2: integer; // Описание исходных коэффициентов

r1,r2: real; // Описание выходных результатов

begin

writeln('Vvedite a1=');

readln(a1); // Ввести a1 и нажать Enter

writeln('Vvedite b1=');

readln(b1); // Ввести b1 и нажать Enter

writeln('Vvedite a2=');

readln(a2); // Ввести a2 и нажать Enter

writeln('Vvedite b2=');

readln(b2); // Ввести b2 и нажать Enter

r1:=-b1/a1; // Вычисление результатов

r2:=-b2/a2;

if (r1<0) and (r2<0) // Условный оператор

then case r1<=r2 of // Оператор выбора

false: writeln('Otvet: X<',r1:3:2);

true: writeln('Otvet: X<',r2:3:2);

End

else case r1>r2 of

false: writeln('Otvet: X<',r1:3:2);

true: writeln('Otvet: X<',r2:3:2);

end;

readln

end.

5. В условный оператор включен оператор выбора, который в зависимости от того, какое из значений результатов меньше (или больше) выбирает путь вывода результата на экран.

6. Откомпилируйте и выполните программу. При наличии ошибок, исправьте их.

7. При отсутствии ошибок вы должны получить результат, представленный на рис. 3.

8. Сохраните проект программы в папке \Мои документы\ЛЗ-21\Задание-04 под именем Zadanie_8.

Дата добавления: 2015-07-08