Меню
Разработки
Сведения об образовательной организации
Регистрация
Разработки  /  Информатика  /  Проверочные работы  /  Лабораторная работа по информатике по теме "Цикл с параметром в Turbo Pascal"

Лабораторная работа по информатике по теме "Цикл с параметром в Turbo Pascal"

Лабораторная работа позволит закрепить пройденный материал на практике.
08.12.2014

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

Оператор цикла с параметром FOR. . . TO. . . DO.

Для организации циклического алгоритма часто используется оператор цикла с параметром: for i:=A to B do S, где i-некоторая переменная (параметр или счетчик цикла) типа integer, A и B (B>A) выражения со значением типа integer, S — оператор (тело цикла). Если A>B, то оператор S не будет выполнен ни разу (когда параметр i возрастает). Если параметр i возрастает, то между границами его значений A и B ставится слово TO, если же i убывает, то ставится слово DOWNTO и оператор цикла выполняется при A>B.

Пример программы с оператором цикла с параметром:

program Summa;

var i, n:integer; s, q:real;

begin

writeln('Вычислите сумму первых n членов ряда:');

writeln('S=1+1/4+1/9+. . . +1/(n*n). ');

write('Введите число членов суммы: n=');

read(n);

for i:=1 to n do s:=s+1/(i*i);

writeln('Cумма первых n членов ряда равна: S=', s:6:2);

writeln('Для выхода из программы введите число 1. ');

readln(q);

end.

Если в циклической части программы стоит всего один оператор, операторные скобки BEGIN — END можно не указывать.

Задания

Лабораторная работа по информатике по теме Цикл с параметром в Turbo Pascal

Первые две задачи на повторение пройденных тем. Третья задача на новую тему. После выполнения лабораторной работы, необходимо ответить на контрольные вопросы

Полную информацию смотрите в файле. 

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

Лабораторная работа

Цикл с параметром в Turbo Pascal

Оператор цикла с параметром FOR...TO...DO.

Для организации циклического алгоритма часто используется оператор цикла с параметром: for i:=A to B do S, где i-некоторая переменная (параметр или счетчик цикла) типа integer, A и B (BA) выражения со значением типа integer, S — оператор (тело цикла). Если AB, то оператор S не будет выполнен ни разу (когда параметр i возрастает). Если параметр i возрастает, то между границами его значений A и B ставится слово TO, если же i убывает, то ставится слово DOWNTO и оператор цикла выполняется при AB.

 

Пример программы с оператором цикла с параметром:

 

program Summa;

var i,n:integer; s,q:real;

begin

writeln('Вычислите сумму первых n членов ряда:');

writeln('S=1+1/4+1/9+...+1/(n*n).');

write('Введите число членов суммы: n=');

read(n);

for i:=1 to n do s:=s+1/(i*i);

writeln('Cумма первых n членов ряда равна: S=',s:6:2);

writeln('Для выхода из программы введите число 1.');

readln(q);

end.

Если в циклической части программы стоит всего один оператор, операторные скобки BEGIN — END можно не указывать.

Задания

Первые две задачи на повторение пройденных тем. Третья задача на новую тему. После выполнения лабораторной работы, необходимо ответить на контрольные вопросы

1

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания даты начала Второй мировой войны. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

В каком году началась Вторая мировая война?

Введите число и нажмите Enter

1939

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

2

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания даты основания Санкт-Петербурга. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

В каком году основан Санкт-Петербург?

Введите число и нажмите Enter

1703

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

3

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания единицы измерения информации. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

Сколько байт содержится в одном килобайте?

Введите число и нажмите Enter

1024

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

4

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания даты основания Москвы. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

В каком году основана Москва?

Введите число и нажмите Enter

1147

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

5

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания даты полета первого космонавта в космос. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

В каком году полетел Гагарин в космос?

Введите число и нажмите Enter

1961

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму



6

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания даты начала Великой Отечественной войны. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

В каком году началась Великая Отечественная война?

Введите число и нажмите Enter

1941

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

7

  1. Введите значение переменной х. Вычислить значение , если

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

В каком году основан город Чебоксары?

Введите число и нажмите Enter

1469

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

8

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания количества информации в одном байте. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

Сколько бит информации в одном байте?

Введите число и нажмите Enter

8

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму

9

  1. Введите значение переменной х. Вычислить значение , если

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

Сколько кубических сантиметров в одном литре?

Введите число и нажмите Enter

1000

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму


10

  1. Введите значение переменной х. Вычислить значение , если

  2. Написать программу проверки знания коэффициента свободного падения. В случае неправильного ответа пользователя, программа должна выводить правильный ответ. Ниже приведен рекомендуемый вид экрана во время выполнения программы:

Чему равен коэффициент свободного падения?

Введите число и нажмите Enter

9.81

Правильно! Молодец!

Если ввести неправильную дату, то вывести сообщение

Не правильно. Вы ошиблись!

  1. Вычислить сумму


1 вариант

Контрольные вопросы

  1. Что означает фрагмент программы?

Var

A: integer;

B:real;

Begin

Readln(A,B);

  1. В каком случае цикл For i:=нач.знач.downto кон.знач. do не будет выполняться?

  2. Что такое цикл?

  3. Найдите ошибку:

Var

A,B,i:real:

Begin

Readln(A);

B:=1;

For i:=1 to А do

B=B+i;

Readln(B)

End.

  1. Найдите ответ ( чему равен S):

Begin

A:=5;

S:=1;

For i:=1 to А do

S=S*i;

Writeln(S);

End.


2 вариант

Контрольные вопросы

  1. Что такое тело цикла?

  2. Чем отличается цикл For i:=нач.знач. to кон.знач. do от For i:=нач.знач.downto кон.знач. do?

  3. Переменные какого типа должны использоваться в качестве счетчика цикла For?

  4. Найдите ошибку:

Var

A,B:integer;

i:real:

Begin

realln(A);

B=1;

For i:=1 to А do

B=B+i;

Readln(B)

End.

  1. Найдите ответ ( чему равен S):

Begin

A:=5;

S:=0;

For i:=1 to А do

S=S+i;

Writeln(S);

End.



3 вариант

Контрольные вопросы

  1. Что означают операторы Writeln(a); Readln(b); Readln; ?

  2. В каком случае цикл For i:=нач.знач. to кон.знач. do не будет выполняться?

  3. Какой оператор нужно использовать, чтобы вывести на экран слово «Привет»?

  4. Найдите ошибку:

Var

A,B, real

i:integer:

Begin;

Readln(A);

B:=1;

For i=1 to А do

B=B+i;

Readln(B)

End.

  1. Найдите ответ ( чему равен S):

Begin

A:=5;

S:=5;

For i:=1 to А do

S=S+i;

Writeln(S);

End.


4 вариант

Контрольные вопросы

  1. В каком случае используется оператор IF, а в каком - CASE ?

  2. Переменные какого типа должны использоваться в качестве счетчика цикла For?

  3. Какой блок используется для изображения цикла в блок-схеме?

  4. Найдите ошибку:

Var

A,B, readln;

i:integer:

Begin;

Riadln(A);

B:=1;

For i=1 do А do

B=B+i;

Readln(B)

End.

  1. Найдите ответ ( чему равен S):

Begin

A:=5;

S:=5;

For i:=1 to А do

S=S+i;

Writeln(S);

End.



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

Система работы с высокомотивированными и одаренными учащимися по учебному предмету

Продолжительность 72 часа
Документ: Удостоверение о повышении квалификации
4000 руб.
1000 руб.
Подробнее

Получите комплекты видеоуроков + онлайн версии

Информатика 11 класс (Беларусь)

Электронная тетрадь по информатике 6...

Информатика 7 класс ФГОС

Электронная тетрадь по информатике 8...

Информационная безопасность

Творческие задания в Sсratch 5-6 классы

Информатика 8 класс ФГОС

Информатика 10 класс (Россия)

Скачать разработку
Сохранить у себя:
Лабораторная работа по информатике по теме "Цикл с параметром в Turbo Pascal" (27.38 КB)
Файлы по информатике
0
3626
402

Похожие файлы

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

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

Вы смотрели