Выяснить принадлежность точки координатной четверти

@Kolbasnik98 · Регистрация: 01.08.2011

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program p1;
var x,y: real;
if x>0, y>0 then Writeln('Четверть II');
if x<0, y>0 then Writeln('Четверть I');
if x<0, y<0 then Writeln('Четверть IV');
if x>0, y<0 then Writeln('Четверть III');
begin
Writeln('Введите x');
readln(x);
Writeln('Введите y');
readln(y);
readln;
End

Ребят, объясните что не так?

HighPredator · 21.11.2012, 17:37

Вместо запятой and должен быть.

@Kolbasnik98 · 21.11.2012, 17:40 **[ТС]**

Сообщение от HighPredator

Вместо запятой and должен быть.

Исправил, но переставляет после if, типа "ожидался идентификатор"

@Yurek · 21.11.2012, 17:52

Сообщение от Kolbasnik98

"ожидался идентификатор"

Ну а что ты ждал, если у тебя begin неизвестно где

@Puporev · 21.11.2012, 18:23

Сообщение от Kolbasnik98

Ребят, объясните что не так?

А какого у тебя все четверти раком?

@Yurek · 21.11.2012, 18:50

Kolbasnik98, короче, заменяешь запятую на and, берёшь условия вида X>0 в скобки, перемещаешь begin куда ему положено, ставишь току после end, разбираешься с четвертями (тоже заметил про них, не не стал писать, думал сам разберёшься когда программа заработает) - по-моему там где x и y положительны должна быть первой, а не как у тебя. На самом деле я в шоке от количества ошибок. Всё, что можно было сделать не так сделано не так, даже там где вероятность сего события 50 на 50

@Kolbasnik98 · 22.11.2012, 22:18 **[ТС]**

Yurek, по поводу четвертей заметил) Косяк большой)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program p1;
var x,y: integer;
begin
Writeln('Программа действует в случаях, когда x или y не(!) равны нулю!!!');
Writeln('Введите x');
readln(x);
Writeln('Введите y');
readln(y);
if (x>0) and (y>0) then Writeln('Четверть I')
else
if (x<0) and (y>0) then Writeln('Четверть II')
else
if (x<0) and (y<0) then Writeln('Четверть III')
else
if (x>0) and (y<0) then Writeln('Четверть IV');
readln;
End.

Работает)

@Yurek · 22.11.2012, 22:25

На мой взгляд все эти else излишни, не несут никакой логической нагрузки.
Лучше тогда уж добавь проверку на x=0 и y=0 чтобы вывести сообщение про попадание в начало координат, а не писать на экране чего там пользователю не стоит вводить

@Kolbasnik98 · 23.11.2012, 14:51 **[ТС]**

Сообщение от Yurek

На мой взгляд все эти else излишни, не несут никакой логической нагрузки.
Лучше тогда уж добавь проверку на x=0 и y=0 чтобы вывести сообщение про попадание в начало координат, а не писать на экране чего там пользователю не стоит вводить

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program p1;
var x,y: integer;
begin
Writeln('Введите x');
readln(x);
Writeln('Введите y');
readln(y);
if (x=0) or (y=0) then Writeln('Точка на оси')
else
if (x>0) and (y>0) then Writeln('Четверть I')
else
if (x<0) and (y>0) then Writeln('Четверть II')
else
if (x<0) and (y<0) then Writeln('Четверть III')
else
if (x>0) and (y<0) then Writeln('Четверть IV');
readln;
End.

Тогда так?

Добавлено через 3 минуты
И ещё вопрос, если какой-либо оператор, чтобы сокращать названия других операторов. Пример: "оператор" Writeln=Wln? А то писать задолбишься.

@Yurek · 23.11.2012, 15:33

Сообщение от Kolbasnik98

Тогда так?

Давай так - ты исполняешь всё в точности как я говорил и если у тебя что-то не получается тогда можешь задавать вопрос. Если ты не исполняешь то, что я пишу, то не надо у меня ничего страшивать, ибо я могу отослать тебя только к тому, что уже сказал выше.
Вот прочитал ты мои рекомендации и вдруг выдал программу в которой откуда-то появились else. Разве я писал, что их не хватает?
Теперь опять же, указал тебе, что

На мой взгляд все эти else излишни, не несут никакой логической нагрузки.

, но ты всё равно упорно продолжаешь их лепить и ещё докапываешься так или не так?
До кучи это доказывает, что ты не разобрался в работе оператора if и if - else и в своей программе тоже. Поверь мне, это не тот случай чтобы сюда ставить else. Другое дело, если бы ты захотел сократить количество условий, а не проверять все в явном виде, как у тебя сейчас. Тогда да, может быть имело бы смысл, хотя как сейчас работает и так.

