Ответы
Ответ дал:
0
procedure button1. click..;
var x,y:real;
code:integer;
begin
val(inputbox('ввод числа','введите x',''),x,code);
if (x<=-1) then y:=power(x,4)+sqrt(2)
else if (x<1) and (x>-1) then y:=tan(x)
else y:=exp(x)+ln(x);
messagedlg('y= ' + floattostr(y),mtinformation,[mbok],0);
end;
в uses classes,sysutils,forms... допиши math
var x,y:real;
code:integer;
begin
val(inputbox('ввод числа','введите x',''),x,code);
if (x<=-1) then y:=power(x,4)+sqrt(2)
else if (x<1) and (x>-1) then y:=tan(x)
else y:=exp(x)+ln(x);
messagedlg('y= ' + floattostr(y),mtinformation,[mbok],0);
end;
в uses classes,sysutils,forms... допиши math
Ответ дал:
0
и ещё это же программа системы?)
Ответ дал:
0
mbok кнопка ,mtinformation тип сообщения
Ответ дал:
0
не знаю,что такое программа системы
Ответ дал:
0
ну задание,программа составлена для системы уравнений)
Ответ дал:
0
условие не похоже на систему
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
10 лет назад