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

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

Форум программистов > Центр помощи > [Pascal] Посчитать выражение используя процедуру

Автор: opex333 11.12.2008, 18:57

Здравствуйте,помогите пожалуйста решить задачу,она легкая но не могу решить,через процедуру
y=tg(a+b)/tg(a)+tg(b);

Автор: Zhenya12 11.12.2008, 19:28

что то я тебя не понял почему ти не можеш решить .)

procedure rrr(a,b:real;var y:real)
begin
y=tg(a+b)/tg(a)+tg(b);
end;

Вот и все )

Автор: kemiisto 11.12.2008, 21:23

Zhenya12, во-первых, используй подсветку кода (выпадающий список "Код").
А во-вторых, давно ли у нас в PASCAL появилась функция tg? smile

Да ты ещё и присваивать значение переменной не умеешь?! smile

Отступы, пропущенные ; Незачёт! smile

Цитата(Zhenya12 @ 11.12.2008, 17:28

)

y=tg(a+b)/tg(a)+tg(b);

Код


procedure rrr(a, b: real; var y: real);
begin
  y := sin(a + b) / cos(a + b) / sin(a) / cos(a) + sin(b) / cos(b);
end;

Автор: opex333 12.12.2008, 06:51

kemiisto, Спасибо огромное выручил очень

Автор: Zhenya12 15.12.2008, 21:12

Цитата(kemiisto @ 11.12.2008, 21:23)

Да ты ещё и присваивать значение переменной не умеешь?! smile

Отступы, пропущенные ; Незачёт! smile

Цитата(Zhenya12 @ 11.12.2008, 17:28

)

y=tg(a+b)/tg(a)+tg(b);

Код


procedure rrr(a, b: real; var y: real);
begin
  y := sin(a + b) / cos(a + b) / sin(a) / cos(a) + sin(b) / cos(b);
end;

Все я умею просто нащот тангенса забил. а на то что я забил писать две точки ето мелачи.) Потомучто паскаль ето дохлий язик я больше пишу на Microsoft Visual Studio 2005. Потому паскаль чучуть забиваю. ну смисел там есть.) Как гаваритса кто знаэт тот поймет.)