Решения задач
практического тура
III Открытой олимпиады города Березники по информатике
(БФ ПГТУ, 3 декабря 2010 г.)
1. (программирование, простая)
...
read(s,p);
for x:=1 to 30000 do
y:=s-x;
if(x*y=p) then
write(x, ' ', y);
end.
2. (презентация)
Создать 2 слайда, на первый слайд вставить Рисунок 1, на второй - Рисунок 2, установить флаг смены слайдов "Автоматически после" 1 секунды и установить флаг "Непрерывный цикл до нажатия клавиши ESC".
3. (фотошоп)
Cоздаем документ заданного размера, Color Mode – RGB или Grayscale.
Заливаем лист черным цветом
Инструментом Type Tool пишем текст белым цветом
Ctrl+E,чтобы слить слои.
Image>Rotate Сanvas>90°CCW.
Image>Adjustments>Invert (Ctrl+I).
Filter>Stylize>Wind co значениями: Wind, From the Right.
Image>Adjustments>Invert (Ctrl+I).
Ctrl+F еще 1-2 раза, чтобы еще усилить эффект ветра.
Image>Rotate canvas>90°СW, чтобы вернуть картинку в исходное положение.
Filter>Distort>Ripple со значением Amount=100
Image>Mode>Indexed Сolors.
Image>Mode>Color Тable, со значением Table: Black Body.
4. (сети)
Метод 1: ping route
Обмен пакетами с route [192.168.0.1] по 32 байт:
Ответ от 192.168.0.1: число байт=32 время<1мс TTL=64
Ответ от 192.168.0.1: число байт=32 время<1мс TTL=64
Ответ от 192.168.0.1: число байт=32 время<1мс TTL=64
Ответ от 192.168.0.1: число байт=32 время<1мс TTL=64
Статистика Ping для 192.168.0.1:
Пакетов: отправлено = 4, получено = 4, потеряно = 0 (0% потерь),
Приблизительное время приема-передачи в мс:
Минимальное = 0мсек, Максимальное = 0 мсек, Среднее = 0 мсек
Метод 2: tracert route
Трассировка маршрута к route [192.168.0.1]
с максимальным числом прыжков 30:
1 <1 мс <1 мс <1 мс 192.168.0.1
Трассировка завершена.
Метод 3: nslookup route
Server: UnKnown
Address: 192.168.0.1
5. (html)
<html>
<head>
<title>RAD Delphi 7</title>
<meta http-equiv="content-type"content="text/html; charset=windows-1251">
</head>
<body>
<table height="99%" width="99%">
<tr><td>
<table align="center" valign="center">
<tr><td align="right">Среда быстрой разработки приложений Delphi 7</td></tr>
<tr><td align="center"><img src="img_delphi.jpg" height="300"></td></tr>
</table>
</td></tr>
</table>
</body>
</html>
6. (Excel)
- создать обычную гистограмму для всех категорий данных;
- выделить на гистограмме ряд данных "Средняя цена";
- в меню Формат выбрать команду Тип диаграммы;
- в открывшемся окне выбрать новый тип диаграммы для "Средней цены" - график с маркерами (точечный график)
- нажать <Ok>.
7. (программирование, сложная)
uses crt;
var i,k,N,x,y,j,S:longint;
function step(x,y:longint):longint;
begin
S:=1;
for j:=1 to y do S:=S*x;
Step:=S;
end;
begin
clrscr;
for i:=1 to 30000 do begin
k:=0;
N:=i;
while N>0 do begin
N:=(N div 10);
k:=k+1;
end;
if (((i*i) mod step(10,k))=i) then
writeln('i*i',i*i, 'i=',i);
end;
end.