Определить в какой четверти находится точка
Заданы координаты точки (x,y) в прямоугольной системе координат. Определить в какой четверти находится точка.
В архиве имеется блок-схема программы с результатами выполнения работы.
Program N1;
Var a,s1,s2,h:Real;
begin
Write('Введите а: ');Readln(a);
s1:=pi*sqr(a); {площадь кгуга}
h:=sqrt(sqr(a)-sqr(a/2)); {высота треугольника}
s2:=a*h/2; {площадь треугольника}
if s1>s2 then
Writeln('Площадь круга больше площади треугольника: ',s1:4:2,'>',s2:4:2)
else if s1
Writeln('Площадь круга меньше площади треугольника: ',s1:4:2,'<',s2:4:2)
else if s1=s2 then
Writeln('Площадь круга равна площади треугольника: ',s1:4:2,'=',s2:4:2);
Write('Нажмите Enter');
Readln;
end.
|
| Категория: Практика | Добавил: nazgull (09.02.2012)
|
| Просмотров: 3471
| Теги:
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |