Меню
Разработки
Разработки  /  Информатика  /  Проверочные работы  /  Контрольная работа по информатике по теме "Циклы" (Турбо Паскаль)

Контрольная работа по информатике по теме "Циклы" (Турбо Паскаль)

Работа предназначена для проверки знаний по данной теме в разделе "Алгоритмизация и программирование".
08.05.2014

Описание разработки

Работа состоит из нескольких частей.

  1. Проверка теоретического материала.
  2. Проверка знаний структуры и правильность написания программы, созданной на языке программирования Паскаль.
  3. Проверка умения четко формулировать условие задачи по тексту написанной программы.
  4. Проверка умения создавать программы на языке программирования Паскаль согласно заданному условию.

Вариант №1

  1. Для чего предназначен раздел Uses?
  2. С помощью какого оператора можно считать информацию, введенную с клавиатуры во время работы программы?
  3. Напишите общий вид оператора «Цикл с условием».
  4. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

       Program MyError;

       Var X, Y, Сумма : integer;

       Begin

               WriteLn(Введите значение X); ReadLn(X);

               WriteLn(Введите значение Y); ReadLn(Y);

               Сумма = X + Y;

               WriteLn(Сумма);

End.

  1. Точно и четко сформулируйте условие задачи, которая решается в данной программе:

Uses Crt;

Var N : Integer; S : Byte;

Begin

 Write('Введите натуральное число: '); ReadLn(N);

 S := 0;

 While N <> 0 Do

 Begin

 S := S + N mod 10; N := N Div 10

 End;

 WriteLn('S = ', S : 4);

End.

Создайте программу на языке Turbo Pascal.

Дано трехзначное число. Найти сумму цифр этого числа.

Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство: a2+b2=c2.

Задания ещё трёх вариантов - смотрите документ.

Содержимое разработки

Учитель: Кольникова Н.С. Учитель: Кольникова Н.С.


Контрольная работа по теме: «Циклы»

Вариант №1

  1. Для чего предназначен раздел Uses?

  2. С помощью какого оператора можно считать информацию, введенную с клавиатуры во время работы программы?

  3. Напишите общий вид оператора «Цикл с условием».

  4. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program MyError;

Var X, Y, Сумма : integer;

Begin

WriteLn(Введите значение X); ReadLn(X);

WriteLn(Введите значение Y); ReadLn(Y);

Сумма = X + Y;

WriteLn(Сумма);

End.

  1. Точно и четко сформулируйте условие задачи, которая решается в данной программе:

Uses Crt;

Var N : Integer; S : Byte;

Begin

Write('Введите натуральное число: '); ReadLn(N);

S := 0;

While N 0 Do

Begin

S := S + N mod 10; N := N Div 10

End;

WriteLn('S = ', S : 4);

End.

Создайте программу на языке Turbo Pascal.

  1. Дано трехзначное число. Найти сумму цифр этого числа.

  2. Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство: .

Контрольная работа по теме: «Циклы»

Вариант №2

  1. В каком разделе описываются постоянные?

  2. Перечислите типы числовых переменных.

  3. Напишите общий вид оператора «Ветвление».

  4. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program Ошибки;

Var X, Y : Integer;

Begin

WriteLn(Введите значение X:); ReadLn(X);

WriteLn(Введите значение Y:); ReadLn(Y);

S := X + Y;

If S

WriteLn(S);

End.

  1. Точно и четко сформулируйте условие задачи, которая решается в данной программе:

Uses Crt;

Var A, B, C, S, Min : Integer;

Begin

Write('Введите три числа: '); ReadLn(A, B, C);

If A + B + C 1 Then begin

If A

Else Min := B;

S := Min;

end

Else S:=C;

WriteLn(S)

End.

Создайте программу на языке Turbo Pascal.

  1. Дано трехзначное число. Определить есть ли в данном числе цифра A (цифру A вводят с клавиатуры).

  2. Из трех введенных с клавиатуры чисел возвести в квадрат положительные, а отрицательные оставить без изменения.

Контрольная работа по теме: «Циклы»

Вариант №3

  1. С помощью какого оператора можно найти остаток от деления двух чисел?

  2. С помощью какого оператора можно вывести информацию на экран?

  3. Напишите общий вид оператора «Цикл со счетчиком».

  4. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program Д;

Var X : Real;

Begin

WriteLn(Введите значение X); ReadLn(X);

Y := SQR(X) - 1;

If Y

WriteLn(Y);

End

  1. Точно и четко сформулируйте условие задачи, которая решается в данной программе:

Uses Crt;

Var A, B, C, S : Real;

Begin

WriteLn('Введите A, B, C: '); ReadLn(A, B, C);

If SQR(A) + SQR(B) = SQR(C)

Then begin

S := 0.5 * A * B;

WriteLn('Являются; S = ', S : 7 : 2)

end

Else WriteLn('Не являются')

End.

Создайте программу на языке Turbo Pascal.

  1. Дано четырехзначное число. Найти произведение четных цифр этого числа.

  2. Найти четырехзначное число, которое при деление на 133 дает остаток 125.

Контрольная работа по теме: «Циклы»

Вариант №4

  1. В каком разделе описываются переменные?

  2. С помощью какого оператора можно найти целую часть от деления чисел?

  3. Напишите общий вид оператора «Цикл с постусловием».

  4. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program Summa;

Begin

Var X, Y : Integer; Z : Boolen;

WriteLn('Введите X и Y: '); ReadLn(X; Y);

If X + Y 0 Then Z := True; Else Z := False;

WriteLn(Z);

End.

  1. Точно и четко сформулируйте условие задачи, которая решается в данной программе:

Uses Crt;

Var X1, Y1, X2, Y2, R1, R2 : Real;

Begin

WriteLn(‘Введите X1, Y1’);

ReadLn(X1, Y1);

WriteLn(‘Введите X2, Y2’);

ReadLn(X2, Y2);

R1 := SQRT(X1 * X1 + Y1 * Y1);

R2 := SQRT(X2 * X2 + Y2 * Y2);

If R1 = R2 Then WriteLn(‘Лежат’)

Else WriteLn(‘Не лежат’);

End.

Создайте программу на языке Turbo Pascal.

  1. Дано четырехзначное число. Определить данная цифра A встречается в числе более двух раз (цифру A вводят с клавиатуры).

  2. Найти сумму положительных нечетных чисел, меньших 100.

-75%
Курсы повышения квалификации

Компьютерная грамотность для учителей

Продолжительность 72 часа
Документ: Удостоверение о повышении квалификации
4000 руб.
1000 руб.
Подробнее
Скачать разработку
Сохранить у себя:
Контрольная работа по информатике по теме "Циклы" (Турбо Паскаль) (57 КB)

Комментарии 0

Чтобы добавить комментарий зарегистрируйтесь или на сайт