Тесты и рекомендации по оценке работ по программированию

Задание 1. «Слово – 100 баллов».

Тест

Исходные данные

Результат

1

computer

0

2

processor

3

3

tangerine

2

4

kukareku

3

Оценка: 25 баллов за тест

Задание 2. «Остаток – 100 баллов».

Тест

Исходные данные

Результат

1

0, 1

901

2

16, 16

16

3

9, 5

1505

4

16, 99

1699

Оценка: 25 баллов за тест.

Задание 3. «Точки – 100 баллов».

Тест

Исходные данные – файл tohki. txt

Результат

1

3

–2 2 2 –2

–1 4 1 –3

6

2

4

1

3

5

–99 0 99 99

–200 10 150 –1

–115 3 155 –2

–300 300 300 –300

199

4

2

–1–999

–999 –999

3996001

Оценка: 25 баллов за тест. При вводе информации с клавиатуры общая оценка уменьшается на 20 баллов. Файлы для проверки tohki. txt прилагаются.

Варианты возможного решения заданий (FreePascal).

Задача 1. «Слово – 100 баллов».

program slovo;

uses crt;

var

s:string;

sim:char;

k, i,n, p:integer;

begin

clrscr;

writeln('Введите слово ');

readln(s);

n:=length(s);

k:=0;

for i:=n downto 2 do

begin

sim:=s[i];

p:=pos(sim, s);

if (p<i) then k:=k+1;

end;

writeln('Слово <Опять> прозвучит ',k,' раз/раза');

readkey;

end.


Задача 2. «Остаток – 100 баллов»

program ostatok;

uses crt;

var

a, b,n, i:integer;

flag:boolean;

begin

clrscr;

writeln('Введите остаток от деления на 17');

readln(a);

writeln('Введите остаток от деления на 100');

readln(b);

flag:=false;

for i:=0 to 1699 do

begin

if ((i mod 17=a) and (i mod 100=b)) then

begin

if (flag=false) then

begin

write('Возможный остаток ');

flag:=true;

end;

write(i:5);

end;

end;

writeln();

readkey;

end.

Задача 3. «Точки – 100 баллов»

program tohki;

uses crt;

var

n, x1,y1,x2,y2,xl, xp, yv, yn, i:integer;

finp:text;

begin

clrscr;

assign(finp,'tohki. txt');

reset(finp);

read(finp, n);

read(finp, x1,y1,x2,y2);

xl:=x1;xp:=x2;yv:=y1;yn:=y2;

for i:=2 to n do

begin

read(finp, x1,y1,x2,y2);

if (xl<x1) then xl:=x1;

if (xp>x2) then xp:=x2;

if (yv>y1) then yv:=y1;

if (yn<y2) then yn:=y2;

end;

close(finp);

if ((xl>xp) or (yv<yn)) then

writeln('Искомых точек нет ')

else

writeln('Искомых точек ',(xp-xl+1)*(yv-yn+1));

readkey

end.



Ответы к заданиям 5-6 класс

Ответы к заданиям 7-8 класс

№ задания

Вариант ответа

№ задания

Вариант ответа

1

А

1

А

2

Г и Б

2

А

3

Д

3

Д

4

Б

4

Д

5

Б

5

Д

6

А

6

А

7

Б

7

Д

8

Г

8

Г

9

В

9

В

10

В

10

Б

11

Г

11

В

12

А

12

Б

13

Д

13

Г

14

В

14

Д

15

Б

15

В

16

Г

17

А

18

Б