Помогите написать программу 17 задания)заранее спасибо))

Question

Помогите написать программу 17 задания)заранее спасибо))

---

---

Answer 1

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) <br>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

Comments

спасибо большое,messagedlg('y= ' + floattostr(y),mtinformation,[mbok],0); подскажи это что за строка,что она значит?)

---

и ещё это Лазарус?)

---

месседж это вывод сообщения в диалоговом окне

---

да это lazarus

---

floattostr это перевод числа в строку

---

и ещё это же программа системы?)

---

mbok кнопка ,mtinformation тип сообщения

---

не знаю,что такое программа системы

---

ну задание,программа составлена для системы уравнений)

---

условие не похоже на систему