Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2010, 11:33   #1
SIvk
 
Регистрация: 25.02.2010
Сообщений: 8
По умолчанию О треугольнике.Турбо Паскаль.

1.найти третью сторону треугольника, две другие стороны которого равны a и b, а угол между этими сторонами равен ® (в графдусах)
2.составить программу для определения вида треугольника (прямоугольный, тупоугольный, остроугольный), если по данным трем отрезкам его можно построить
я чайник (
%)
SIvk вне форума Ответить с цитированием
Старый 25.02.2010, 12:02   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
1.
Запросто. Формулу математическую скажи.
Цитата:
2.
Тоже не сложно - с тебя формула с меня код.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.02.2010, 13:04   #3
Rusat
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 17
По умолчанию

Здесь используется теорема косинусов. Примерно так:
Код:
program treugolnik;
 var a,b,c,alpha:real;
 begin
  Write('введите сторону a '); readln(a);
  Write('введите сторону b '); readln(b);
  Write('введите угол  '); readln(alpha);
  c:=sqrt(a*a+b*b-2*b*cos(alpha));
  writeln('Неизвестная сторона треугольника - ', c:4:2);
  If alpha<90 then writeln('Острый теругольникi');
  If alpha=90 then writeln('Прямоугольный треугольник');
  If alpha>90 then writeln('Тупой треугольник');
  readln;
  end.
Контактная ин-фа 479-275-762, DmitriK181988@gmail.com

Последний раз редактировалось Stilet; 25.02.2010 в 14:54.
Rusat вне форума Ответить с цитированием
Старый 25.02.2010, 14:47   #4
SIvk
 
Регистрация: 25.02.2010
Сообщений: 8
По умолчанию

Запросто. Формулу математическую скажи.
sqrt(a*a+b*b-2*a*b*cos(y)) вот так походу
%)
SIvk вне форума Ответить с цитированием
Старый 25.02.2010, 14:54   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
SIvk
Ну вот тебе и ответ Rusat дал )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.02.2010, 15:05   #6
SIvk
 
Регистрация: 25.02.2010
Сообщений: 8
По умолчанию

ахахах ступил (
%)
SIvk вне форума Ответить с цитированием
Старый 12.03.2010, 19:22   #7
SIvk
 
Регистрация: 25.02.2010
Сообщений: 8
По умолчанию

kak sdelat' 4tob vse ugli nado naiti D: prepad gril nado 4erez cos pomojete??
%)
SIvk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Турбо Паскаль kmzd Помощь студентам 6 07.02.2010 09:58
турбо паскаль glavad Помощь студентам 2 14.12.2009 21:36
Турбо Паскаль Maxsimo Паскаль, Turbo Pascal, PascalABC.NET 0 06.05.2009 17:05
Турбо Паскаль Jondeer Помощь студентам 3 28.10.2007 12:42