Задачи по паскалю.

[Никуся]

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

2. Даны 3 действительных числа. Выбрать из них те, которпые принадлежат интервалу (1,3)

помогите решить. зарание спасибо

[Sazary]

Никуся А что у вас не получается? Здесь только и надо, что забить формулы на паскале.
1) катет (b):

b := sqrt(sqr(c)-sqr(a));

Радиус окружности:

r := a*b/(a+b+c)

2) Просто проверяете каждое число:

if (c1>1) and (c1<3) then writeln('c1 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');

[Никуся]

C2=a2+b2 , S=rp где р - полупериметр треугольника, r – радиус вписанной окружности

2-ки это в квадрате)

я забыла подписать к 1 задаче)

[Sazary]

Никуся Так я и написал вам формулы в паскалевском виде.
Что там еще решать-то?

[Никуся]

можешь полностью написать как на паскале.....))

[Sazary]

var
a,b,c,r : real;

begin
write('Vvedite dlinu kateta a: ');
readln(a);
write('Vvedite dlinu gipotenuzy c: ');
readln(c);
b := sqrt(sqr(c)-sqr(a));
r := a*b/(a+b+c);
writeln('Katet b= ',b:5:2);
writeln('Radius r= ',r:5:2);
readln;
end.

var
c1,c2,c3 : real;

begin
write('Vvedite c1: ');
readln(c1);
write('Vvedite c2: ');
readln(c2);
write('Vvedite c3: ');
readln;
if (c1>1) and (c1<3) then writeln('c1 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');
if (c3>1) and (c3<3) then writeln('c2 - prinadlezhit');
readln;
end.

[vAdiM_Kubski]

жесть, ребята вообще ничего не понимают и кто-то еще им разжовывает и кладет все в рот, а у меня уже на 90% решенная написанная задача и никто не знает чтоли как нужно сортировку с функцией делать?

[Никуся]

Спасибо тебе огромное))) Ты меня оч выручил)

[Никуся]

ЭТО ТЫ К ЧЕМУ?!

[vAdiM_Kubski]

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