| ← Март 2016 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
13
|
||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
24
|
25
|
26
|
||
|
28
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 07.03.2016, 20:59 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, bk657! Код (Pascal) :: выделить код var
x1,x2,x3,y1,y2,y3:integer;
p,s:real;
function len(a,b,c,d:integer):real;
begin
len:=sqrt(sqr(a-b)+sqr(c-d))
end;
begin
{вводим координаты}
write('Enter X1:');readln(x1);
write('Enter Y1:');readln(y1);
write('Enter X2:');readln(x2);
write('Enter Y2:');readln(y2);
write('Enter X3:');readln(x3);
write('Enter Y3:');readln(y3);
{считаем и выводим периметр треугольника}
p:=len(x1,x2,y1,y2)+len(x1,x3,y1,y3)+len(x2,x3,y2,y3);
writeln('Perimert:',p);
{получаем полупериметр для формулы Герона}
p:=p/2;
{считаем и выводим площадь треугольника}
s:=sqrt(p*(p-len(x1,x2,y1,y2))*(p-len(x1,x3,y1,y3))*(p-len(x2,x3,y2,y3)));
writeln('Area of a triangle:',s);
end.ps:писал в Pascal ABC, т.к Pascal ABC.net у меня не установлен. Код не использует особенностей и различий компиляторов паскаля, поэтому должен работаь и в Pascal ABC.net
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
