Предмет: Информатика,
автор: Котяk
На языке Паскаль составить программу,проверяющую,лежит ли данная точка с координатами (x,y) в первой четверти координатной плоскости.Программа должна выводить на экран результат в виде: Точка с координатами (x,y) лежит в первой четверти координатной плоскости или Точка с координатами (x,y) не лежит в первой четверти координатной плоскости.
Ответы
Автор ответа:
0
program points;
uses crt;
var x, y:real;
begin
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x > 0) and (y > 0) then
writeln('Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости')
else
writeln('Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости');
readln
end.
uses crt;
var x, y:real;
begin
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x > 0) and (y > 0) then
writeln('Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости')
else
writeln('Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости');
readln
end.
Интересные вопросы
Предмет: Математика,
автор: lanachka30042009
Предмет: Алгебра,
автор: sgafra576
Предмет: Геометрия,
автор: saburovn922
Предмет: Математика,
автор: Ник39