Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Разработка контрольной работы по языку программирования ПАСКАЛЬ

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

  • Информатика

Название документа Контрольная работа по теме ПАСКАЛЬ (вариант 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%:

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

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