Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.
<u>В состав алфавита языка Паскаль входит:</u>
Символы для составления переменных-
<em>латинские(строчные, прописные)</em>
<em> символ "_"</em>
<em> цифры (0..9)</em>
<span>Символы разделители (пробельные символы)
Составные символы - <span><em>особенная группа символов, которая </em>
<em> воспринимаются компилятором как </em>
<em> один</em></span><em> символ "<="</em></span><em>, ":=",">=", "..", "//" "<>" "(*" "*)"</em>
Зарезервированные слова- <span><em>слова, несущие определенное </em>
<em> смысловое значение для компилятора</em>
Спец-символы- <em>символы, которые предназначены для построения </em>
<em> конструкций языка, в Паскале это:
</em><em> ' - + / * : ; = { } [ ] ( ) $ и т.п</em></span><span>
<u>На самом деле их больше, но это основные.</u></span>
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
На 1 символ надо log(2)128=7 бит;
<span>на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт</span>
По формуле N=2^i находим сколько бит содержится в 1 символе данного алфавита:
N=32; N=2⁵ ⇒ i=5. В одном символе содержится 5 бит, значит в сообщении из 384 символов содержится 384*5=1920(бит)=0,24(кбайт).
Вроде так.
