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

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

Форум программистов > Object Pascal: кроссплатформенные технологии > Задачка по Паскалю

Автор: l4r4n 28.10.2010, 05:30

Всем доброго утра!
Дали решить вот такую вот задачу:
user posted image

Если кто поможет, то заранее благодарен.

Автор: ~FoX~ 28.10.2010, 09:09

l4r4n, В центр помощи и/или за деньги и не надо пладить кловнов тем!!!

Автор: l4r4n 28.10.2010, 09:22

Лис, а где Центр помощи. Денег не жалко заплатил бы.
Не обяз-но так реагировать.
Я ведь прошу о помощи, для этого наверное и существует такие форумы, как эти.

Автор: Фантом 28.10.2010, 10:13

Даже для того, чтобы просить о помощи, надо хоть что-нибудь знать. Пока что никто так и не понял, в каком смысле то, что Вы уже второй раз закидываете на форум, является "задачкой по Паскалю".

Автор: ~FoX~ 28.10.2010, 10:42

l4r4n, http://forum.vingrad.ru/forum/Vingrad-help-center.html

Код


var  a,b,r:real;
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  r := (sin(a+b) - cos(a) * sin(b))/(cos(a-b) - sin(a) * sin(b));
  writeln('Result= ', r:10:5);
end.

Цитата(l4r4n @ 28.10.2010, 10:22

)

Не обяз-но так реагировать.

Зато обязательно читать правила форума!

Автор: l4r4n 28.10.2010, 12:31

Гыыы, спс Лис те большое.

Автор: l4r4n 31.10.2010, 15:23

А вот с этой не поможете?
user posted image

Лис поможешь?

Автор: mniip 31.10.2010, 18:36

алгебру учить нада!!!

sin(a+b)-cos(a)*sin(b)       sin(a)*cos(b)+cos(a)*sin(b)-cos(a)*sin(b)         sin(a)*cos(b)         sin(a)
----------------------------  =  ------------------------------------------------------  =  -------------------  =  ----------  =  tg(a)
cos(a-b)-sin(a)*sin(b)         cos(a)*cos(b)+sin(a)*sin(b)-sin(a)*sin(b)        cos(a)*cos(b)         cos(a)

Оч просто.

Автор: mniip 31.10.2010, 18:58

а вот с разорванными кусочными функциями сложнее

Автор: ~FoX~ 31.10.2010, 21:04

Цитата(l4r4n @ 31.10.2010, 16:23

)

Лис поможешь?

Конечно!
http://forum.vingrad.ru/forum/Vingrad-help-center.html
ЧИТАЙ ПРАВИЛА ФОРУМА Одна тема - один вопрос smile

Иначе забанят!

Цитата(mniip @ 31.10.2010, 19:36

)

алгебру учить нада!!!

Даже не поленился взял листик и вспомнил формулы приведения ))))

Цитата(mniip @ 31.10.2010, 19:58

)

а вот с разорванными кусочными функциями сложнее

Фигня:

Код


var  x, r:real;
begin
  write('x=');
  readln(x);
  if x >=3 then r := -x + 3*x +9
  else r := x/(x*x*x-1);
  writeln('Result= ', r:10:5);
end.

Автор: l4r4n 3.11.2010, 05:54

Алгебру я то знаю. Но все равно спасибо тебе.

Автор: l4r4n 5.11.2010, 14:01

Лис, помоги мне http://forum.vingrad.ru/forum/act-ST/f-592/t-314307/unread-1.html smile