Программирование. pascal abc. : составить с использованием - вопрос №2468535 от Анютка45458 09.08.2022 15:35

Question

Информатика: Программирование. pascal abc. : составить с использованием процедуры (соответственно решение тоже нужно).

Анютка45458 · Answer

Решение квадратного уравнения. Из интернета. 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 ....