Описать функцию

@Wolume82 · Регистрация: 26.08.2009

Author24 — интернет-сервис помощи студентам

Описать функцию RootCount(A,B,C),определяющую по дискриминанту количество корней для каждого из пяти уравнений,заданных своими коэффициентами.

@Puporev · 01.09.2010, 19:14

Pascal

uses crt;
function RootCount(a,b,c:real):byte;
var d:real;
begin
d:=b*b-4*a*c;
if d<0 then RootCount:=0
else if d=0 then RootCount:=1
else RootCount:=2;
end;
var i,a,b,c:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  writeln('Введите коэффициенты a,b,c квадратного уравнения ',i);
  readln(a,b,c);
  writeln('Количество корней=',RootCount(a,b,c));
 end;
readln
end.

@Wolume82 0 / 0 / 0 Регистрация: 26.08.2009 Сообщений: 14
		1
	Описать функцию 01.09.2010, 19:02. Показов 1332. Ответов 1 Метки нет (Все метки) Описать функцию RootCount(A,B,C),определяющую по дискриминанту количество корней для каждого из пяти уравнений,заданных своими коэффициентами. 0

	01.09.2010, 19:14

Описать функцию

Решение