За морями, за лесами, за высокими горами, В компьютерном царстве, в компьютерном государстве Жили были Единицы информации. Хорошо они жили, не тужили, Госпоже информации все верно служили, Службой своей очень дорожили. Каждая Единица имя имела, Каждой было поручено своё дело. И назывались единицы так: Бит, Байт, Кб, Мб, Гб и Тб. Как-то собрались Единицы информации все вместе На жестком диске в файловом поместье. И решили они устроить бал, Чтоб народ их получше узнал. Госпожа Информация эту идею поддержала И своим Единицам такие наказы давала: "Чтоб на бал не только сами пришли, Но и друзей туда своих привели. И пусть каждая про себя расскажет, И себя и друзей своих покажет» . И вот бал начинается Много гостей на него собирается. Сама Информация бал открывала, При этом вид свой часто меняла. И были у Информации виды такие: Текстовые, графические, числовые, На виды информации вы посмотрите, Чудесные танцы их оцените. отом Единицы стали выступать, И про них можно много было узнать. Как наименьшая Единица, первым выступил Бит Два значенья он только хранит, Ноль или Единицу Двоичную Нулю сестрицу. Обмен меж ними он ведёт И песенку про них поёт. «Если в Бите Ноль живёт Единица тогда ждёт, Когда Ноль уступит место Ведь вдвоём им в Бите тесно. » За Битом Байт был представлен Основной Единицей он был объявлен. За что же ему такая честь. Что в нём особенного есть? Послушаем, что Байт расскажет, Каких друзей своих покажет. «Восемь Битов Байт составят И они его заставят Превратиться в букву, в цифру И в какой-то знак любой, Как приказано им будет Их любимой госпожой. Байт - это символ и только один, Но если мы Байты объединим, То получим слово или число, Смотрите, как много на бал их пришло. Гостям про основную Единицу понятно» И Байта послушать было приятно. Следующим на балу объявляют Килобайта, Чем отличается он от знакомого Байта. Так, про себя рассказывает Кб: "Я объединяю 1024 Байт. И только в этом моё назначенье, Удобно иметь побольше значенье. Возьмём мы к примеру какой-нибудь файл, Если будет объём его мал, То в Байтах размер тогда выражается, Для крупных - объём в Кб считается. За Килобайтом идёт Мб Он объединяет 1024 Кбт. Мегабайт привёл на бал Память Оперативную И рассказал историю почти детективную. «Вся память раньше в Мб измерялась Она всегда моей считалась, Как вдруг, жесткий диск к Гб ушёл, Потом и побольше приют он нашёл. Уже в Тб жесткий диск измеряется, Всё дальше он от меня удаляется, Но я не в обиде, одна мы семья, А в ней мы все большие друзья. Станцует сейчас жесткий диск перед вами, Что будет за танец посмотрите сами. Вон там Гб с Тб стоят И о себе они так говорят: "Пока самые крупные Единицы - мы, Но признаться Вам должны, Что могут появиться ещё крупнее Информация становится всё нужнее. Ну а сейчас всем ясно стало, Как информацию считать, И какие Единицы, когда надо применять. Единицы все о себе рассказали, Гостей танцевать они приглашали, И песенку хором все напевали. «Единицы мы дружны, информации верны и считать её должны, . Общее для нас важней, и ценней, и милей Станем мы ещё дружней, веселей и нужней. Все мы связаны друг с другом И гордимся своим кругом. Неразрывны, неразлучны, Вместе нам совсем не скучно. Будем мы Единство дружбой укреплять, Информацию повсюду будем прославлять. Не разлучит нас никто, Все мы целое одно. Единицы мы дружны, информации верны. Полюбить вы нас должны, да должны. Забывать про нас не нужно Вы живите с нами дружно Мы вам будем Информацию считать Биты, Байты, Килобайты Перед вами здесь стоят Мегабайты, Гигабайты Дружно все вам говорят, Что они стараться будут Информацию считать И ошибки в её счете Ни за что не допускать Ну а вы старайтесь тоже, Ошибаться вам негоже Дружно с нами вы живите Нас получше изучите. Вместе будем мы трудиться Не захочется лениться Никому и никогда Труд нам радостен всегда. Ну а сейчас наш бал завершается Гости все по домам разъезжаются Но Единиц информации они уже не забудут И правильно использовать их будут. Надеюсь что
procedure GetPoint(c:char; var A:Point); var x,y:real; begin Write('Введите координаты x и y точки ',c,': '); Read(x,y); A.x:=x; A.y:=y end;
function DistPoint(A,B:Point):real; begin DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
var A,B,M:Point; d,p,ab,ma,mb:real; begin GetPoint('A',A); GetPoint('B',B); GetPoint('M',M); ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B); if ma>=ab+mb then d:=mb else if mb>=ma+ab then d:=ma else begin p:=(ma+mb+ab)/2; d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; Writeln('Минимальное расстояние составляет ',d) end.
Тестовое решение: Введите координаты x и y точки A: -3 -5 Введите координаты x и y точки B: 2 5 Введите координаты x и y точки M: -3 4 Минимальное расстояние составляет 4.02492235949962
В компьютерном царстве, в компьютерном государстве
Жили были Единицы информации.
Хорошо они жили, не тужили,
Госпоже информации все верно служили,
Службой своей очень дорожили.
Каждая Единица имя имела,
Каждой было поручено своё дело.
И назывались единицы так:
Бит, Байт, Кб, Мб, Гб и Тб.
Как-то собрались Единицы информации все вместе
На жестком диске в файловом поместье.
И решили они устроить бал,
Чтоб народ их получше узнал.
Госпожа Информация эту идею поддержала
И своим Единицам такие наказы давала:
"Чтоб на бал не только сами пришли,
Но и друзей туда своих привели.
И пусть каждая про себя расскажет,
И себя и друзей своих покажет» .
И вот бал начинается
Много гостей на него собирается.
Сама Информация бал открывала,
При этом вид свой часто меняла.
И были у Информации виды такие:
Текстовые, графические, числовые,
На виды информации вы посмотрите,
Чудесные танцы их оцените.
отом Единицы стали выступать,
И про них можно много было узнать.
Как наименьшая Единица, первым выступил Бит
Два значенья он только хранит,
Ноль или Единицу
Двоичную Нулю сестрицу.
Обмен меж ними он ведёт
И песенку про них поёт.
«Если в Бите Ноль живёт
Единица тогда ждёт,
Когда Ноль уступит место
Ведь вдвоём им в Бите тесно. »
За Битом Байт был представлен
Основной Единицей он был объявлен.
За что же ему такая честь.
Что в нём особенного есть?
Послушаем, что Байт расскажет,
Каких друзей своих покажет.
«Восемь Битов Байт составят
И они его заставят
Превратиться в букву, в цифру
И в какой-то знак любой,
Как приказано им будет
Их любимой госпожой.
Байт - это символ и только один,
Но если мы Байты объединим,
То получим слово или число,
Смотрите, как много на бал их пришло.
Гостям про основную Единицу понятно»
И Байта послушать было приятно.
Следующим на балу объявляют Килобайта,
Чем отличается он от знакомого Байта.
Так, про себя рассказывает Кб:
"Я объединяю 1024 Байт.
И только в этом моё назначенье,
Удобно иметь побольше значенье.
Возьмём мы к примеру какой-нибудь файл,
Если будет объём его мал,
То в Байтах размер тогда выражается,
Для крупных - объём в Кб считается.
За Килобайтом идёт Мб
Он объединяет 1024 Кбт.
Мегабайт привёл на бал Память Оперативную
И рассказал историю почти детективную.
«Вся память раньше в Мб измерялась
Она всегда моей считалась,
Как вдруг, жесткий диск к Гб ушёл,
Потом и побольше приют он нашёл.
Уже в Тб жесткий диск измеряется,
Всё дальше он от меня удаляется,
Но я не в обиде, одна мы семья,
А в ней мы все большие друзья.
Станцует сейчас жесткий диск перед вами,
Что будет за танец посмотрите сами.
Вон там Гб с Тб стоят
И о себе они так говорят:
"Пока самые крупные Единицы - мы,
Но признаться Вам должны,
Что могут появиться ещё крупнее
Информация становится всё нужнее.
Ну а сейчас всем ясно стало,
Как информацию считать,
И какие Единицы, когда надо применять.
Единицы все о себе рассказали,
Гостей танцевать они приглашали,
И песенку хором все напевали.
«Единицы мы дружны, информации верны и считать её должны, .
Общее для нас важней, и ценней, и милей
Станем мы ещё дружней, веселей и нужней.
Все мы связаны друг с другом
И гордимся своим кругом.
Неразрывны, неразлучны,
Вместе нам совсем не скучно.
Будем мы Единство дружбой укреплять,
Информацию повсюду будем прославлять.
Не разлучит нас никто,
Все мы целое одно.
Единицы мы дружны, информации верны.
Полюбить вы нас должны, да должны.
Забывать про нас не нужно
Вы живите с нами дружно
Мы вам будем
Информацию считать
Биты, Байты, Килобайты
Перед вами здесь стоят
Мегабайты, Гигабайты
Дружно все вам говорят,
Что они стараться будут
Информацию считать
И ошибки в её счете
Ни за что не допускать
Ну а вы старайтесь тоже,
Ошибаться вам негоже
Дружно с нами вы живите
Нас получше изучите.
Вместе будем мы трудиться
Не захочется лениться
Никому и никогда
Труд нам радостен всегда.
Ну а сейчас наш бал завершается
Гости все по домам разъезжаются
Но Единиц информации они уже не забудут
И правильно использовать их будут.
Надеюсь что
Point=record
x,y:real
end;
procedure GetPoint(c:char; var A:Point);
var
x,y:real;
begin
Write('Введите координаты x и y точки ',c,': ');
Read(x,y);
A.x:=x; A.y:=y
end;
function DistPoint(A,B:Point):real;
begin
DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
var
A,B,M:Point;
d,p,ab,ma,mb:real;
begin
GetPoint('A',A); GetPoint('B',B); GetPoint('M',M);
ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B);
if ma>=ab+mb then d:=mb
else
if mb>=ma+ab then d:=ma
else begin
p:=(ma+mb+ab)/2;
d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab
end;
Writeln('Минимальное расстояние составляет ',d)
end.
Тестовое решение:
Введите координаты x и y точки A: -3 -5
Введите координаты x и y точки B: 2 5
Введите координаты x и y точки M: -3 4
Минимальное расстояние составляет 4.02492235949962