Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
Michael P.
1

Расчёт площади треугольника

12.05.2010, 14:14. Показов 2670. Ответов 5
Метки нет (Все метки)

Надо чтобы после нажатия ctrl - F9 на Экране было вот такое:

Стороны треугольника АВС Равны:
А=___; В=___;
С=___.

Р=___; S=___.

Программу выполнил...



Только так и никак по-другому.
Помогите!!!!

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2010, 14:14
Ответы с готовыми решениями:

Расчет площади и периметра треугольника
Люди выручайте Разработаем модуль triangle, содержащий набор функций для выполнения расчета...

Нахождение периметра и площади треугольника
Нужно составить программу для нахождения периметра и площади треугольника.Вводимые данные:...

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

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

5
64 / 64 / 44
Регистрация: 15.11.2009
Сообщений: 247
12.05.2010, 16:14 2
Стороны треугольника АВС Равны:
А=___; В=___;
С=___.

Р=___; S=___.

Pascal
1
2
3
4
5
6
wtiteln('Стороны треугольника АВС Равны: ');
writeln('A=',a,'; B=',b);
writeln('C=',c,'.');
writeln;
writeln('P=',p,'; S=',s,'.');
readln
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4170 / 1275 / 231
Регистрация: 27.07.2009
Сообщений: 3,947
12.05.2010, 16:20 3
Цитата Сообщение от Michael P. Посмотреть сообщение
Только так и никак по-другому.
готово:
Pascal
1
2
3
4
5
6
7
8
9
Begin
 Writeln('Стороны треугольника АВС Равны:');
 Writeln('A=___; В=___;');
 Writeln('С=___.');
 Writeln;
 Writeln('Р=___; S=___.');
 Writeln;
 Writeln('Программу выполнил...');
End.
0
112 / 109 / 33
Регистрация: 21.12.2009
Сообщений: 321
12.05.2010, 17:19 4
вот полностью готовая программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program treygolnik;
uses crt;
var
a,b,c,d,e: real;
Begin
clrscr;
Writeln('Введите стороны треугольника А,Б,С:');
readln (a, b, c);
d:=a+b+c;
e:= Sqrt(d*(d-a)*(d-c)*(d-b))   ;
Writeln('Стороны треугольника АВС Равны:');
Writeln('A=',a,'; В=',b,';');
Writeln('С=',c,'.');
Writeln;
Writeln('Р=',d,' S=',e,'.');
Writeln;
Writeln('Программа выполнина');
End.
0
13 / 13 / 1
Регистрация: 23.02.2010
Сообщений: 108
12.05.2010, 17:42 5
Если через формулу Герона, то там вроде полупериметр
нужно вместо d:=a+b+c
написать d:=(a+b+c)/2
0
112 / 109 / 33
Регистрация: 21.12.2009
Сообщений: 321
12.05.2010, 17:45 6
Цитата Сообщение от Achmed Посмотреть сообщение
Если через формулу Герона, то там вроде полупериметр
нужно вместо d:=a+b+c
написать d:=(a+b+c)/2
точно же, пасибо

Добавлено через 2 минуты
вот готовая прога:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program treygolnik;
uses crt;
var
a,b,c,d,e,p: real;
Begin
clrscr;
Writeln('Введите стороны треугольника А,Б,С:');
readln (a, b, c);
p:=a+b+c;
d:=(a+b+c)/2;
e:= Sqrt(d*(d-a)*(d-c)*(d-b))   ;
Writeln('Стороны треугольника АВС Равны:');
Writeln('A=',a,'; В=',b,';');
Writeln('С=',c,'.');
Writeln;
Writeln('Р=',p,' S=',e,'.');
Writeln;
Writeln('Программа выполнина');
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2010, 17:45

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

подпрограмма для нахождения площади треугольника
Составить подпрограмму для нахождения площади треугольника,заданного координатами его вершин....

Нахождение площади треугольника по формуле Герона
Здравствуйте написал программу по нахождению площади треугольника по формуле Герона: Program...

Определить подпрограмму определения площади треугольника по сторонам
Помогите написать программу! Дан пятиугольник со сторонами a,b,c,d,e. Определить подпрограмму...


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

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

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