Здравствуйте.
Равносторнний треуг. со стороной n вписан в окружность диаметром d. Написать программку в паскале в кот. анализировались бы исходные данные (вводимые пользователем n и d) на выполнения условия (о том что треуг. вприсан в окр.)
Спасибки)
Вот, попробывала сделать, кажется правильно
PROGRAM circletriangle;
VAR R,A,R2: REAL;
BEGIN
WRITELN ('Проверка условия на вписанность');
REPEAT
WRITE ('Строна треугольника A = ');
READLN (A);
WRITE ('Радиус окружности R = ');
READLN ®;
BEGIN
R2:=A*((SQR(3))/3);
IF R=R2 THEN
BEGIN
WRITELN ('Треугольник не вписан');
END
ELSE
WRITELN ('Треугольник не вписан');
END;
ReadLn;
end.
нет, не получается ошибка в последней строчке( "ожидается оператор"
Всё сделала! Код не буду показываать сами разбирайтесь.
Темку можно удалить.))
Liana, так:
Сделала проверку на положительные, и ненулевые значения в исходных данных. Программа проглатывает теерь только положительные, дробные числа. Всё отлично.