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

12.05.2010, 14:14. **Показов** 3099. **Ответов** 5

Студворк — интернет-сервис помощи студентам

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

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

Р=___; S=___.

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

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

@thexqn · 12.05.2010, 16:14

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

Р=___; S=___.

Pascal
1
2
3
4
5
6
wtiteln('Стороны треугольника АВС Равны: ');
writeln('A=',a,'; B=',b);
writeln('C=',c,'.');
writeln;
writeln('P=',p,'; S=',s,'.');
readln

@TAVulator · 12.05.2010, 16:20

Сообщение от Michael P.

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

готово:

Pascal
1
2
3
4
5
6
7
8
9
Begin
 Writeln('Стороны треугольника АВС Равны:');
 Writeln('A=___; В=___;');
 Writeln('С=___.');
 Writeln;
 Writeln('Р=___; S=___.');
 Writeln;
 Writeln('Программу выполнил...');
End.

@Angel-dm · 12.05.2010, 17:19

вот полностью готовая программа

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.

@Achmed · 12.05.2010, 17:42

Если через формулу Герона, то там вроде полупериметр
нужно вместо d:=a+b+c
написать d:=(a+b+c)/2

@Angel-dm · 12.05.2010, 17:45

Сообщение от 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.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

Michael P.

	Расчёт площади треугольника 12.05.2010, 14:14. Показов 3099. Ответов 5 Метки нет (Все метки) Надо чтобы после нажатия ctrl - F9 на Экране было вот такое: Стороны треугольника АВС Равны: А=___; В=___; С=___. Р=___; S=___. Программу выполнил... Только так и никак по-другому. Помогите!!!!

@Achmed 13 / 13 / 1 Регистрация: 23.02.2010 Сообщений: 108
	12.05.2010, 17:42
	Если через формулу Герона, то там вроде полупериметр нужно вместо d:=a+b+c написать d:=(a+b+c)/2 0