Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Olechka
0 / 0 / 0
Регистрация: 21.09.2009
Сообщений: 15
#1

Описать функцию Triangle (a, h) находящую периметр равнобедренного треугольника - Pascal

12.12.2010, 14:47. Просмотров 706. Ответов 3
Метки нет (Все метки)

описать функцию Triangle(a,h) находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию . Спомощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. Для нахождения боковой стороны использовать теорему Пифагора B^2=(A/2)^2 *H^2
http://www.cyberforum.ru/pascal/thread18661.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2010, 14:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Описать функцию Triangle (a, h) находящую периметр равнобедренного треугольника (Pascal):

Описать функцию, находящую число Фибоначчи от 1 до n
Народ мне дали тут несколько задач если можете помогите их решить буду очень...

Написать функцию, находящую площадь треугольника ABC по формуле Герона
3. Описать функцию Area(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую...

Описать функцию, находящую максимальное из двух вещественных чисел
Помогите пожалуйста!! Нужно написать программу на Паскале. Желательно...

Описать функцию или процедуру, находящую среднее арифметическое элементов списка
Описать функцию или процедуру, которая находит среднее арифметическое элементов...

Описать функцию вещественного типа, находящую минимальное из трех вещественных чисел
Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех...

3
patricksmirnov
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
12.12.2010, 17:21 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program olechka;
uses crt;
var a,b:integer;
perimetr:real;
Procedure Triangle(a,h:integer;var p:real);
begin
     p:=(2*sqrt(sqr(h)+sqr(a/2)))+a;
end;
 
BEGIN
write('ГЋГ±Г*îâГ*Г*ГЁГҐ òðåóãîëüГ*ГЁГЄГ*: ');readln(a);
write('ÂûñîòГ* òðåóãîëüГ*ГЁГЄГ*: ');readln(b);
Triangle(a,b,perimetr);
writeln('Ïåðèìåòð = ',perimetr);
END.
0
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
12.12.2010, 17:26 #3
Цитата Сообщение от patricksmirnov Посмотреть сообщение
Procedure Triangle(a,h:integer;var p:real);
функцию же просили, а не процедуру )))
0
patricksmirnov
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
12.12.2010, 19:38 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program olechka;
uses crt;
var a,b:integer;
perimetr:real;
Function Triangle(a,h:integer):real;
begin
     Triangle:=(2*sqrt(sqr(h)+sqr(a/2)))+a;
end;
 
BEGIN
write('ГЋГ±Г*îâГ*Г*ГЁГҐ òðåóãîëüГ*ГЁГЄГ*: ');readln(a);
write('ÂûñîòГ* òðåóãîëüГ*ГЁГЄГ*: ');readln(b);
Triangle(a,b);
writeln('Ïåðèìåòð = ',triangle(a,b));
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2010, 19:38
Привет! Вот еще темы с решениями:

Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного массива X размер N.
Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного...

Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
народ помогите решить задачки 1Описать функцию Leng(xA, yA, xB, yB)...

Описать функцию Leng вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
3. Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину...

Описать рекурсивную функцию NOD(A,B), находящую наибольший общий делитель двух чисел, используя алгоритм Евклида
Описать рекурсивную функцию NOD(A,B) целого типа, находящую наибольший общий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru