pascal 01 (Все готовые лабы по паскалю)
Описание файла
Файл "pascal 01" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 1 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "pascal 01"
Текст из документа "pascal 01"
2
Y
) точка задана своими координатами (X,Y).написать программу, которая, используя логические выражение выводит True, если точка принадлежит заштрихованной области и False- не принадлежит.
X
2
1
-2
1
-1
2
-2
-
Текст программы:
program dima;
var
x,y:real;
q,q1,q2:boolean;
readln(x,y);
q1:=(sqr(x)+sqr(y)<=4) and ( x<=0 );
q2:=(sqr(x) +sqr(y)<=4) and ( x>=0 )
and (sqr(x) + sqr(y)> =1);
q:=q1 or q2;
writeln(q);
readln;
end.
-
Исходные данные: 4 and 5; 0.5 and 0.5
Результат:FALSE; FALSE