В своей аналитической машины Чарльз Бэббидж выпустил в свет в 1835 году. Это машина - компьютер общего назначения, считается, использовались и сведения, вносимые программ для перфокарты, а двигатель пара использовались в качестве источника энергии. Кольца для зубов использовались математические операции.
Изначально, идея по Бэббидждің, логарифмические таблицы с большой точностью, необходимо создание печатающих машин. Только затем, с применением перфокарт, эта идея "аналитической машины" до развивались.
Планы определены, что может жеткізілгенімен реализации проекта, определенные при создании машины возникли определенные трудности. Бэббидж поступил в дискуссии с человеком, который в каждом своем несогласии с идеями. Надо вручную все части машин. Тысячи детальдардан машина для выезда детальда стоимость каждой ошибки, поэтому, при более высокой точности изготовления деталей. В результате, между деталей, совершающих содержит автор проекта и специалист, и государственного финансирования
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
repeat
writeln('Введите пароль ');
readln (vvod);
until vvod=pass;
writeln('Принято');
end.
Program Ksushaa1999PasswordWhile;
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
while vvod<>pass do
begin
writeln('Введите пароль ');
readln (vvod);
end;
writeln('Принято');
end.
Program PKsushaa1999PasswordIf;
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
label
metka;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
metka: writeln('Введите пароль ');
readln (vvod);
if vvod<>pass then goto metka;
writeln('Принято');
end.