Egor67 Сообщение 23/01/2011 14:30 Копия темы
Помогите решить программу на Pascal'e Составить программу, определяющую принадлежит ли точка (х;y) первой координатной четверти.

WingRabbit Сообщение 23/01/2011 14:50 Копия темы
program superporno;
var
x:integer;
y:integer;
Begin
  readLN(x);
  readLN(y);
  if  ((x>0) and (y>0)) then WriteLN("Yeaaaaah!");
  else WriteLn("Nooooo");
  ReadLN;
End.


Как-то так. На паскале не писал со школы, может синтаксис напутал :)

x-rem Сообщение 23/01/2011 17:10 Копия темы
I четверть это вроде же x<0 а y>0
И для удобства можно сделать так:
....
begin
write('Enter X:');
readln(x);
write('Enter Y:');
readln(y);
....

WingRabbit Сообщение 23/01/2011 18:35 Копия темы
ненене, первая как раз положительная осям :)

DelphinPRO Сообщение 23/01/2011 19:27 Копия темы

В этом месте должно было быть девятиэтажное матерное выражение, но оно удалено цензурой.

Это насколько же ***** ***** ****, чтоб не решить такую элементарную задачу???!!!