Исходник программы Паскаль, которая находит корни квадратного уравнения по заданным коэффициентам

Исходник программы Паскаль, которая находит корни квадратного уравнения по заданным коэффициентам

Добрый день. Сегодня я хочу поделиться программой, написанной на языке программирования Паскаль, а именно исходник программы, которая находит корни квадратного уравнения.  

Итак, задача звучит следующим образом:

"Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов".

Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет. 

Исходный код программы нахождения корней:

var a,b,c: real;
    x1,x2,D: real;
begin
  readln(a,b,c);
  D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then begin
    x1 := -b/2/a;
    writeln('x1=x2=',x1);
  end
  else begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('x1=',x1,' x2=',x2);
  end;
end.

Скачать исходник: koren2.pas

В последнее время я перешел на linux, совсем забыв про windows 8. В связи с переездом с одной системы на другую, я как-то потерял этот исходник и не выкладовал его с 2012 года! Теперь я загрузил старый компьютер с windows и нашел на рабочем столе этот исходник. Кстати, если Вас интресуют  Темы для Windows 8.1, то посетите сайт 7themes.su.

Дата: 2014-06-11 17:48:56   Просмотров: 119808

Теги: Исходник исходники Паскаль Pascal скачать