Решения задач практического тура
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.