Контрольная работа по программированию на Паскаль для 9 класса

Контрольный тест

Язык программирования Паскаль

Вариант I

1.      Вычислите значение в линейных и разветвляющихся алгоритмах

a : = 50 ; b : = 6; a : = a * 3 / b if a > b then с = a + 5 * b else с = a - 5 * b;	x:= 8 + 2*5; y:= (x mod 10) + 14; x:= (y div 10) + 3; c:= x - y;
c -?		c -?

2.        Найдите ошибки в записи программы. Перепишите программу в исправленном виде.

program Умножение;

var A, B, C: boolean;

begin

  read (A, B)

  C = A * B

  writeln (Произведение введенных Вами чисел равно , C)

end.

3.      Вычислите значение в циклических алгоритмах

Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End.

var n, s: integer; begin n : = 60;s : = 25; while s < 365 do begin s : = s + 20; n : = n + 10 end; write(n); end.

4.        Написать программу принадлежности точки заштрихованной области.

5.        Укажите недопустимые имена программ на Паскале:

а)      2chisla

б)      kalkulator_dohodov

в)      сумма

г)      xc55po

д)      nAMB3

е)      program

ж)    _123

6.        Запишите на Паскале следующее арифметическое выражение:

7.        Установите соответствия между типами данных и типами переменных в Паскале:

8.        Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d, значение которых записано в отдельном файле. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно. Результат должен быть расположен в отдельном файле .

9.        Определите, что будет выведено на экран после выполнения следующего алгоритма:

var s:integer; k:real;

begin

s := 25;

if s mod 2 <> 0 then

begin

s := s – 1;

k := s / 2;

end

else k:= s;

writeln (k)

end.

10.    Определите, что будет напечатано в результате выполнения следующего алгоритма при имеющихся исходных данных (3, -2, 9, 7, -1, 6, 1):

program Example;

var a: array [1..7] of real; S: real; i: integer;

begin

  for i := 1 to 7 do

read (a[i]);

  S := 0;

  for i := 1 to 7 do

S := S + a[i];

  writeln (S)

end.

Начертите в тетради и заполните таблицу:

i	1	2	3	4	5	6	7
a[i]	3	-2	9	7	-1	6	1
S

11.    Напишите программу, которая находит сумму четных чисел, больших пяти, в последовательности целых чисел. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введенные числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму четных чисел, больших пяти.

Пример работы программы:

Входные данные	Выходные данные
12 15 30 4 2 0	42

12.Вычислить значения обработки  массива

 Var k, m: integer;

Dat: array[1...10] of integer;

Begin

Dat[1] := 2; Dat[2] := 5;

Dat[3] := 7; Dat[4] := 5;

Dat[5] := 4; Dat[6] := 2;

Dat[7] := 0; Dat[8] := 2;

Dat[9] := 4; Dat[10] := 5;

m := 0;  

for k := 1 to 10 do

if Dat[k] > 3 then

begin

m := m+1

end;

writeln(m);

End.

---------------------------------------------------------------------------------------------------------------------

Система оценивания контрольной работы

Оценивание выполненных заданий

Задания	Кол-во баллов
Задания 1	3
Задание 2	2
Задания 3	2
Задания 4	3
Задания 5	2
Задания 6	1
Задания 7	1
Задания 8	3
Задания 9	2
Задания 10	3
Задания 11	5
Задания12	4
	31

Оценка по итогам проверки работы

Кол-во баллов	Оценка
27-31	5
21-26	4
16-20	3

Контрольный тест

Язык программирования Паскаль

Вариант II

1.      Вычислите значение в линейных и разветвляющихся алгоритмах

a := 30; b := 6; a := a / 2 * b; if a > b then c := a - 3 * b else c := a + 3 * b;

c -?

b := -5 a := 2 а := 11 - 2*a - b b := a/3 - 3*b

b - ?

2.        Найдите ошибки в записи программы. Перепишите программу в исправленном виде.

program exmpl

var C: char

begin

  write (‘Введите длины трех сторон треугольника: ’)

read (A, B, C)

  write (‘Треугольник со сторонами ’, a, b, c)

if a + b > c and b + c > a and a + c > b

then write (‘существует.’)

else write (‘не существует.’)

end.

3.      Вычислите значение в циклических алгоритмах

Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s + 9; writeln(s); End.

var n, s: integer; begin n : = 30; s : = 25; while s < 425 do begin s : = s + 40; n : = n + 10 end; write(n);end.

4.        Укажите недопустимые имена программ на Паскале:

а)      Математика

б)      _semenova

в)      сумма

г)      xc55po

д)      inform_урок

е)      begin

ж)    _123

5.        Запишите на Паскале следующее арифметическое выражение:

6.        Установите соответствия между типами данных и типами переменных в Паскале:

7.        Определите значение переменной c после выполнения алгоритма, записанного в виде блок-схемы:

8.        Определите значение переменной c после выполнения следующего фрагмента программы:

a := 100;

b := 30;

a := a – b * 3;

if a > b

then

c := a – b

else

c:= b – a

9.        Напишите программу. Даны три действительных числа. Возвести в квадрат те их них, значения которых неотрицательны, и в четвертую степень – отрицательные. Результат вывести на экран.

10.           

     По данному условию ставить программу вычисления y.

11.   Заполнить случайным образом массив из 20 чисел элементами от 0 до 100, найти количество чисел кратных 15.

12.  Вычислить значения  обработки массива

Б) Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 2;Dat[3] := 3; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] >= m then begin m:= Dat[k]; day := k; end; write(day); End.

---------------------------------------------------------------------------------------------------------------------

Система оценивания контрольной работы

Оценивание выполненных заданий

Задания	Кол-во баллов
Задания 1	3
Задание 2	2
Задания 3	2
Задания 4	3
Задания 5	2
Задания 6	1
Задания 7	1
Задания 8	3
Задания 9	2
Задания 10	3
Задания 11	5
Задания12	4
	31

Оценка по итогам проверки работы

Кол-во баллов	Оценка
27-31	5
21-26	4
16-20	3

Контрольный тест

Язык программирования Паскаль

Вариант III

Вычислите значение в линейных и разветвляющихся алгоритмах

а := 4 b := 4 а := 2*а + 3*b b := a/2*b

b - ?

a := 3 + 8*4; b := (a div 10) + 14; a := (b mod 10) + 2; c := a + b;

c -?

1.        Найдите ошибки в записи программы. Перепишите программу в исправленном виде.

program произведение

A, B, C: real

begin

  readln (A, B)

  C = A * B

  writeln (Произведение введенных Вами чисел равно , C)

end.

2.      Вычислите значение в циклических алгоритмах

А) Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s + 9; writeln(s); End.

Б) Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End.

3.        Укажите недопустимые имена программ на Паскале:

а)      chisla

б)      (hit)

в)      сумма

г)      666

д)      NYPL

е)      readln

4.        Запишите на Паскале следующее арифметическое выражение:

5.        Установите соответствия между типами данных и типами переменных в Паскале:

6.        В алгоритме, записанном ниже, используются целочисленные переменные a и b. Определите значение переменной b после выполнения данного алгоритма:

a := 7;

b := a – 8;

a := -3 * b + 3;

b := a / 2 * b

7.        Определите значение переменной s после выполнения фрагмента алгоритма:

8.        Напишите программу для вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.

9.      10.  По данному условию ставить программу вычисления y.

10.   Заполнить случайным образом массив из 30 чисел элементами от 0 до 500, найти количество чисел кратных 20.

11.  Вычислить значения  обработки массива

А) Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 12; Dat[2] := 15;

Dat[3] := 17; Dat[4] := 15;

Dat[5] := 14; Dat[6] := 12;

Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0;

for k := 1 to 10 do

if Dat[k] = 15 then

begin

m := m+1;

end;

writeln(m);

End.

---------------------------------------------------------------------------------------------------------------------

Система оценивания контрольной работы

Оценивание выполненных заданий

Задания	Кол-во баллов
Задания 1	3
Задание 2	2
Задания 3	2
Задания 4	3
Задания 5	2
Задания 6	1
Задания 7	1
Задания 8	3
Задания 9	2
Задания 10	3
Задания 11	5
Задания12	4
	31

Оценка по итогам проверки работы

Кол-во баллов	Оценка
27-31	5
21-26	4
16-20	3