Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2009, 14:47   #1
witaln
Новичок
Джуниор
 
Регистрация: 10.09.2009
Сообщений: 1
По умолчанию помогите с контрольной

помогите плтз с задачей. Написать фрагмент программы, опредиляющей номер координатной четверти по координатам X,Y
witaln вне форума Ответить с цитированием
Старый 10.09.2009, 14:52   #2
Consol
Пользователь
 
Регистрация: 19.08.2009
Сообщений: 89
По умолчанию

Код:
uses crt;
var x,y:real;
begin
 clrscr;
 writeln('x ');
 readln(x);
 writeln('y ');
 readln(y);

if (x>0)and(y>0) then writeln('Pervaya');
if (x>0)and(y<0) then writeln('Vtoraya');
if (x<0)and(y<0) then writeln('Tret_tya');
if (x<0)and(y>0) then writeln('Chetvertaya');
readln;
end.
конечно может быть что я не так понял задание
Consol вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сижу на контрольной помогите. __k1ll3r__ Паскаль, Turbo Pascal, PascalABC.NET 2 07.03.2008 15:20
Помогите с контрольной karinskih Помощь студентам 3 10.12.2007 18:03
Помогите с контрольной НиколаМГВРК Помощь студентам 4 02.10.2007 15:23
помогите с контрольной Delphi НиколаМГВРК Помощь студентам 3 30.09.2007 12:10