Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Разработка контрольной работы по языку программирования ПАСКАЛЬ
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Разработка контрольной работы по языку программирования ПАСКАЛЬ

Выбранный для просмотра документ Контрольная работа по теме ПАСКАЛЬ (вариант 1).doc

библиотека
материалов

Контрольная работа по теме

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


Вариант 1.

1. Даны а, в,с. Вычислить z и k, если


hello_html_m53d4ecad.gifhello_html_693b47c3.gif , hello_html_4705313f.gif


2. Чему будет равно значение переменной х после выполне­ния последовательностей операторов?

а) a: = 1; б) a: = 2;

b: = 3 * a x: = a * a ;

x: = (a + b) / a * ba; x: = x * x ;

x: = x * a .

3. Написать программу по заданной блок-схеме.


hello_html_60a20b40.jpg









Значение К не определено



















4. Построить блок-схему по заданной программе.

Program Urok;

Var

К, Р : Integer;

Begin

Write(‘Введите целые числа К и Р f);

ReadLn (К,Р);

If Р = 0

Then

begin

F := 0;

WriteLn('Значение P равно 0f)

end

Else

begin

F := К * P;

If К / P > 1

Then WriteLn (fK больше Р1)

Else WriteLn (fP больше К1)

end

WriteLn (fF=f, F) ;

End.


  1. Даны значения действительных величин a, b, c. Удвойте эти значения,

если a>=b>=c и замените их абсолютными значениями, если это не так.







Дополнительное задание:


Какое значение будет иметь переменная d после выполне­ния операторов при а) а = 3, b= 1, d = 0; б) а = 1, b = 3, d =0?


  1. If a > b Then d := a Else d := b; d := d * 10;

  2. If a > b Then d := b; d := d * 10;

  3. If a > b Then Else begin d := b; d := d + a end; d := d*10;

4) If a > 2 Then d := 2 Else If b > 2 Then d := 1; d := d* 10.


Выбранный для просмотра документ Контрольная работа по теме ПАСКАЛЬ (вариант2).doc

библиотека
материалов

Контрольная работа по теме

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


Вариант 2.

1. Даны x, y, z. Вычислить a и b, если


hello_html_m7e100df8.gif, hello_html_60d4c2de.gif.



2. Чему будет равно значение переменной y после выполне­ния последовательностей операторов?


а) c: = 1; б) x: = 2;

f: = 3 * c y: = x * x ;

y: = (c + f) / c * f + c; y: = y * x ;

y: = y * y .


3. Написать программу по заданной блок-схеме.


hello_html_482a2189.gifhello_html_m200bc1c2.gifhello_html_m4bbd082b.gifhello_html_4cf5cde1.gif

hello_html_m40c49339.gif

hello_html_c85da5.gif

К, Р

hello_html_27029b02.gif

«Результат не определен»

hello_html_m3b733dfa.gifда

hello_html_76978024.gif


hello_html_27029b02.gifhello_html_f716972.gifhello_html_m78a05200.gifнет


hello_html_m6044a35a.gifhello_html_m2a00fbed.gif

hello_html_76978024.gifда

hello_html_1562be96.gif

hello_html_m40c49339.gif

нет

hello_html_725d2eb1.gif


hello_html_m40c49339.gifhello_html_m713150b.gif


hello_html_49abde16.gif









4. Построить блок-схему по заданной программе.

Program Urok;

Var

К, Р : Integer;

Begin

Write(*Введите целые числа К и Р f);

ReadLn (К,Р);

If Р = 0

Then

begin

F := 0;

WriteLn('Значение P равно 0f)

end

Else

begin

F := К * P;

If К / P > 1

Then WriteLn (fK больше Р1)

Else WriteLn (fP больше К1)

end

WriteLn (fF=f, F)

End.


5. Найти корни квадратного уравнения ах2+bx+c=0.














Дополнительное задание.

Какое значение будет иметь переменная d после выполнения операторов при а) а = 3, b = 1, d = 0; б) а = 1, b = 3, d =0?


l) If a > b Then d := a Else d := b; d := d * 10;

2) If a > b Then Else d := b; d := d * 10;

3) If a > b Then begin d := b; d := d + a end Else ; d := d * 10;

4) If a > 2 Then If b > 2 Then d := 1 Else d := 2; d := d * 10;












Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 04.09.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров70
Номер материала ДБ-176330
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх