Программаны тестілеу. Информатика, 8 сынып, дидактикалық материал, 1 сабақ.

ПРОГРАММАНЫ ТЕСТІЛЕУ

Сабақ мақсаттары:

• тестілеу жоспарын құру
• тестіленетін мәліметтерді анықтау
• тәжірибелік (дұрыс / қате) деректер көмегімен алгоритмді тексеру

1. Тестілеу дегеніміз – программадағы қателерді анықтауға және қандай да бір мәліметтерді енгізу кезінде программаның нәтижесін зерттеуге арналған процесс.

2. Тестілеу мәліметтері дегеніміз тестілеудің түрі мен мақсаттарына сай таңдалып алынған сынақтық мәліметтер

3. Программаны тестілеу барысында кодтау кезінде кеткен қателерді анықтауға және программаның қаншалықты жұмыс жасап тұрғанына көз жеткізуге болады

"Тестілеу" кезеңінде программаның жұмыс ерекшеліктеріне сәйкестігін тексеру үшін бірқатар жоспарлы сынақтар өткізіледі.

"Тестілеу жоспары" осы тестерді сипаттайтын ресми құжат болып табылады.

Тестілеу жоспары (мысал)

Тапсырма: 2-санның қосындысын есептеп, нәтижесін экранға шығаратын программалық код

Тапсырма 1:

program test;

uses crt;

var a,c,r,y,o:integer;b,u:string ;

label 1,2,3,4,5,6,7,8,9,10;

begin

1: u:=('1.что входит в основные устройства аппаратного обеспечения?'); writeln(u);

writeln('1.принтер ,2.сканер,3.монитор'); read(a);

if a=1 then writeln ('не правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln (' правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 1 end;

2:u:=('2.что относится к данным?'); writeln(u);

writeln('1.факты ,2.записи в информационной системе ,3.события'); read(a);

if a=1 then writeln ('не правильно');

if a=2 then writeln (' правильно');

if a=3 then writeln ('не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 2 end;

3:u:=('3.что относится к информации?'); writeln(u);

writeln('1.идеи ,2.компьютерные файлы,3.бумажые документы'); read(a);

if a=1 then writeln (' правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln ('не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 3 end;

4:u:=('4.чему равен 1 мбайт?'); writeln(u);

writeln('1. 1000000 бит 2. 1000000 байт 3. 1024 Кбайт' ); read(a);

if a=1 then writeln ('не правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln (' правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 4 end;

5:u:=('5.Запись и считывание информации в дисководах для гибких дисков осуществляется с помощью…?'); writeln(u);

writeln('1. магнитной головки 2. лазера 3. термоэлемента ' ); read(a);

if a=1 then writeln (' правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln ('не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 5 end;

6: u:=('6.Каково полное имя файла?'); writeln(u);

writeln('1. DOC\PROBA.TXT 2. PROBA.TXT 3. C:\DOC\PROBA.TXT ' ); read(a);

if a=1 then writeln ('не правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln (' правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 6 end;

7: u:=('7.Телефоны и некоторые экраны компьютеров излучают?'); writeln(u);

writeln('a. радиацию 2. токсины.3. витамины ' ); read(a);

if a=1 then writeln (' правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln ('не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 7 end;

8: u:=('8. Человек, поддерживающий порядок и комфортную атмосферу в Интернет-сообществе, отслеживающий и пресекающий всевозможные технические нарушения, а также нарушения сетевого этикета участниками дискуссий.'); writeln(u);

writeln('1 Форум 2 Чат 3 Модератор. ? ' ); read(a);

if a=1 then writeln (' неправильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln (' правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 8 end;

9: u:=('9. Асинхронный инструмент коммуникаций.'); writeln(u);

writeln('1 Форум 2 Чат 3 Модератор. ? ' ); read(a);

if a=1 then writeln (' правильно');

if a=2 then writeln ('не правильно');

if a=3 then writeln (' не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 9 end;

10: u:=('10. Асинхронный инструмент коммуникаций.'); writeln(u);

writeln('1 Форум 2 Чат 3 Модератор. ? ' ); read(a);

if a=1 then writeln (' не правильно');

if a=2 then writeln (' правильно');

if a=3 then writeln (' не правильно');

if (a<1) or (a>3) then begin writeln ('выберите числа от 1 до 3'); goto 10 end;

end.

Тапсырма 2:

program math;

var a,b,c,d,e,f,g,h,i,j,k: integer;

label 1,2,3,4,5,6,7,8,9,10;

begin

k:=0;

writeln('тест "математика 6 класс",');

1: writeln('№1.Запишите все делители числа 15.');

writeln('1. 3;5');

writeln('2. 2;5;10');

writeln('3. 1;10');

writeln('4. 2;5');

writeln('5. 1;3;5;15');

read (a);

if a=1 then writeln ('неверно');

if a=2 then writeln ('неверно');

if a=3 then writeln ('неверно');

if a=4 then writeln ('неверно');

if a=5 then begin writeln ('верно'); k:=k+1; end;

if (a<1) or (a>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 1;

end;

2: writeln('№2.За 4 мин станок изготавливает 18 деталей. Сколько деталей он изготовит за 10 мин?.');

writeln('1. 45');

writeln('2. 40 ');

writeln('3. 56');

writeln('4. 50');

writeln('5. 48');

read (b);

if b=1 then begin writeln ('верно'); k:=k+1; end;

if b=2 then writeln ('неверно');

if b=3 then writeln ('неверно');

if b=4 then writeln ('неверно');

if b=5 then writeln ('неверно');

if (b<1) or (b>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 1;

end;

3:writeln('№3.Вставьте пропущенную цифру так, чтобы число 2634* делилось и на 3, и на 5.');

writeln('1. 5');

writeln('2. 9');

writeln('3. 3');

writeln('4. 0');

writeln('5. 6');

read (c);

if c=1 then writeln ('неверно');

if c=2 then writeln ('неверно');

if c=3 then writeln ('неверно');

if c=4 then begin writeln ('верно'); k:=k+1; end;

if c=5 then writeln ('неверно');

if (c<1) or (c>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 3;

end;

4:writeln('№4.Вычислите: -3,6-(-9,8).');

writeln('1. -13,2');

writeln('2. -6,2');

writeln('3. 6,2');

writeln('4. 6,4');

writeln('5. 13,2');

read (d);

if d=1 then writeln ('неверно');

if d=2 then writeln ('неверно');

if d=3 then begin writeln ('верно'); k:=k+1; end;

if d=4 then writeln ('неверно');

if d=5 then writeln ('неверно');

if (d<1) or (d>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 4;

end;

5:writeln('№5.Вычислите: 2-(5-8)-7.');

writeln('1. 0');

writeln('2. 4');

writeln('3. -2');

writeln('4. 1');

writeln('5. -1');

read (e);

if e=1 then writeln ('неверно');

if e=2 then writeln ('неверно');

if e=3 then begin writeln ('верно'); k:=k+1; end;

if e=4 then writeln ('неверно');

if e=5 then writeln ('неверно');

if (e<1) or (e>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 5;

end;

6:writeln('№6.Вычислите: -12 : 5.');

writeln('1. -2,4');

writeln('2. -2,5');

writeln('3. 2,4');

writeln('4. 2');

writeln('5. 3');

read (f);

if f=1 then begin writeln ('верно'); k:=k+1; end;

if f=2 then writeln ('неверно');

if f=3 then writeln ('неверно');

if f=4 then writeln ('неверно');

if f=5 then writeln ('неверно');

if (f<1) or (f>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5. Попробуйте еще раз ответить');

goto 6;

end;

7:writeln('№7.Упростите выражение: 4а - 9 - а + 6.');

writeln('1. -a - 3 ');

writeln('2. 3a - 3 ');

writeln('3. -a + 3 ');

writeln('4. -5a +15');

writeln('5. 5a - 15 ');

read (g);

if g=1 then writeln ('неверно');

if g=2 then begin writeln ('верно'); k:=k+1; end;

if g=3 then writeln ('неверно');

if g=4 then writeln ('неверно');

if g=5 then writeln ('неверно');

if (g<1) or (g>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 7;

end;

8:writeln('№8. Найдите 0,3 числа от 1200.');

writeln('1. 360');

writeln('2. 400');

writeln('3. 300');

writeln('4. 240');

writeln('5. 280');

read (h);

if h=1 then begin writeln ('верно'); k:=k+1; end;

if h=2 then writeln ('неверно');

if h=3 then writeln ('неверно');

if h=4 then writeln ('неверно');

if h=5 then writeln ('неверно');

if (h<1) or (h>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5. Попробуйте еще раз ответить');

goto 8;

end;

9:writeln('№9.Найдите 0,4 числа от 1600.');

writeln('1. 370');

writeln('2. 240');

writeln('3. 500');

writeln('4. 610');

writeln('5. 640');

read (i);

if i=1 then writeln ('неверно');

if i=2 then writeln ('неверно');

if i=3 then writeln ('неверно');

if i=4 then writeln ('неверно');

if i=5 then begin writeln ('верно'); k:=k+1; end;

if (i<1) or (i>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 9;

end;

10:writeln('№10.Два пункта отдалены друг от друга на 40 км. На карте это расстояние равно 2 см. Каков масштаб карты?.');

writeln('1. 1:2000000');

writeln('2. 1:200000');

writeln('3. 1:20000 ');

writeln('4. 1:2000');

writeln('5. 1:200');

read (j);

if j=1 then begin writeln ('верно'); k:=k+1; end;

if j=2 then writeln ('неверно');

if j=3 then writeln ('неверно');

if j=4 then writeln ('неверно');

if j=5 then writeln ('неверно');

if (j<1) or (j>5) then

begin writeln ('Ваш ответ должен содержать цифры в пределах 1-5.Попробуйте еще раз ответить');

goto 10;

end;

if (k=10) or (k=9) or (k=8)then

begin

writeln ('Вы набрали ',k,' баллов.Отлично.Молодец.');

end;

if (k=7) or (k=6) or (k=5)then

begin

writeln ('Вы набрали ',k,' баллов.Неплохо.');

end;

if (k=4) or (k=3) or (k=2)or (k=1)then

begin

writeln ('Вы набрали ',k,' баллов.Тебе стоит повторить материал 6 класса.');

end;

end.

Тапсырма 3:

Program D1;

Const a=('Здравствуйте! Добро пожаловать на викторину по биологии и астрономии!');

b=( 'Будет 10 вопросов. Желаю хорошо провести время, давайте начнем!');

c=('Первый вопрос: Арбуз - это ягода, фрукт или овощ?');

d=('Поздравляю! Вы правильно ответили!');

e=('Вы не правильно ответили, попробуйте еще раз!');

f=('Второй вопрос: Какая планета Солнечной системы весит больше прочих планет и лун вместе взятых?');

g=('Третий вопрос: Какого цвета у молюсков кровь?');

h=('Четвертый вопрос: Самые примитивные и неклеточные существа?');

i=('Пятый вопрос: Какая звезда всегда указывает на север?');

j=('Шестой вопрос: Напиши формулу фотосинтеза?');

k=('Седьмой вопрос: В какой области мозга находится зрительный центр?');

l=('Восьмой вопрос: Какая азотистая основа есть в РНК, но нет в ДНК? ');

m=('Девятый вопрос: К какому семейству относится пшеница?');

n=('Десятый вопрос: Расшифруйте слово мРНК?');

y=('Молодец! Вы прошли эту викторину! Поздравляю!');

Var o,p,q,r,s,t,u,v,w,x:string;

z,а,б,в,г,д,ж,з,е,ё:integer;

Begin

Writeln(a);

Writeln(b);

Writeln(c);

Readln(o);

If o=('ягода') Then Writeln(d) Else

Repeat

Begin

  Writeln(e);

  Readln(o);

  Writeln(d);

End;

Until o=('ягода');

Writeln (f);

Readln(p);

If p=('юпитер')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(p);

Writeln(d);

End;

Until p=('юпитер');

Writeln (g);

Readln(q);

If q=('голубого')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(q);

Writeln(d);

End;

Until q=('голубого');

Writeln (h);

Readln(r);

If r=('вирусы')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(r);

Writeln(d);

End;

Until r=('вирусы');

Writeln (i);

Readln(s);

If s=('полярная')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(s);

Writeln(d);

End;

Until s=('полярная');

Writeln (j);

Readln(t);

If t=('6CO2+6H2O=C6H12O6+6O2')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(t);

Writeln(d);

End;

Until t=('6CO2+6H2O=C6H12O6+6O2');

Writeln (k);

Readln(u);

If u=('в затылочной доле')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(u);

Writeln(d);

End;

Until u=('в затылочной доле');

Writeln (l);

Readln(v);

If v=('урацил')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(v);

Writeln(d);

End;

Until v=('урацил');

Writeln (m);

Readln(w);

If w=('к семейству злаковых')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(w);

Writeln(d);

End;

Until w=('к семейству злаковых');

Writeln (n);

Readln(x);

If x=('матричная рибоза-нуклеиновая кислота')

Then

Writeln(d)

Else

Repeat

Begin

Writeln(e);

Readln(x);

End;

Until x=('матричная рибоза-нуклеиновая кислота');

If o=('ягода') then

Begin

z:=1;

end;

If p=('юпитер') then

Begin

а:=z+1;

end;

If q=('голубого') then

Begin

б:=а+1;

end;

If r=('вирусы') then

Begin

в:=б+1;

end;

If s=('полярная') then

Begin

г:=в+1;

end;

If t=('6CO2+6H2O=C6H12O6+6O2') then

Begin

д:=г+1;

end;

If u=('в затылочной доле') then

Begin

ж:=д+1;

end;

If v=('урацил') then

Begin

з:=ж+1;

end;

If w=('к семейству злаковых') then

Begin

е:=з+1;

end;

If x=('матричная рибоза-нуклеиновая кислота') then

Begin

ё:=е+1;

end;

Writeln('Вы набрали',ё,'баллов.Отлично!');

Writeln(y);

End.