Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Вычисление выражения функции

Автор: golden 30.11.2006, 18:53

Задача:
Даны действительные числа s и t. Вычислить f(t, -2s, 1.17)+f(2.2, t, s-t), где £(a,b,c)=2a-b-sinc/5+[c].

Пояснения:
[c]- по модулю.
£- по моему это интеграл.

Ребята помогите пожалуйсто с программой. Требуется самое простое решение задачи.

Автор: kali 30.11.2006, 19:20

Цитата

£- по моему это интеграл.

А по моему это описание функции f smile

Код


program qqq;

uses math;

var 
  s,t:real;

function f(a,b,c:real):real;
begin
  f:=2*a-b-sin(c)/5+abs(c);
end;

begin
  readln(s);
  readln(t);
  writeln(f(t, -2*s, 1.17)+f(2.2, t, s-t));
end.

P.S. знак [] обозначает целую часть числа,
так что если модуль это тебе кажется, как и интеграл,
то вместо abs используй int.

Автор: golden 30.11.2006, 20:13

Ок! Спасибо прога работает!RESPECT.