function Distance2(a,b:Point):real; { возвращает квадрат расстояния между точками } begin Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y) end;
function Max(p,q:real):real; { возвращает максимальное из p,q } begin if p>q then Max:=p else Max:=q end;
procedure Vvod(var a:Point;n:integer); { процедура с изменяемым параметром a } begin Write('Введите координаты точки ',n,': '); Readln(a.x,a.y) end;
var a:array[1..3] of Point; d1,d2,d3:real; i:integer;
begin for i:=1 to 3 do Vvod(a[i],i); d1:=Distance2(a[1],a[2]); d2:=Distance2(a[1],a[3]); d3:=Distance2(a[2],a[3]); if d1>d2 then if d1>d3 then Writeln('Максимальное расстояние 1-2') else if d1=d3 then Writeln('Максимальное расстояние 1-2 и 2-3') else Writeln('Максимальное расстояние 2-3') else if d1=d2 then if d1>d3 then Writeln('Максимальное расстояние 1-2 и 1-3') else if d1=d3 then Writeln('Расстояния между всеми точками одинаковы') else Writeln('Максимальное расстояние 2-3') else if d3>d2 then Writeln('Максимальное расстояние 2-3') else if d3=d2 then Writeln('Максимальное расстояние 1-3 и 2-3') else Writeln('Максимальное расстояние 1-3'); end.
Тестовое решение: Введите координаты точки 1: -2 1 Введите координаты точки 2: 4 5 Введите координаты точки 3: 2 -2 Максимальное расстояние 2-3
Если еще актуально:
1. Укажите, что такое информация с точки зрения компьютера:
последовательность 0 и 1
2. Укажите, как называют информацию, с которой работает компьютер:
данные
3. В какой науке информация рассматривается как содержание сообщения, передаваемого в форме знаков или сигналов?
теории информации
4. В кибернетике информация – это
содержание сигналов, передаваемых по каналам связи в системах управления
5. Кто из перечисленных учёных является основателем кибернетики?
Норберт Винер
6. Укажите, какая наука занимается изучением передачи наследственной информации от поколения к поколению через молекулы ДНК:
генетика
7. Укажите, в рамках какой науки информация рассматривается как содержание управляющих сигналов от мозга к мышечным тканям:
нейрофизиология
8. Укажите, какой философской теории информации не существует:
кибернетической
9.Согласно атрибутивной концепции, …
информация возникла вместе со Вселенной
10. Укажите, согласно какой философской концепции информация является свойством всего сущего, всех материальных объектов:
атрибутивной
11. Укажите, что из перечисленного не относится к пониманию информации в рамках функциональной концепции:
информационная деятельность присуща только человеку
12. Укажите, согласно какой философской теории информация существует лишь в человеческом сознании и человеческом восприятии:
антропоцентрической
13. Укажите, что из перечисленного не относится к свойствам информации:
подробность
14. Укажите, с каким видом информации не работает компьютер:
тактильным
15. Укажите, что в информатике подразумевают под понятием «язык»:
знаковую систему для представления и передачи информации\
16. Укажите, какой из перечисленных языков не является естественным:
алгоритмический
17. Укажите, что понимают под кодированием информации:
процесс представления информации, удобный для её хранения и/или передачи
18. Укажите, для достижения какой цели не используется кодирование информации:
для поиска информации
19. Укажите, как называют действия по преобразованию информации в её первоначальную форму представления:
декодирование
20. Укажите, как называют быстрый записи устной речи:
стенография
21. Укажите, что из перечисленного не относится к характеристикам кода Морзе:
равномерный код
22. Укажите, как называют кодирование с целью засекречивания информации:
шифрование
23. Шифр Цезаря – это шифрования, при котором:
каждый символ исходного текста заменяется символом, находящимся на некотором постоянном числе позиций левее или правее него в алфавите
24. Укажите, что необходимо знать, для того чтобы восстановить сообщение, закодированное шифром Виженера:
ключевое слово
Надеюсь, что смогла )
Point=record
x,y:real
end;
function Distance2(a,b:Point):real;
{ возвращает квадрат расстояния между точками }
begin
Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y)
end;
function Max(p,q:real):real;
{ возвращает максимальное из p,q }
begin
if p>q then Max:=p else Max:=q
end;
procedure Vvod(var a:Point;n:integer);
{ процедура с изменяемым параметром a }
begin
Write('Введите координаты точки ',n,': ');
Readln(a.x,a.y)
end;
var
a:array[1..3] of Point;
d1,d2,d3:real;
i:integer;
begin
for i:=1 to 3 do Vvod(a[i],i);
d1:=Distance2(a[1],a[2]);
d2:=Distance2(a[1],a[3]);
d3:=Distance2(a[2],a[3]);
if d1>d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2')
else
if d1=d3 then Writeln('Максимальное расстояние 1-2 и 2-3')
else Writeln('Максимальное расстояние 2-3')
else
if d1=d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2 и 1-3')
else
if d1=d3 then Writeln('Расстояния между всеми точками одинаковы')
else Writeln('Максимальное расстояние 2-3')
else
if d3>d2 then Writeln('Максимальное расстояние 2-3')
else
if d3=d2 then Writeln('Максимальное расстояние 1-3 и 2-3')
else Writeln('Максимальное расстояние 1-3');
end.
Тестовое решение:
Введите координаты точки 1: -2 1
Введите координаты точки 2: 4 5
Введите координаты точки 3: 2 -2
Максимальное расстояние 2-3