Создать

@Jan Luidgi · Регистрация: 20.05.2011

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

Написать Программу для определения значения функции

Код

    sin x +1,  если 1>x>0
F=cos x + x/2, если x<=0
    ln x/2,      иначе

Помогите люди добрые.

deathNC · 20.05.2011, 21:57

Delphi

var
  f, x: Real;
begin
  //...
  If (1 > x) and (x > 0) then
    f := Sin(x) + 1
  else if x <= 0 then
    f := Cos(x) + x/2
  else
    f := ln(x/2);
end;

@Jan Luidgi · 20.05.2011, 22:01 **[ТС]**

Спасибо, а Вы не могли бы проект помоч сделать?

deathNC · 20.05.2011, 22:13

Delphi

Program _func;
 
{Apptype Console}
 
var
  f, x: Real;
begin
  WriteLn('Return X:');
  ReadLn(x);
  If (1 > x) and (x > 0) then
    f := Sin(x) + 1
  else if (x <= 0) then
    f := Cos(x) + x/2
  else
    f := ln(x/2);
  WriteLn('F = ', f);
  ReadLn;
end.

Это содержимое "_func.dpr". Создай такой файл, и открой через дельфи. Потом запускай программу, и юзай на здоровье.
Примечание: В коде могут быть ошибки, я его ручками в сообщении прям набрал

Добавлено через 48 секунд
ага, вот так надо третью строчку написать:

Delphi

1	{$Apptype Console}

@DRexaz · 20.05.2011, 22:15

то что надо

@Jan Luidgi · 20.05.2011, 22:22 **[ТС]**

Спасибо большое.

deathNC · 20.05.2011, 22:31

Какие ещё будут вопросы?

@Jan Luidgi 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 4
		1
	Создать 20.05.2011, 21:30. Показов 372. Ответов 6 Метки нет (Все метки) Написать Программу для определения значения функции Код sin x +1, если 1>x>0 F=cos x + x/2, если x<=0 ln x/2, иначе Помогите люди добрые. 0

@Jan Luidgi 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 4
	20.05.2011, 22:01 [ТС]	3
	Спасибо, а Вы не могли бы проект помоч сделать? 0

@DRexaz 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 7
	20.05.2011, 22:15	5
	то что надо 0

@Jan Luidgi 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 4
	20.05.2011, 22:22 [ТС]	6
	Спасибо большое. 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	20.05.2011, 22:31	7
	Какие ещё будут вопросы? 0