Задача на углы - Форум
Пятница, 09.12.2016, 10:38
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача на углы (Условный оператор)
Задача на углы
JLДата: Четверг, 17.03.2011, 20:31 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
1.Дан треугольник a,b,c. Составить программу определения типов углов (прямой, тупой, острый) лежащие против этих сторон

Прошу..просто умоляю решите кто нибудь..от этой задачи зависит моя оцека...пожалуйста кто нибудь..с меня 100 рублей на телефон и +
Задачку решить в pascal нужно...в долгу не останусь друзья

Сообщение отредактировал JL - Четверг, 17.03.2011, 20:40
 
nikitosДата: Четверг, 17.03.2011, 22:54 | Сообщение # 2
Полковник
Группа: Новичок
Сообщений: 35
[ 0 ]
Статус: Offline
Решаю за небольшую плату
ns5d@mail.ru
icq 629208846
 
JLДата: Четверг, 17.03.2011, 23:04 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
я могу расплатиться...но только бросив деньги кому нить на телефон...можешь написать решение..а я тебе 200р кину на твой номер
 
KOT_B_MEIIIKEДата: Суббота, 19.03.2011, 13:08 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program treugol;

var a,b,c,cosa,cosb,cosc:real;

begin
write ('Введите через пробел стороны a,b,c треугольника ABC: ');
read (a,b,c);

cosa:=(b*b+c*c-a*a)/(2*b*c);
cosb:=(c*c+a*a-b*b)/(2*a*c);
cosc:=(b*b+a*a-c*c)/(2*b*a);

if cosa>0 then writeln ('A-острый')
else if cosa=0 then writeln ('A-прямой')
else writeln ('A-тупой');
if cosb>0 then writeln ('B-острый')
else if cosb=0 then writeln ('B-прямой')
else writeln ('B-тупой');
if cosc>0 then writeln ('C-острый')
else if cosc=0 then writeln ('C-прямой')
else writeln ('C-тупой');

end.

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

Copyright MyCorp © 2016