Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа только с IF - THEN
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ксения
9.12.2004 15:02
Помогите написать программц , а то я в програмированнии еле-еле, а сегодня здавать лабораторную... unsure.gif


Цель задания

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



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

ВАРИАНТ РАБОТЫ : ax*x + b = 0
NightPaladin
9.12.2004 17:30
Я не понял надо написать программу для решения квадратных уравнений?
Ксения
9.12.2004 18:46
ax*x + b = 0

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

Код

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.
Ксения
9.12.2004 23:47
volvo спасибо большое! rolleyes.gif ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.