Turbo Pascal

[Пух]

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

буду блогадарен за помощь

A(x1,y1), B(x2,y2), C(x3,y3).
AB(x2-x1;y2-y1);
BC(x3-x2;y3-y2);
AC(x3-x1;y3-y1);
AB=sqrt((x2-x1)^2+(y2-y1)^2) {корень квадратный из сумы квадратов координат вектора АВ}
ну периметр=AB+BC+AC;
площадь=sqrt(p*(p-AB)*(p-BC)*(p-AC)) {Теорема Герона(вроде). р-полупериметр треугольника.}

Для удобвства можно использовать массивы...

 

[Пух]

program lol;
uses crt;
var x,y:array[1..3] of integer;
AB,BC,AC,S,p:real;
begin
clrscr;
writeln('Введите через Enter координаты точки А');
readln(x[1],y[1]);
writeln('Введите через Enter координаты точки В'');
readln(x[2],y[2]);
writeln('Введите через Enter координаты точки С'');
readln(x[3],y[3]);
AB:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));
AC:=sqrt(sqr(x[3]-x[1])+sqr(y[3]-y[1]));
BC:=sqrt(sqr(x[3]-x[2])+sqr(y[3]-y[2]));
p:=0.5*(AB+AC+BC);
S:=sqrt(p*(p-AB)*(p-BC)*(p-AC));
Writeln('Дано точки:');
Writeln('A(',x[1],';',y[1],')');
Writeln('B(',x[2],';',y[2],')');
Writeln('C(',x[3],';',y[3],')');
Writeln('Площадь равна ',s:3:2, ', периметр равен ',2*p:3:2);
readln;
end.

код может и кривой-разбиратся лень, но работает
p.s. это и программированием язык не поворачиваеться назвать. Геометрия это всё...

 

[Storm_10]

код может и кривой-разбиратся лень, но работает
p.s. это и программированием язык не поворачиваеться назвать. Геометрия это всё...

спасибо , я посомтрю дело в том сам не всё прочитал по книжке вобщем будут овпросы, я отпишусь по поводу решение моего домашнего задания

 

[Tage Madonna]

Народ помогите, пожалуйста, на на 24 октября нужно зделать задания в Паскале.А я в этом вообще слабоумная.Я заплачу.

 

[~Simorg~]

Народ помогите, пожалуйста, на на 24 октября нужно зделать задания в Паскале.А я в этом вообще слабоумная.Я заплачу.

неплач

 

[Tage Madonna]

неплач

Дам денег,тому кто мне поможет,плакать я точно не буду.

 

[Tage Madonna]

Всем спасибо за помощь

 

[Пух]

подскажите плиз как написать програму. выводящую на екран шахматную доску (заполняющую весь екран)
и как написать програму, имитирующую работу электронных часов
заранее спасибо

подскажите или решите? В чём возникают сложности?

 

[Тоха]

Подскажите команду, которой в графическом режиме можно выводить функции.
OutText/OutTextXY, по непонятным причинам, текст выводят, а функции - нет.

 

[Cris]

Подскажите команду, которой в графическом режиме можно выводить функции.
OutText/OutTextXY, по непонятным причинам, текст выводят, а функции - нет.

тоесть функции невыводят??
какие функции?

типа числа чтоли невставляют?- outtext(1234,'dfdsgsd = ',sdf:2:6); - если это то правильно что небудет выводить потомучто для етих функций надо все сначала в стринг переделать:
outtext(string)
outtextxy(word,word,string);