Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 10.

Вычисление корней квадратного уравнения

Program Quad;
  var
      А,В,С: real;{ Переменные для хранения коэффициентов }
      D: real; { Переменная для дискриминанта }
      X1,Х2: real;{ Переменные для получения корней}
begin
  writeln('Введите коэффициенты A,B,C: ');
  readln(A,B,C);
  D:=Sqr(B) - 4*А*С;
  if D < 0 then
      writeln('Уравнение не имеет вещественных корней ')
  else
    if D=0 then
        writeln('У уравнения один корень', -В/(2*А):6:2)
    else
{ Ниже идет составной оператор }
      begin
        Х1:=(-В + Sqrt(D))/(2*A);
        Х2:=(-В - Sqrt(D))/(2*A);
        writeln('У уравнения два корня:',Х1:6:2, Х2:6:2)
      end;
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru