1207814
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5.520 руб.;
- курсы повышения квалификации от 1.200 руб.
Престижные документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 70%

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаДругие методич. материалыРазработка контрольной работы по языку программирования ПАСКАЛЬ

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

Выбранный для просмотра документ Контрольная работа по теме ПАСКАЛЬ (вариант 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;











Общая информация

Номер материала: ДБ-176330

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Оператор персонального компьютера»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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