<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
(280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
(180,220),(220,220),(200,180),(200,140));
DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.
1. Используя шифр Цезаря, декодировать следующие фразы:
a. ЛМБТТОЬК ШБТ
КЛАССНЫЙ ЧАС (сдвиг -1)
b. ВЁМПЁ ТПМОЧЁ РФТУЬОЙ
БЕЛОЕ СОЛНЦЕ ПУСТЫНИ (сдвиг -1)
c. РЦЙРГ ТСПСЪЮ
НУЖНА ПОМОЧЫ (сдвиг -3, или описка или ошибка или так и задумывалось)
2. При использовании шифра перестановки кодирование осуществляется перестановкой букв по одному и тому же правилу. Восстановите слова и определите правила перестановки:
обмен букв 1 и 3, 4 и 6, 7 и 8 если есть
a. НИМАРЕЛ
Минерал
b. ЛЕТОФЕН
Телефон
c. НИЛКЙЕА
Линейка
d. НОМОТИР
Монитор
e. РАКДНАША
Карандаш
3. Используя шифр перестановки из предыдущего задания, закодируйте слова: ГОРИЗОНТ, ТЕЛЕВИЗОР, МАГНИТОФОН
Ригозитн
Летиверзо
Гамтинфоон
Дополнительная задача (5 баллов)
Даны фразы на языке ниуэ (древний полинезийский язык) и их переводы на русский язык:
1. Kua kitia e koe a Pule. - Ты видишь Пуле.
2. Tо lеlе е mаnu. - Птица полетит.
3. Kua kоukоu a kоe. - Ты купаешься.
4. Kua fanо a ia. - Он идет.
5. Ne kitia he tama a Siоne. - Мальчик видел Джона.
6. Kua fano e tama. - Мальчик идет.
7. To kitia e Sione a ia. - Джон увидит его.
8. Ne liti e ia e kulї. - Он бросил собаку.
9. Kua kai ne kulї e mаnu. - Собака ест птицу.
Задание. Переведите на язык ниуэ: (правильность не гарантирую, тем более с артиклями)
1. Мальчик пойдет.
To fano e tama
2. Ты съешь собаку.
To kai a koe e kulї
3. Джон купался.
Ne kоukоu e Sione
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.
var x,y,dist:real;
begin
readln(x,y);
dist:=sqrt(x*x+y*y);
readln(x,y);
x:=sqrt(x*x+y*y);
if (x>dist) then writeln('2-я точка ближе')
else if (x<dist) then writeln('1-я точка ближе')
else writeln('Одинаково')
end.