Информатика, опубликовано 09.01.2019 16:01
Круг в полосе
Даны круг и полоса. Нужно выяснить, лежит ли круг в этой полосе.
Input
Со стандартного устройства ввода вводится через пробел 4 целых числа, не
превосходящих по модулю 10000 (последние два положительны) – координаты центра
круга x, y, его радиус R, и ширина полосы a. Полоса – часть плоскости между прямыми
y=0 и y=a, и сами прямые.
Output
Нужно выдать на стандартное устройство вывода одно из следующих сообщений:
“Krug lezhit v polose”, если все точки круга являются частью полосы;
“Krug nad polosoi”, если круг расположен строго выше полосы;
“Krug pod polosoi”, если круг расположен строго ниже полосы;
“Krug chastichno zakryt polosoi”, если часть круга в полосе, а часть выше и/или ниже.
Кавычки выводить не нужно.
.
Sample Input Sample Output
4 4 2 2 Krug nad polosoi
1 1 1 5 Krug lezhit v polose
напишите программу
Ответ оставил: Гость
1. var a: integer;
Begin
if a > 0 then a := a + 1;
write (a);
end.
2. var a: integer;
Begin
if a < 0 then a:= a * 2;
write (a);
end.
3. var a: integer;
Begin
if a <> 0 then a:= a - 4;
write(a);
end.
4. var a: integer;
Begin
if a > 0 then a:= a + 1
else a:= a - 1;
write (a);
end.
5. var a: integer;
Begin
if a = 0 then a:= a + 3
else a:= 0;
write (a);
end.
6. var x, y: real;
if x > y then x:= x*y
else x:= x + y;
write (x);
end.
Begin
if a > 0 then a := a + 1;
write (a);
end.
2. var a: integer;
Begin
if a < 0 then a:= a * 2;
write (a);
end.
3. var a: integer;
Begin
if a <> 0 then a:= a - 4;
write(a);
end.
4. var a: integer;
Begin
if a > 0 then a:= a + 1
else a:= a - 1;
write (a);
end.
5. var a: integer;
Begin
if a = 0 then a:= a + 3
else a:= 0;
write (a);
end.
6. var x, y: real;
if x > y then x:= x*y
else x:= x + y;
write (x);
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01