Решаем задачи Абрамян на Паскале. Proc17

Proc17. Описать функцию RootsCount($$A$$, $$B$$, $$C$$) целого типа, определяющую количество корней квадратного уравнения $$A*x^2 + B*x + C = 0$$ ($$A$$, $$B$$, $$C$$ — вещественные параметры, $$A \not= 0$$). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: $$D = B^2 — 4*A*C$$.

Решение:

program Proc17;
function RootsCount(A,B,C:Real):Integer;
var D:Real;
begin
 D:=Sqr(B)-4*A*C;
 if D<0 then RootsCount:=0;
 if D=0 then RootsCount:=1;
 if D>0 then RootsCount:=2;
end;

var
  A, B, C:Real;
  i:Integer;
begin
 for i:=0 to 3 do
  begin
   Write('Введите  A: ');
   Readln(A);
   Write('Введите  B: ');
   Readln(B);
   Write('Введите  C: ');
   Readln(C);
   Writeln('У квадратного уровнения ',RootsCount(A,B,C),' корня.');
  end;
end.

program Proc17;

function RootsCount(A,B,C:Real):Integer;

var D:Real;

begin

D:=Sqr(B)-4*A*C;

if D<0 then RootsCount:=0;

if D=0 then RootsCount:=1;

if D>0 then RootsCount:=2;

end;

var

A, B, C:Real;

i:Integer;

begin

for i:=0 to 3 do

begin

Write('Введите A: ');

Readln(A);

Write('Введите B: ');

Readln(B);

Write('Введите C: ');

Readln(C);

Writeln('У квадратного уровнения ',RootsCount(A,B,C),' корня.');

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc17

Комментарии:

Добавить комментарий Отменить ответ