- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы
Решение
{заголовок программы}
program DEMO_C1;
{раздел подключения модулей и сторонних расширений}
uses
{подключаем модуль crt. crt - console runtime. Данный модуль содержит
специализированные подпрограммы для обработки текста, звука,
клавиатурных событий.}
crt;
{раздел декларации переменных}
var
{координаты точки, которая проверяется
на принадлежность заштрихованной области}
x, y : real;
{начало главного блока программы}
begin
{очистка дисплея от прошлых выводов}
clrscr;
{диалог пользователю о вводе координат проверямой точки}
write('Введите координаты точки: ');
{считываем с клавиатуры значения координаты проверяемой точки}
readln(x, y);
{вставка пустой строки для повышения читабельности программы}
writeln;
{проверяем принадлежность точки заданной заштрихованной области}
if((x < 0) and (y <= 2 - x * x) and (y >= x) or
(x >= 0) and (y >= 0) and (y <= 2 - x * x)) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
{имитация задержки программы. Программа будет закрыта после нажатия
произвольной клавиши на клавиатуре}
readkey;
{финализирующей оператор программы}
end.
program DEMO_C1;
{раздел подключения модулей и сторонних расширений}
uses
{подключаем модуль crt. crt - console runtime. Данный модуль содержит
специализированные подпрограммы для обработки текста, звука,
клавиатурных событий.}
crt;
{раздел декларации переменных}
var
{координаты точки, которая проверяется
на принадлежность заштрихованной области}
x, y : real;
{начало главного блока программы}
begin
{очистка дисплея от прошлых выводов}
clrscr;
{диалог пользователю о вводе координат проверямой точки}
write('Введите координаты точки: ');
{считываем с клавиатуры значения координаты проверяемой точки}
readln(x, y);
{вставка пустой строки для повышения читабельности программы}
writeln;
{проверяем принадлежность точки заданной заштрихованной области}
if((x < 0) and (y <= 2 - x * x) and (y >= x) or
(x >= 0) and (y >= 0) and (y <= 2 - x * x)) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
{имитация задержки программы. Программа будет закрыта после нажатия
произвольной клавиши на клавиатуре}
readkey;
{финализирующей оператор программы}
end.
- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы