var f, x: real; BEGIN writeln (' введите значение x') ; readln (x); f:=-2*x*x+4*x-1 . 4; writeln (' значение функции f равно ', f) ; readln; END.
Answers & Comments
WaffenJet
F,x переменные begin начало счета writeln ввод х с новой троки readln задать значение х с новой строки Программа решает уравнение Выводит значение f readln задерка экрана конец программы. Данная программа считает уравнение F;=-2*x*x+4*x-1 .4 с значениями которые задает пользователь.
Answers & Comments
begin начало счета
writeln ввод х с новой троки
readln задать значение х с новой строки
Программа решает уравнение
Выводит значение f
readln задерка экрана
конец программы.
Данная программа считает уравнение F;=-2*x*x+4*x-1 .4 с значениями которые задает пользователь.