В слове ЗИМА обозначаем буквы их порядковым номером: З - девятая буква алфавита, И - 10, М - 14, А -1.
Получаем последовательность 9 10 14 1.
ИНТЕРНЕТ.
Букву И сдвигаем на 9 букв, получаем С,
букву Н сдвигаем на 10 букв, получаем Ч
букву Т сдвигаем на 14 букв, получаем А (так как сдвиг на 13 это буква Я, алфавит начинается заново, 14 будет буква А)
букву Е сдвигаем на 1 букву, получаем Ж (если в алфавите Ё не считается)
Букву Р сдвигаем на 9 букв, получаем Щ,
букву Н сдвигаем на 10 букв, получаем Ч
букву Е сдвигаем на 14 букв, получаем У
букву Т сдвигаем на 1 букву, получаем У
ИНТЕРНЕТ = СЧАЖЩЧУУ
КОМПЬЮТЕР
букву К сдвигаем на 9 букв, получаем У
букву О сдвигаем на 10 букв, получаем Ш
букву М сдвигаем на 14 букв, получаем Ъ
букву П сдвигаем на 1 букву, получаем Р
букву Ь сдвигаем на 9 букв, получаем Е
букву Ю сдвигаем на 10 букв, получаем З
букву Т сдвигаем на 14 букв, получаем А
букву Е сдвигаем на 1 букву, получаем Ё
букву Р сдвигаем на 9 букв, получаем Щ
КОМПЬЮТЕР = УШЪРГЗАЁЩ
АЛГОРИТМИЗАЦИЯ
букву А сдвигаем на 9 букв, получаем И
букву Л сдвигаем на 10 букв, получаем Х
букву Г сдвигаем на 14 букв, получаем Р
букву О сдвигаем на 1 букву, получаем П
букву Р сдвигаем на 9 букв, получаем Щ
букву И сдвигаем на 10 букв, получаем Т
букву Т сдвигаем на 14 букв, получаем А
букву М сдвигаем на 1 букву, получаем Н
букву И сдвигаем на 9 букв, получаем С
букву З сдвигаем на 10 букв, получаем С
букву А сдвигаем на 14 букв, получаем Н
букву Ц сдвигаем на 1 букву, получаем Ч
букву И сдвигаем на 9 букв, получаем С
букву Я сдвигаем на 10 букв, получаем И
АЛГОРИТМИЗАЦИЯ = ИХРПЩТАНССНЧСИ
Гидравлическая (управление тормозными колодками)
Механическая (рычаги управления)
Электрическая (выключатели управляют освещением например)
Электронная (управление компьютером)
const
n = 100; {максимальное число элементов в массиве}
b = -32768;{константа для заливки массивов }
type
tF = array[1..n] of integer;
function l(f: tF): integer;
var
i, k: integer;
begin
k := 0;
l := n;
for i := 1 to n do
if f[i] = b then
begin
l := i - 1;
exit
end;
k := k + 1;
end;
var
i, k, p1, p2: integer;
f1, f2, f3, f4: tF;
s: string[2];
begin
{ заполним все массивы константой b }
{ если при чтении массива константа b, все элементы прочтены }
for i := 1 to n do
begin
f1[i] := b;
f2[i] := b;
f3[i] := b;
f4[i] := b;
end;
randomize;
{ f1 }
k := random(100) + 1;
write('Длина 1: ', k, ' ');
for i := 1 to k do
f1[i] := random(199) - 99; { число от -99 до 99 }
p1 := l(f1);
writeln(', вычислена длина ', p1);
s := 'f1';
{ f2 }
k := random(100) + 1;
write('Длина 2: ', k);
for i := 1 to k do
f2[i] := random(199) - 99;
p2 := l(f2);
writeln(', вычислена длина ', p2);
if p2 > p1 then
begin
p1 := p2;
s := 'f2';
end;
{ f3 }
k := random(100) + 1;
write('Длина 3: ', k, ' ');
for i := 1 to k do
f3[i] := random(199) - 99;
p2 := l(f3);
writeln(', вычислена длина ', p2);
if p2 > p1 then
begin
p1 := p2;
s := 'f3';
end;
{ f4 }
k := random(100) + 1;
write('Длина 4: ', k, ' ');
for i := 1 to k do
f4[i] := random(199) - 99;
writeln(', вычислена длина ', p2);
if p2 > p1 then
s := 'f4';
write('Самый длинный массив ', s);
end.