МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

Учреждение образования

«Гомельский государственный университет

имени Франциска Скорины»

Кафедра автоматизированных систем обработки информации

ОСНОВЫ АЛГОРИТМИЗАЦИИ И

ПРОГРАММИРОВАНИЯ

задания к контрольным работам

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

специальности 1-530102 «АСОИ»

Гомель 2009

Составители: В.А.Дробышевский

Рецензенты:

М.И. Богданов, доцент, к.э.н.

В.С. Давыдов, доцент, к.т.н.

Рекомендован к изданию научно-методическим советом Учреждения образования «Гомельский государственный университет имени Франциска Скорины».

 Учреждение образования «Гомельский государственный университет имени Франциска Скорины», 2009г.

Введение 5

Контрольная работа № 1 зимняя сессия 6

Задание №1. 6

Задание №2. 8

Задание №3. 10

Задание №4 11

Контрольная работа №2 весенняя сессия 12

Задание №5. 12

Задание №6. 13

Задание №7. 15

Задание №8. 16

Задание №9. 17

Введение

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

Выполнение контрольных работ включает:

1. Изучение студентами необходимого теоретического материала по теме контрольной работы.

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

3. Построение блок-схемы алгоритма решения задачи.

4. Составление программы.

5. Решение контрольного примера (численные значения исходных величин задаются студентом) .

6. Подготовку отчета о выполненной работе и его защиту.

Каждая работа оформляется отдельно с использованием шаблона оформления печатных работ. Работы собираются в папку с титульным листом.

Структура отчета по каждому заданию контрольной работы:

1. Тема.

2. Цель работы.

3. Постановка задачи.

4. Блок-схема или псевдокод алгоритма решения задачи.

5. Контрольный пример.

6. Распечатка результатов.

7. Текст программы.

Контрольная работа № 1 зимняя сессия Задание №1.

Цель работы: изучение операторов цикла языка “Pascal”. Реализовать задачу циклами for, while и repeat.

Краткие теоретические сведения:

For...To, For...DownTo (зарезервированные слова)

Оператор For вызывает оператор, находящийся после слова Do, по одному разу для каждого значения в диапазоне от начального до конечного значений.

Синтаксис:

For переменная:=начальное To конечное Do оператор

или

For переменная:=начальное DownTo конечное Do оператор

Замечания:

Переменная цикла и начальное и конечное значения должны иметь счетный тип.

Используйте составной оператор (Begin..End), чтобы выполнить в цикле несколько операторов.

Со служебным словом To, значение переменной цикла увеличивается на 1 при каждой итерации.

Со служебным словом DownTo, значение переменной цикла уменьшается на 1 при каждой итерации.

Пример:

(* For...To, For...DownTo *)

For I:=1 To ParamCount Do WriteLn(ParamStr(I);

For I:=1 To 10 Do

For J:=1 To 10 Do

Begin

X:=0;

For K:=1 To 10 Do X:=X+Mat1[I, K]*Mat2[K, J];

Mat[I, J]:=X;

End;

While (зарезервированное слово)

Оператор цикла While содержит выражение, которое управляет повторением выполнения отдельного или составного оператора.

Синтаксис:

While логическое выражение Do оператор

Замечания:

Оператор после Do будет выполняться до тех пор, пока логическое выражение является истинным.

Выражение вычисляется до выполнения оператора, так что если логическое выражение с самого начала было ложным (False), то оператор не будет выполнен ни разу. (В отличие от оператора цикла Repeat)

Пример:

{ Операторы While }

While Ch = ' ' Do Ch:=GetChar;

While Not EOF(InFile) Do

Begin

ReadLn(InFile, Line);

WriteLn(OutFile, Line);

Inc(LineCount);

End;

Repeat...Until (зарезервированные слова)

Операторы между словами Repeat и Until повторяются до тех пор, пока логическое выражение является истинным (True).

Синтаксис:

Repeat

Оператор;

Оператор;

...

Оператор

Until логическое выражение

Замечания:

Последовательность операторов выполнится, по крайней мере, один раз!

Пример:

{ Операторы цикла Repeat }

Repeat

Ch:=GetChar

Until Ch<>' ';

Repeat

Write('Введите значение : ');

ReadLn(I);

Until (I>=0) And (I<=9);

№ варианта	Постановка задачи
1	Найти сумму целых чисел от m до n.
2	Найти произведение целых чисел от m до n.
3	Найти сумму чисел от m до n, кратных к.
4	В банк положили N у.е. под P процентов в год. Сколько денег будет в банке через L лет?
5	Найти !n, n<=16.
6	Найти произведение целых чисел от m до n, кратных к.
7	В банк положили N у.е. под P процентов в год. Через сколько лет в банке будет S у.е.?
8	На сколько дней студенту хватит стипендии S, если он тратит N р. в день и его расходы каждый день увеличиваются на X р.?
9	Найти сумму четных чисел от m до n.
10	На сколько дней студенту хватит стипендии S, если он тратит N р. в день и его расходы каждый день увеличиваются в X раз?