Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Конкатенация файлов через букву Помогите пожалуйста решить задачу!!! Даны два файла: f1:"знак" и f2:"генератор". Конкатенировать файлы f1 и f2 через букву "о", записав результат в файл f1. Вывести на экран файл f1. ("знак" и "генератор" это содержимое файлов созданных через паскаль) я вот незнаю как между ними вставить "о" https://www.cyberforum.ru/ turbo-pascal/ thread130940.html	Turbo Pascal Определить во сколько раз площадь круга радиуса R больше площади сегмента, отсеченного хордой длины А. Определить во сколько раз площадь круга радиуса R больше площади сегмента, отсеченного хордой длины А.
Turbo Pascal Найти разность произведения первых двух цифр числа https://www.cyberforum.ru/ turbo-pascal/ thread130923.html Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы! Написать программу, которая находит из всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения...	Turbo Pascal Подсчитать процент каждого знака препинания от общего количества символов Написать программу, которая находит количество знаков препинания в созданном текстовом файле, и подсчитывает процент каждого знака препинания от общего количества символов. Добавлено через 1 час 13 минут Помогите!!!! https://www.cyberforum.ru/ turbo-pascal/ thread130922.html
Turbo Pascal Если сумма трех попарно различных действительных чисел X Y Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других Если сумма трех попарно различных действительных чисел X Y Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, В противном случае заменить меньшее из X Y полусуммой двух оставшихся значений. нужна прога на паскале)	Turbo Pascal Обмен двух звеньев списка https://www.cyberforum.ru/ turbo-pascal/ thread130909.html вобщем нужно написать процедуру обмена информационных частей двух звеньев списка....помогите пожалуйста...я запуталась с ссылками next... procedure Swap(L,R:PList); var Q:PList; begin new(Q); Q^.info:=L^.info; L^.info:=R^.info; L^.next:=Q; Q^.next:=R^.next; dispose(R);
Turbo Pascal Среди работников данною предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработ Среди работников данною предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности. Помогите плз https://www.cyberforum.ru/ turbo-pascal/ thread130906.html	Turbo Pascal Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. Помогите плз
Turbo Pascal Перезапись строк Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова. (Исходный файл создать просто, а не через паскаль) https://www.cyberforum.ru/ turbo-pascal/ thread130880.html	Turbo Pascal Найти максимальное значение функции (методом дихотомии) https://www.cyberforum.ru/ turbo-pascal/ thread130871.html найти максимальное значение функции решить методом дихотомии Добавлено через 8 часов 11 минут помогите с коментарием(( repeat C:=Readkey; case C of #60: begin
Найти максимальное значение функции Turbo Pascal Здравствуйте! Помогите пожалуйста выполнить задание, только нужно очень срочно(экзамен):umnik: Заранее спасибо!	Turbo Pascal Необходимо добавить поддержку переменных Ребят помогите плиз. Есть программа которая делает рассчет с матрицей введенной, но считает тока числовые матрицы. необходимо сделать чтобы считала матрицу 3 на 3 к примеру с некими в ней переменными вместо чисел например 1 2 3 b 5 4 с 3 5 вот какую матрицу... https://www.cyberforum.ru/ turbo-pascal/ thread130828.html

STGE

773 / 578 / 324

Регистрация: 17.06.2009

Сообщений: 1,188

17.05.2010, 12:35

Определить, можно ли построить треугольник с длинами сторон, равным заданным числам - Turbo Pascal - Ответ 732294

17.05.2010, 12:35. Показов 12640. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Возможно так:

Pascal

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin 
writeln('треугольник с такими сторонами существует');
if (sqr(a)+sqr(b)>=sqr(c)) and (sqr(a)+sqr(c)>sqr(b)) and ( sqr(b)+sqr(c)>sqr(a)) then 
writeln('треугольник является остроугольным')
else writeln('треугольник не является остроугольным');
end
else writeln('треугольник с такими сторонами не существует');

Вернуться к обсуждению:
Определить, можно ли построить треугольник с длинами сторон, равным заданным числам Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.05.2010, 12:35

Готовые ответы и решения:

Определить можно ли построить треугольник с длинами сторон
Даны 3 положительных числа.Определить можно ли построить треугольник с длинами сторон равным этим...

Определить, можно ли построить треугольник с заданными длинами сторон
По трем введении вещественным числам выяснить, можно ли построить треугольник с такими длинами...

Определить, можно ли построить треугольник с такими длинами сторон
Нужна помощь в составлении программы: Даны три произвольных числа. Определить, можно ли построить...

Выдать значение 0, если нельзя построить треугольник с заданными длинами сторон
Даны произвольные числа a, b, c. Составить алгоритм, который выдаёт значение 0, если нельзя...

	17.05.2010, 12:35

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.05.2010, 12:35

Помогаю со студенческими работами здесь

Определить, существует ли треугольник с длинами сторон x, y, z
Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z....

Определить, существует ли треугольник с длинами сторон x, y, z
Даны положительные числа x,y,z. Выяснить , существует ли треугольник с длинами сторон...

Даны три числа. Определить, можно ли построить треугольник с указанными длиннами сторон
Даны три числа. Определить, можно ли построить треугольник с указанными длинами сторон. Если можно,...

Определить, можно ли построить треугольник с заданными длинами сторон
1.Даны действительные числа a,b,c. Удвоить эти числа, если a>=b>=c, и заменить их абсолютными...

Наверх