Составить программу на языке Паскаль для решения следующих задач:
Ответы
1.
var
x,y,c:real;
begin
repeat
readln(x,y);
until x<>y;
if x<y then
begin
c:=x;
x:=(c+y)/2;
y:=2*c*y;
end
else
begin
c:=y;
y:=(c+x)/2;
x:=2*x*c;
end;
writeln(x,' ',y);
end.
2.
var
xa,ya:real;
begin
write('Введите координаты т.А(x y):');
readln(xa,ya);
if (xa=0) and (ya=0) then
begin
writeln('т.А находится в центре координатной плоскости');
exit;
end;
if xa=0 then
if ya>0 then
writeln('на оси OY>0')
else
writeln('на оси OY<0')
else
if xa>0 then
if ya=0 then writeln('на оси OX>0')
else
if ya>0 then writeln('В I-м координатном углу')
else
writeln('В IV-м координатном углу')
else
if ya=0 then writeln('на оси OX<0')
else
if ya>0 then writeln('В II-м координатном углу')
else
writeln('В III-м координатном углу');
end.
3.
var
m,n:integer;
begin
write('Введите числа m и n: '); readln(m,n);
if m=n then
begin
m:=0;
n:=0;
end
else
if m>n then
n:=m
else
m:=n;
writeln(m,' ',n);
end.
Если моё решение помогло вам, отметьте его как лучшее. Спасибо! Удачи!