Программирование. Pascal ABC.
Задание: Составить задачу с использованием процедуры (соответственно решение тоже нужно).
Ответы
Ответ дал:
0
Решение квадратного уравнения. Из интернета.
PROGRAM S;
VAR Y1,Y2: REAL ;
PROCEDURE SQ (A,B,C : REAL ; VAR X1,X2 : REAL );
VAR D: REAL ;
BEGIN
D:=B*B-4*A*C;
X1:= (-B+ SQRT (D))/(2*A);
X2:= (-B- SQRT (D))/(2*A);
END ;
BEGIN (*PROGRAM*)
SQ(1,2,-3,Y1,Y2);
WRITELN('Y1=',Y1,'Y2=',Y2);
END .
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад