//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>
Шина команд имеет множество определений, многие из которых не всегда являются чёткими, так например:
1) В случае с реализацией в железе. Это множественное подключение логических элементов через последовательную или параллельню сеть обеспечивающих консестентную доставку информации в системах передачи данных, не обязательно цифровых, например система клапанов двигателя и система регулирования так же является шиной команд но в аналоговой, механической реализации.
2) В случае с пк или процессором ПК в частности шина команд (Command Bus) обеспечивает интерфейс для передачи процессору команд и результата их вычисления(в ряде случаев) по универсальному методу из программной области памяти (ОЗУ,ПЗУ, ППЗУ) зависит от конкретной реализации ВУ в случае с радиометрическими вычислителями, такие как на радарных станциях и стсемах наведения шина команд фактически отсутствует, т.к. несколько снижает скорость обмена данными уступая здесь узкоспециальным интерфейсам.
32=2^6 => Для русского языка 1 символ несет 6 бит инфы.
26=2^i => i = log 26 по основанию 2 = 4,7 бит => Для фр. языка 1 символ несет 4,7 бит инфы.
V информации = 10 * 6 бит = 60 бит (для русского языка)
V информации = 10 * 4,7 бит = 47 бит (для фр. языка)
Значит для русского языка сообщение из 10 знаков несет больше информации.
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе