Добавил:
ivt
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные / Лаб_1 / Вар_12 / myprog_2
.pas program myprog_var_2;
var
x,y,r:real;
bool:boolean;
begin
writeln('Введите координаты точек X и Y:');
readln(x,y);
r:=sqrt(sqr(x)+sqr(y));
bool:=((r<1)and((y>0)and(x<0.3)or(y<0)and(x>0.3)));
writeln('Значение: ',bool);
end.
var
x,y,r:real;
bool:boolean;
begin
writeln('Введите координаты точек X и Y:');
readln(x,y);
r:=sqrt(sqr(x)+sqr(y));
bool:=((r<1)and((y>0)and(x<0.3)or(y<0)and(x>0.3)));
writeln('Значение: ',bool);
end.
Соседние файлы в папке Вар_12