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