Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Составте программу табулирования функции y=arcsin(1/(x+4)) на отрезке [0,2;1,2] с шагом 0,1. https://www.cyberforum.ru/ turbo-pascal/ thread666853.html
5)Составте программу табулирования функции y=arcsin(1/(x+4)) на отрезке с шагом 0,1.
Приближенное вычисление функций. Суммирование рядов Turbo Pascal
.....
Turbo Pascal Сумма всех четырехзначных чисел, в записи которых нет одинаковых цифр https://www.cyberforum.ru/ turbo-pascal/ thread666691.html
Помогите, пожалуйста, составить программу. Необходимо составить программу вычисления суммы всех четырехзначных натуральных чисел, в десятичной записи которых нет двух одинаковых цифр ЗАРАНЕЕ СПАСИБО)
Turbo Pascal Простые числа из заданного промежутка https://www.cyberforum.ru/ turbo-pascal/ thread666681.html
Проблема такова: программа должна вывести все простые числа с промежутка а-б, начинается лажа уже с 121 125 и т.д, вот сам код: program prost; uses crt; var a,b,i,k,f,q,j :integer; BEGIN clrscr;
Turbo Pascal Ввести последовательность. Определить, сколько раз меняется знак
без массивов и на уровне азов БЕЗ массивов! Напечатать 20 цифр от -10 до 10 рассчитать сколько подряд в начале цифр меньше 0 и сколько раз меняется знак
Turbo Pascal Вычеркнуть k столбец и x строку из матрицы содержащие минимальное значение этой матрицы https://www.cyberforum.ru/ turbo-pascal/ thread666675.html
Uses crt (создал рандомную матрицу) Const n=10;m=10; type stroka=array of real; var a:array of stroka; i,j,mina:integer; min:stroka; begin clrcsr; randomize; for i:=1 to n do
Turbo Pascal Определить, можно ли представить данное число в виде произведения двух простых сомножителей составьте программу,определяющую можно ли представить данное натуральное число M в виде произведения 2-х простых сомножителей https://www.cyberforum.ru/ turbo-pascal/ thread666670.html Определить, расположены ли все положительные числа после отрицательных в последовательности Turbo Pascal
2)Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, расположены ли все положительные числа после отрицательных. Добавлено через 20 часов 38 минут Народ помогите, ибо вообще не знаю как решать((((
Turbo Pascal Используя функцию поиска наибольшего (наименьшего) из двух чисел, вычислить выражения https://www.cyberforum.ru/ turbo-pascal/ thread666657.html
используя функцию поиска наибольшего(наименьшего)из 2-х чисел,составить программу вычисления выражения. 1) min(x,y+z)-min(x,y) 2) max(x2-y2,y2-z2,z2-z2) 3)min(x,y)/max(sin(x),ln(y))
Turbo Pascal Подсчитать делители числа M, имеющие в свою очередь хотя бы один составной делитель https://www.cyberforum.ru/ turbo-pascal/ thread666645.html
2)Составить программу подсчета делителей натурального числа M, имеющих в свою очередь хотя бы один составной делитель. Заранее спасибо!!!
Turbo Pascal Вычислить значения функции y=(1+x)tg(2-x) с учетом области определения
1)Составить программу вычисления значений функций y=(1+x)tg(2-x) с учетом области определения. Заранее спасибо!!!
Turbo Pascal Программа позволяющая выяснить можно ли представить натуральное число в виде суммы двух степеней https://www.cyberforum.ru/ turbo-pascal/ thread666621.html
Необходимо составить программу позволяющую выяснить можно ли представить натуральное число N в виде суммы двух простых слагаемых
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.10.2012, 14:10 0

Составьте программу вычисления длины наибольшей высоты треугольника. - Turbo Pascal - Ответ 3538329

09.10.2012, 14:10. Показов 2447. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Серега92 как решение

Решение

Если не напутал, то так. Проверьте.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,f,u,h:real;
begin
clrscr;
repeat
write('Введте длину основания равнобедренного треугольника a>0 ');
readln(a);
until a>0;
repeat
write('Введите величину угла при вершине 0<f<180: ');
readln(f);
until(f>0)and(f<180);
u:=(90-f/2)*pi/180;{угол при основании}
if sin(u)*a/2/cos(u)>sin(u)*a then h:=sin(u)*a/2/cos(u)
else h:=sin(u)*a;
write('Наибольшаяая высота треугольника=',h:0:2);
readln
end.


Вернуться к обсуждению:
Составьте программу вычисления длины наибольшей высоты треугольника. Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2012, 14:10
Готовые ответы и решения:

Вычисление длины наибольшей высоты треугольника
Вот сама задача: Площадь рвнобедренного треyг0льникa равна S, величина угла пhи вершине равнa...

Составьте программу вычисления площади треугольника
Треугольник задан координатами своих вершин . Составте программу вычисления его площадь. (Pascal)

Составьте программу для вычисления длин высот треугольника
1)Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c....

Составьте программу вычисления длины наибольшей медианы треугольника
Площадь равнобедренного треугольника равна S, величина угла при основании F. Составьте программу...

1
09.10.2012, 14:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2012, 14:10
Помогаю со студенческими работами здесь

Составьте программу вычисления длины наименьшей биссектрисы треугольника
2.Площадь равнобедренного треугольника равна S, величина угла при основании F. Составьте программу...

Составьте программу для вычисления длин медиан треугольника, у которого длины сторон a, b, c
Помогите кто шарит. 1.Составьте программу для вычисления длин медиан треугольника, у которого...

Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c.
не могу довести задачу до ума, решаю ее на форме. \\\\Составьте программу для вычисления длин...

Составьте программу поиска в заданном тексте слова наибольшей длины
1. Напишите программу подсчета количество вхождение в заданный текст заданного символа. 2....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru