Пятница, 29.03.2024, 11:12
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста решить!!!!!!
Помогите пожалуйста решить!!!!!!
KirillДата: Воскресенье, 17.01.2010, 17:02 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Помогите пожалуйста решить!!!! решение нужно в Паскале
Прикрепления: 4823082.jpg (23.6 Kb)


Сообщение отредактировал Kirill - Воскресенье, 17.01.2010, 18:26
 
ignorerДата: Воскресенье, 17.01.2010, 20:00 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
подожди 5 сек щас решу.

Добавлено (17.01.2010, 19:34)
---------------------------------------------
скажи, как найти тангенс и котангенс из синуса и косинуса

Добавлено (17.01.2010, 20:00)
---------------------------------------------
с тригонометрией я плохо дружу, но если sin/cos=tg, а 1/tg=ctg, то вот решение

Code
var a, b, x, y : real;
begin
  read(a, b, x);
  if a>=b then begin
   if (x>=5)and(x<=10)then y:=a-sin(x);
   if (x>10)and(x<=15)then y:=b/cos(x);
   if (x>15)and(x<=20)then y:=a/3*(sin(x)/cos(x));
   if (x>20)and(x<=25)then y:=sqrt(cos(x)/sin(x));
  end;
  write(y);
end.
 
KirillДата: Воскресенье, 17.01.2010, 20:29 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
спасибо Саня, ты гений!!!!!!!! biggrin

Сообщение отредактировал Kirill - Воскресенье, 17.01.2010, 20:32
 
ignorerДата: Воскресенье, 17.01.2010, 20:57 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Quote (Kirill)
спасибо Саня, ты гений!!!!!!!!

да незачто smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста решить!!!!!!
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024