Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.11.2016 01:38
- Информатика
- remove_red_eye 8257
- thumb_up 39
Ответы и объяснения 1
A) Для ПРЯМОУГОЛЬНИКА:
program Logika1;
uses Crt;
const a=1;
b=10;
c=1;
d=5;
var x, y: real;
begin
ClrScr;
Write (' x = '); ReadLn(x);
Write (' y = '); ReadLn(y);
if (x>=a) and (x=c) and (y<=d) then
Writeln ('Принадлежит!') else WriteLn ('Не принадлежит...');
ReadLn;
end.
Для КВАДРАТОВ:
program Logika2;
uses Crt;
var x, y: real;
xx, yy: boolean;
begin
ClrScr;
Write (' x = '); ReadLn(x);
Write (' y = '); ReadLn(y);
xx:=(x>=-1) and (x=0.5) and (x<=1);
yy:=(y>=-1) and (y=0.5) and (y<=1);
if (xx and yy) then Writeln ('Yes!') else WriteLn ('No!');
ReadLn;
end.
Для КОЛЬЦА:
program Logika3;
uses Crt;
const R1=4;
R2=2;
var x, y: real;
begin
ClrScr;
Write (' x = '); ReadLn(x);
Write (' y = '); ReadLn(y);
if (sqr(x)+sqr(y)=sqr(R2))
then Writeln ('Yes!') else WriteLn ('No!');
ReadLn;
end.
Для ПОЛУКРУГА и ТРЕУГОЛЬНИКА:
program Logika4;
uses Crt;
const R=2;
var x, y: real;
begin
ClrScr;
Write (' x = '); ReadLn(x);
Write (' y = '); ReadLn(y);
if (sqr(x)+sqr(y)=x-2) and (y<=-x+2)
then Writeln ('Yes!') else WriteLn ('No!');
ReadLn;
end.
- 18.11.2016 08:49
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.