Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.
Решение:
program pr4;
var x,y: real;
begin
Write('введите x y ');
readln (x,y);
if (sqr(x)+sqr(y)<=25) and (sqr(x)+sqr(y)>=4) then writeln('точка попадает в заштрихованную область')
else writeln('точка не попадает в заштрихованную область');
readln;
end.
Результат:
1 случай:
введите x y 1 1
точка попадает в заштрихованную область
2 случай:
введите x y 2 5
точка не попадает в заштрихованную область
Пример 5.
Введено трехзначное число. Необходимо разбить его на цифры. Все четные цифры, которые меньше 8 увеличить на 2, а 8 заменить на 0.
Решение:
program pr5;
var n,a,b,c,d:Integer;
begin
write('введите n'); readln (n);
a:=n div 1000; b:=n div 100 mod 10;
c:=n div 10 mod 10; d:=n mod 10;
if (a mod 2=0) and (a<8) then a:=a+2 else if a=8 then a:=0;
if (b mod 2=0) and (b<8) then b:=b+2 else if b=8 then b:=0;
if (c mod 2=0) and (c<8) then c:=c+2 else if c=8 then c:=0;
if (d mod 2=0) and (d<8) then d:=d+2 else if d=8 then d:=0;
writeln('результат ',a,b,c,d);
readln;
end.
Результат:
введите n1824
результат 1046