Оптический телеграф Оптический телеграф В 1792 году во Франции Клод Шапп создал систему передачи визуальной информации, которая получила название «Оптический телеграф» . В простейшем виде это была цепь типовых строений, с расположенными на кровле шестами с подвижными поперечинами, которая создавалась в пределах видимости одно от другого. Шесты с подвижными поперечинами — семафоры — управлялись при тросов специальными операторами изнутри строений. Шапп создал специальную таблицу кодов, где каждой букве алфавита соответствовала определенная фигура, образуемая семафором, в зависимости от положений поперечных брусьев относительно опорного шеста. Система Шаппа позволяла передавать сообщения на скорости два слова в минуту и быстро распространилась в Европе. В Швеции цепь станций оптического телеграфа действовала до 1880 года
1)
program pr;
uses crt;
Var y,x:real;
Begin
Writeln('vvedite x');
readln(x);
y:=(4*x)/(x-1);
Writeln('y=',y:10:3);
readln;
end.
2)
program pr;
Var n,i,a:integer;
Begin
Writeln('введите кол-во цыфр');
readln(n);
for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;
end.
2) использование массива
program pr;
uses crt;
Var n,i:integer;
a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);
Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');
end.
К посту прикреплены изображения трех рисунков и скриншот веб-страницы.
Все работы в прикрепленном архиве. Чтобы открыть архив, просто замените в имени файла .txt на .zip