Консультация № 197097
14.11.2019, 15:36
0.00 руб.
0 4 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами. В pascal

Обсуждение

давно
Профессор
401888
1232
14.11.2019, 15:41
общий
Адресаты:
Какие у Вас претензии к моему предыдущему коду?
давно
Старший Модератор
31795
6196
17.11.2019, 02:06
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]var
x,y:real;
function Quarter(a,b:real):integer;
begin
Quarter:=1*ord(a>0)*ord(b>0)+
2*ord(a<0)*ord(b>0)+
3*ord(a<0)*ord(b<0)+
4*ord(a>0)*ord(b<0)
end;
begin
repeat write('x:=');readln(x)until x<>0;
repeat write('y:=');readln(y)until y<>0;
write('result:=',Quarter(x,y));
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
17.11.2019, 02:08
общий
Адресаты:
Цитата: JonMoxley
для трех точек с

Сделаете сами.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
17.11.2019, 02:13
общий
Адресаты:
код, слегка подправил.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа