Помогите с контрольной

[НиколаМГВРК]

Pascal
1. Разработать программу, сохраняющую изображение экрана в текстовом режиме и способную восстанавливать это изображение, но уже в графическом режиме. Переход из текстового в графический режим должен осуществляться при нажатии клавиши F9. При повторном нажатии клавиши F9 – обратный переход.

Delphi
2. Разработать формулу для ввода исходных данных и вывода результатов, используя компоненты страницы Standard.
Задание

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат.

[mutabor]

Ты что решил всю учебную программу сюда запостить

[Virtson]

Сообщение от НиколаМГВРК

Разработать формулу для ввода исходных данных и вывода результатов

не формулу а форму

что дублируешь темы ?

[Alex21]

Сообщение от НиколаМГВРК

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат.

Вот:

 
const
R=5;   {радиус окружности}
dp=0.5;{погрешность}
var
ax,ay,bx,by,ox,oy:real; {точки А Б и Начало координат 0(0,0)}
AO,BO:real; {Длина отрезков AO и BO}
 
function Long(x,y:real):real;
begin
  long:=sqrt(sqr(abs(x))+sqr(abs(y)));
end;
 
begin
  {определим координаты точек}
  ax:=-5;
  ay:=0;
  bx:=3.6;
  by:=-2.5;
 {начало координат}
  ox:=0;
  oy:=0;
  {находим длину отрезков AO и BO}
  AO:=Long(ax,ay);
  BO:=Long(bx,by);
  Writeln('Длина отрезка AO = ', AO);
  Writeln('Длина отрезка BO = ', BO);
  if abs(AO-R)<=dp then WriteLn('+AO лежит на окружности') else
               WriteLn('-AO не лежит на окружности');
  if abs(BO-R)<=dp then WriteLn('+BO лежит на окружности') else
               WriteLn('-BO не лежит на окружности');
readln;
end.

[НиколаМГВРК]

да ошибочка вышла правильно форма.