Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Olechka
0 / 0 / 0
Регистрация: 21.09.2009
Сообщений: 15
#1

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

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

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

вычислить площадь и периметр равнобедренного треугольника зная только его катеты - Pascal
задача очень лёгкая но у меня не получается))) я начинающий тока..... вычислить площадь (S) и периметр (P) равнобедренного треугольника...

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

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

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

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

Описать функцию или процедуру, находящую среднее арифметическое элементов списка - Pascal
Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L (TypeElem — real);

3
patricksmirnov
75 / 75 / 10
Регистрация: 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
3949 / 1107 / 71
Регистрация: 27.07.2009
Сообщений: 3,459
12.12.2010, 17:26 #3
Цитата Сообщение от patricksmirnov Посмотреть сообщение
Procedure Triangle(a,h:integer;var p:real);
функцию же просили, а не процедуру )))
0
patricksmirnov
75 / 75 / 10
Регистрация: 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
12.12.2010, 19:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2010, 19:38
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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