Возможно ли при каких-нибудь значениях x, y, z от нуля до десяти получить. предложения: a) Рыбка плавает в пруду. b) Птичка лета
Возможно ли при каких-нибудь значениях x, y, z от нуля до десяти получить. предложения: a) Рыбка плавает в пруду. b) Птичка летает в пруду. c) Птичка под облаками. d) Рыбка летает под облаками. e) Птичка плавает под облаками. f) Рыбка летает . PROGRAM Ifurok; var x, y, z: byte; BEGIN readln( x, y, z ); if (x>5) or (x<6) then write( ' Рыбка ' ) else write( ' Птичка ' ); if y>7 then if y mod 2 = 3 then write( ' летает ' ) else write( ' плавает ' ); if z mod 3=0 then if (x div 2 > 4) and (x mod 2<>1) then write( ' в пруду ' ) else write( ' под облаками ' ); writeln( '.' ) END.
Из описания следует, что x,y,z - целые неотрицательные числа. Слово "Рыбка" выводится всегда, поскольку х либо меньше 6, т.е. равно 0,1,2,3,4,5, либо больше 5, т.е. равно 6,7,8,9,10. Соответственно, слово "Птичка" не будет выведено никогда. Если y>7 (y=8,9,10), то условие y mod 2 = 3 всегда ложно (остаток от деления на два не может быть равен трем) и поэтому выводится слово "плавает". Если же y<=7, то не выводится ничего. При z, кратном 3 (z=0,3,6,9) проверяется истинность сложного высказывания (x div 2 > 4) and (x mod 2<>1). Оно истинно если при целочисленном делении х на два получается число большее четырех, т.е. при х=10 и при этом х должен быть четным. И тогда будет напечатано в "пруду". Если же это высказывание ложно, печатается "под облаками". И в конце выводится точка. Итак, при значениях x,y,z не превышающих 10: a) Рыбка плавает в пруду. - x=10, y∈[8,9,10], z∈[0,3,6,9] b) Птичка летает в пруду. - никогда c) Птичка под облаками. - никогда d) Рыбка летает под облаками. - никогда e) Птичка плавает под облаками. - никогда f) Рыбка летает. - никогда
Примечание: Уравнение окружности имеет вид: Решение: Рассмотрим 3 случая: 1) <em>Точка лежит внутри окружности. </em>Пусть даны координаты точки x и y. Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности </em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа: program zadacha_1; var x,y,r:real; begin writeln('Введите координаты точки'); readln(x,y); writeln('Введите радиус окружности'); readln(r); if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности') else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности') else writeln('Точка вне окружности'); end.
1. program chislo; var s,i:integer; begin for i:=3 to 100 do s:=s div 6; if s mod 6=0 then begin readln(s) writeln('Ваш результат: ', s); <span>end; </span>end.
2. program chetno; var s,i:integer; begin for i:=-20 to 1200 do s:=s div 2; if s mod 2 = 0 then begin readln(s); writeln('Ваш результат:', s); end; end