Добро пожаловать на сайт Решения школьных задач, где вы можете задавать вопросы и получать ответы от других членов сообщества абсолютно БЕСПЛАТНО.
Чтобы воспользоваться всеми преимуществами, а так же ЗАРАБОТАТЬ на нашем сайте, Вам достаточно просто зарегистрироваться.
0 голосов
1 просмотр

РЕБЯТААА!!!!!ПОМОГИТЕ ПОЖАЛУЙСТАААААА!!!!!!!
СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ.
ВВЕСТИ КООРДИНАТЫ ДВУХ ТОЧЕК НА ПЛОСКОСТИ ,НА ЭКРАН ВЫВЕСТИ НОМЕР ЧЕТВЕРТИ КООРДИНАТНОЙ ПЛОСКОСТИ.
ЗАРАНЕЕ СПАСИБО!!!!!!!!

Задача задана от (14 баллов) по предмету Информатика
Комментарий к ответу от (14 баллов)

В следующий раз буду знать,я думал это привлечет внимание,оказалось нет)

Комментарий к ответу от БОГ (150k баллов)

Привлекает. Капс приравнивается к крику. Орать без причины - дурной тон.

Комментарий к ответу от БОГ (150k баллов)

А задачу это тут сто раз уже решали, пользуйтесь поиском.

Комментарий к ответу от (14 баллов)

К сожаления эту задачу я не нашел(

Комментарий к ответу от БОГ (150k баллов)

А все так пишут. Про любые задачи. Этому сервису больше 5 лет, а задачи решают одни и те же ежегодно.

Комментарий к ответу от (14 баллов)

Ну я лично не видел

Комментарий к ответу от БОГ (150k баллов)

Вы проверьте свое условие. Если Вам надо для двух разных точек - это с подпрограммой надо делать, а если два числа вводятся - координаты х и у точки - это попроще и именно такое решение давалось

Комментарий к ответу от БОГ (150k баллов)

Например, вот: https://znanija.com/task/29000986

Комментарий к ответу от (14 баллов)

Спасибо большое)

Комментарий к ответу от БОГ (150k баллов)

Пожалуйста...

2 Ответы

0 голосов
Решение задачи от БОГ (150k баллов)

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

procedure LocationPrint(x, y: real);

begin

 if x = 0 then

   if y = 0 then Writeln('Начало координат')

   else Writeln('Ось Y')

 else

 if y = 0 then Writeln('Ось X')

   else

 if x > 0 then

   if y < 0 then Writeln('Четвертая четверть')

   else Writeln('Первая четверть')

     else

 if y < 0 then Writeln('Третья четверть')

 else Writeln('Вторая четверть')

end;


begin

 loop 2 do

 begin

   var (x, y) := ReadReal2('Введите координаты x и y:');

   LocationPrint(x, y)

 end

end.

Комментарий к ответу от БОГ (150k баллов)

Это если точек две

0 голосов
Решение задачи от

Вот так например:

program find_quarter;

var x, y: real;

begin

read(x);

read(y);

if (x > 0) and (y > 0) then writeln('1')

else if (x < 0) and (y > 0) then writeln('2')

else if (x < 0) and (y < 0) then writeln('3')

else writeln('4');

end.


image
Комментарий к ответу от БОГ (150k баллов)

А если на осях?

Комментарий к ответу от БОГ (150k баллов)

У Вас будет неверно писать "4"

Комментарий к ответу от (14 баллов)

Спасибо,мы как раз так и делаем в школе

Комментарий к ответу от БОГ (150k баллов)

В смысле, даете неверный ответ, когда одна из координат ноль? )))

Бесплатный сайт где собраны правильные ответы на школьные задачи. Вы можете получить ответ на любой вопрос и получить правильное решение задачи быстро.
...