Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Поместим в файл с именем deb.inc следующую строку writeln(summa); Перепишем предыдущий пример в следующем виде

Листинг 16

program Dirr;

{$APPTYPE CONSOLE}

{$DEFINE DEBUG}

var i, j, n, summa :integer;

begin writeln('Vvedite n'); readln(n);

for i:=1 to n do begin

summa:=0;

for j:=1 to i do begin

summa:=summa+j; //внутренний цикл

{$IFDEF DEBUG} {I deb.inc} {$ENDIF}

end;

writeln('summa ', i, '=', summa); end;

readln;

end.

Эта директива применяется для сокращения листинга или включения часто используемого кода.

Задания к лабораторной работе

1.Наберите все программы приведенные в лабораторной работе.

2.Напишите программу для вычисления значений следующих функций.

3.Напишите программу для проверки попадания точки в кольцо. Координаты точки должны задаваться с клавиатуры.

4.Напишите программу для проверки попадания точки в следующую фигуру

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

a

2a

b

5.Напишите программу для печати дней недели по ее номеру. Например, единице соответствует понедельник.

6.Модернизируйте программу, приведенную в листинге 6 таким образом, чтобы если пользователь вводит неверный номер дня недели (т.е. номер меньше единицы и больше 7), то программа запрашивает номер дня недели снова до тех пор, пока не будет введен правильный номер дня недели. Реализуйте эту программу с помощью оператора goto.

7.Решите задачу поставленную в п. 5 с помощью цикла repeat until.

n

8.Вычислите p =∏i

i=1

9.Реализуйте цикл while do с помощью оператора безусловного перехода goto.

10.Реализуйте функцию continue с помощью оператора goto.

11.Напишите программу удаления из строки идущих подряд пробелов. После работы программы в строке между словами должно остаться по одному пробелу. (используйте функции pos и delete, см. предыдущую лабораторную работу).

Вопросы к лабораторной работе

1.Какие безусловные операторы и функции вам известны?

2.Как работает и для чего нужен составной оператор?

3.Какие условные конструкции вы знаете, чем они отличаются?

4.Какие циклические конструкции вы знаете, в чем их отличие?

5.Каково назначение функции break?

6.Каково назначение функции continue?

7.Как реализуются циклические конструкции на машинном языке?

8.Какие виды комментариев существуют в Object Pascal?

9.Как задать директиву компилятора?

10.Для чего используется условная компиляция, какие директивы компилятора для этого применяются?

11.Для чего применятся директива компилятора INCLUDE?

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»