1)НАЙТИ СУММУ ДВУХ ЧИСЕЛ(ФУНКЦИИ) С ПОМОЩЬЮ ПРОЦЕДУРЫ И ФУНКЦИИ ,ИСПОЛЬЗУЯ ЭТИ 2 ОПЕРАТОРА 2)составить программу вычисления квадратного уравнения ПОМОГИТЕ ПЖ С ЗАДАЧАМИ ПЖЖЖЖ
finction Summ(x,y:integer):integer; begin result:=x+y; end;
procedure Summ(x,y:integer; var result:integer); begin result:=x+y; end;
Квадратное уравнение - сам. Главное, не забудь при вычислении дискриминанта, что квадратный корень нельзя извлекать из отрицательного числа. Во всяком случае в школе.
Answers & Comments
finction Summ(x,y:integer):integer;
begin
result:=x+y;
end;
procedure Summ(x,y:integer; var result:integer);
begin
result:=x+y;
end;
Квадратное уравнение - сам. Главное, не забудь при вычислении дискриминанта, что квадратный корень нельзя извлекать из отрицательного числа. Во всяком случае в школе.