"оператор" Writeln=Wln?

Чтобы быстро набирать программы надо быстро печатать. Чтобы быстро печатать надо много и быстро печатать. Почти каждую программу для вас, вопрошающих помощи, пишу с нуля ручками и это быстрее, чем я стал бы искать подходящую заготовку из уже написанных программ.

Чтобы быстро набирать программу надо грамотно использовать буфер обмена (быстрые клавиши различного назначения тебе в помощь). В буфер обмена имеет смысл помещать то, что предстоит размножить. Если в коде много похожих строк, то имеет смысл подготовить одну строку - готовую или полуфабрикат, которую размножив останется слегка подкорректировать в соответствии с её назначением в данном месте программы. Аналогично стоит поступать не только со строками, но и с похожими кусками кода.

Иногда имеет смысл использовать процедуры или функции просто даже для сокращения текста программы.
Можно назначить активные клавиши по которым в текст вставлялись бы "любимые" операторы, но тогда придётся помнить их, и подгадать сочетания клавишь так, чтобы они не конфликтовали с таковыми в данной программе набора кода.

Что касается среды разработки Pascal_ABC.NET, то здесь реализована система подсказок и автоматической подстановки операторов и переменных при их наборе. Эти подстановки активизируются при наборе одной или нескольких символов, позволяют выбрать необходимый оператор из контекстного меню. Полезно в плане уменьшения опечаток, а в случае присопосбления к данной системе могут ускорить набор кода. Мне эта система только мешает постоянно. Видимо отключу её из-за её вредоносности

Если это будет полезно можешь набирать программы в оболочке Pascal ABC.NET.

Мне нравится набирать программы в NotePad++ - замечательнейший и бесплатный текстовый редактор с подсветкой кода для программистов и обычных людей. Оснащён кучей реально используемых полезностей...

@Kolbasnik98 · 23.11.2012, 17:28 **[ТС]**

Yurek, с тобой трудно -_-. Вместо того, чтобы объяснить как убрать else, чтобы всё работало, ты упрекаешь меня в том, что я их ставлю.

@Yurek · 23.11.2012, 17:40

Сообщение от Kolbasnik98

Yurek, с тобой трудно

Кто бы говорил, это я уже упарился твоими руками править твою же программу. Проще было бы выложить исправленный вариант, но я не знал, что так сложно убрать else.

Вместо того, чтобы объяснить как убрать else

Уффф, только и делаю, что объясняю что его надо убрать. Чтобы не было разночтений тут следует это буквально понимать как "УДАЛИТЬ оператор else" - выделить и нажать клавишу delete или как-то иначе избавится от этих 4-х букв в каждой из строк. Мне вот это надо было написать?

упрекаешь меня в том, что я их ставлю.

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

Мне казалось, что у того кто программирует вырабатывается соответствующее мышление, но ты всё трактуешь как левая нога захочет.

@Kolbasnik98 · 24.11.2012, 16:15 **[ТС]**

Yurek, до свидания.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	21.11.2012, 17:37
	Вместо запятой and должен быть. 0

@Yurek 181 / 179 / 23 Регистрация: 29.08.2012 Сообщений: 489
	21.11.2012, 18:50
	Kolbasnik98, короче, заменяешь запятую на and, берёшь условия вида X>0 в скобки, перемещаешь begin куда ему положено, ставишь току после end, разбираешься с четвертями (тоже заметил про них, не не стал писать, думал сам разберёшься когда программа заработает) - по-моему там где x и y положительны должна быть первой, а не как у тебя. На самом деле я в шоке от количества ошибок. Всё, что можно было сделать не так сделано не так, даже там где вероятность сего события 50 на 50 1

@Yurek 181 / 179 / 23 Регистрация: 29.08.2012 Сообщений: 489
	22.11.2012, 22:25
	На мой взгляд все эти else излишни, не несут никакой логической нагрузки. Лучше тогда уж добавь проверку на x=0 и y=0 чтобы вывести сообщение про попадание в начало координат, а не писать на экране чего там пользователю не стоит вводить 1

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	23.11.2012, 17:28 [ТС]
	Yurek, с тобой трудно -_-. Вместо того, чтобы объяснить как убрать else, чтобы всё работало, ты упрекаешь меня в том, что я их ставлю. 0

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	24.11.2012, 16:15 [ТС]
	Yurek, до свидания. 0