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

Задача 9.

Анализ дискриминанта квадратного уравнения

program Diskr;
  var
      А,В,C,D: real;
begin
  write('Введите коэффициенты А,В,С:');
  readln(A,B,C);
  D:=SQR(B)-4*A*C;
  if D >= 0 then
    if D > 0 then
      writeln('Два вещественных корня')
    else
      writeln('Один вещественный корень')
  else
  writeln('Heт вещественных корней');
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100