Срочная помощь в Паскале.

[Qw222]

Здраствуйте!
Не могли ли Вы помочь с Pascal’ем, просто у меня он не стоит на компе (не хочет ставиться, а качать долго) , а на урок подготовиться надо, вроде как самостоятельная.
Ну дак вот задача
1)Вычислите длину окружности, площадь круга и обьем шара одного и того же заданного радиуса.
Я вроде решил ее только надо проверить на ошибки
program otstoi;
uses CRT;
const Pi=3,14;
var R, Cokruj, Vshara, Skruga: real;
begin
Writeln ('Введите радиус');
Write ('R= '); Readln (R);
Vshara:=4/3*Pi*(sqr(R)*R);
Cokruj:=2*Pi*R;
Skruga:=Pi*(sqr(R));
If R<0 then Writeln ('Введите положительное число') goto begin else if R>0 then
Write ('Cokruj= '); Readln (Cokruj);
Write ('Vshara= '); Readln (Vshara);
Write ('Skruga= '); Readln (Skruga);
Readkey
end.
2)Вычислите периметр и площадь прямоугольного треугольника по двум катетам.(я туплю и не могу что-то решить)
3)По координатам трех вершин некоторого треугольника найдите его площадь и периметр(то же что и в пункте 2.)
Заранее Благодарен.
P.S. У меня завтра урок.

[Svartkladd]

В третьем - используй формулу герона S*S=p(p-a)(p-b)(p-c), где p=(a+b+c)/2 Стороны ищутся без проблем - координаты даны... (S - ессно площадь...)
Второе вообще никак... S=1/2*катет1*катет2, а P=Катет1+Катет2+Гиппотенуза... (последнюю уж как нибудь сам... путем сложной теоремы Пифагора...)
Удачи!

[Svartkladd]

Какой класс-то... мож Герон не покатит...

[Svartkladd]

Ага... посмотрел я твой код поподробнее... есть ессно ошибки... замени-ка его на работающий

program netakoiujiotstoi;
uses CRT;
const Pi=3,14;
var R, Cokruj, Vshara, Skruga: real;
begin
repeat
clrscr;
Writeln ('Введите радиус');
Write ('R= '); Readln (R);
Vshara:=4/3*Pi*(sqr(R)*R);
Cokruj:=2*Pi*R;
Skruga:=Pi*(sqr(R));
if (r<=0) then writeln('Вводите только положительный радиус!');
if (r<=0) then readkey
until (r>0);
Write ('Cokruj= ', Cokruj:2:0);
Write ('Vshara= ', Vshara:2:0);
Write ('Skruga= ', Skruga:2:0);
Readkey
end.

Всего хорошего

[Qw222]

Vrot, БОЛЬШОЕ СПАСИБО!!!!!!!!!!!!!!!!!
За , работающий , тоже сенкью!
Насчет второго я понял
А в третьем, можно по подробнее.
P.S. Я сейчас т.е. через минут 10-12 напишу, проверишь?(2)

[Qw222]

program otstoi2;
uses CRT;
var a, b, c, S, P:real;
begin
Writeln ('Введите первый катет');
Write ('a= '); Readln (a);
Writeln ('Введите второй катет');
Write ('b= '); Readln (b);
S:=1/2*a*b;
P:=a+b+sqrt (sqr (a) + sqr(b));
if (a<=0) and (b<=0) then writeln ('Вводите только положительные катеты!');
if (a<=0) and (b<=0) then readkey
until (a>0) and (b>0);
Write ('S= ', S:2:0);
Write ('P= ', P:2:0);
Readkey
end.

[Qw222]

Я понял с третьи, только один вопрос
как реализовать формулу a=sqrt(sqr(x2-x1)+sqr(y2-y1)), так?
P.S. завтра я до 9 утра

[Svartkladd]

Qw222
begin
Writeln ('Введите первый катет');
repeat забыл...
И уж если CRT подключаешь... то используй... clrscr; например
а так все вроде бы нормально...

a=sqrt(sqr(x2-x1)+sqr(y2-y1))
а S=sqrt(p*(p-a)*(p-b)*(p-c))
Вот так вот...
ЗЫ. А борландовсий компилятор вроде не много весит...

[Svartkladd]

ЗЗЫ. Что... первые шаги в программинге?

[Qw222]

Допер сам, но всеравно болбшое спасибо!!
program otstoi3;
uses CRT;
var xa, ya, xb, yb, xc, yc, a, b, c, S, P: real;
begin
repeat
clrscr;
writeln ('Введите координаты точки A:');
write ('x= '); readln (xa);
write ('y= '); readln (ya);
writeln ('Введите координаты точки B:');
write ('x= '); readln (xb);
write ('y= '); readln (yb);
writeln ('Введите координаты точки С:');
write ('x= '); readln (xc);
write ('y= '); readln (yc);
a:=sqrt(sqr(xb-xa)+sqr(yb+ya));
b:=sqrt(sqr(xc-xb)+sqr(yc-yb));
c:=sqrt(sqr(xc-xa)+sqr(yc-ya));
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write ('P= ', P:2:0);
write ('S= ', S:2:0);
Readkey
end.

[Qw222]

ЗЗЫ. Что... первые шаги в программинге? не РЕАЛЬНО ТОРМОЖУУУ

[Qw222]

тема может быть закрыта

[Alex Spade]

Какой класс-то... мож Герон не покатит...
Как человек - три раза здававший геометрию скажу. Формулу Герона должны давать сразу как-только начинается Геометрия-Планиметрия-Треугольники. Просто эта формула в школьных задачах используется редко и её забывают.

[Svartkladd]

Alex Spade Да... у меня тоже давали... но то что должны - это еще ничего не значит
ЗЫ. У мя был физмат... у преподов выбора не было