Вычислить значение функции, заданной графически

@veradim · Регистрация: 28.02.2014

Author24 — интернет-сервис помощи студентам

Дано действительное число a. Вычислить f(a), где f-периодическая функция с периодом 1,5, совпадающая на отрезке [0,1.5]. С функцией,график которого изображен на рисунке.

@Puporev · 10.03.2014, 15:35

Delphi

{$R *.dfm}
function f(x:real):real;
begin
if x<1 then f:=1.5*x-0.5
else f:=-3*x+4
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
    c:integer;
begin
val(Edit1.Text,a,c);
if c<>0 then
 begin
  ShowMessage('Çíà÷åíèå à ââåäåíî íåâåðíî');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
if a<0 then
 begin
  while a<0 do
  a:=a+1.5
 end
else if a>1.5 then
 begin
  while a>1.5 do
  a:=a-1.5
 end;
Edit2.Text:='f='+floattostrF(a,ffFixed,8,2);
 
end;

@veradim 0 / 0 / 0 Регистрация: 28.02.2014 Сообщений: 38
		1
	Вычислить значение функции, заданной графически 10.03.2014, 11:46. Показов 1281. Ответов 1 Метки нет (Все метки) Дано действительное число a. Вычислить f(a), где f-периодическая функция с периодом 1,5, совпадающая на отрезке [0,1.5]. С функцией,график которого изображен на рисунке. Изображения 0

	10.03.2014, 15:35

Вычислить значение функции, заданной графически

Решение