Информатика, опубликовано 2018-08-22 18:15:54 by Гость
Программирование. Pascal ABC.Задание: Составить задачу с использованием процедуры (соответственно решение тоже нужно).
Ответ оставил Гость
Решение квадратного уравнения. Из интернета.PROGRAM S;VAR Y1,Y2: REAL ;PROCEDURE SQ (A,B,C : REAL ; VAR X1,X2 : REAL );VAR D: REAL ;BEGIND:=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 .
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.