Порядок выполнения работы:

1. Запустите программу Turbo Pascal.

2. Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над обык­новенными дробями вида P/Q (Р — целое, Q — натуральное):

1. сложение; 2) вычитание; 3) умножение; 4) деление; 5) сокращение дроби;

5) возведение дроби в степень TV (7V — натуральное);

6) функции, реализующие операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше).

Дробь представить следующим типом: Type Frac=Record

Р: Integer;

Q: 1..32767; End;

Используя этот модуль, решить задачу:

1. Дан массив А, элементы которого — обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое; ре­зультаты представить в виде несократимых дробей.

2. *Дан массив А, элементы которого — обыкновенные дроби. Отсортировать его в порядке возрастания.

Откомпилируйте программу. Проверьте правильность решения задачи.

3. Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над векторами:

1. сложения;

2. вычитания;

3. скалярного умножения векторов;

4. умножения вектора на число;

5. нахождения длины вектора.

Вектор представить следующим типом:

Type Vektor=Record

X, Y: Real;

End;

Используя этот модуль, решить задачу:

Дан массив А — массив векторов. Отсортировать его в порядке убывания длин векторов.

Откомпилируйте программу. Проверьте правильность решения задачи.

4. Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

4. Выйдите из программы Turbo Pascal.

Контрольное тестирование

1. Какие операторы записаны правильно?

1. g:=g;

2. М:=2хМ;

3. k:=232R;

4. s:=l:=u

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

1. В разделе выполняемых операторов;

2. В разделе описания констант;

3. В разделе описания переменных.

3. Какие процедуры ввода записаны без ошибок?

1. Read (S, 67);

2. Read (Т);

3. Read Т;

4. Read (а, с);

5. Read ('a');

6. Read ('Введите а', а).

4. Что будет выведено на экран в результате выполнения программы?

Program S;

Var x, у: Integer;

Begin х:=2; у:=3; х:=х*х; у := у * у;х:=х + у;

WriteLn ('х =', х);

End.

1. х = 5;

2. с=13;

3. 13;

4. 5.

5. Какая команда позволяет увидеть результат выполнения программы?

1. Debug/Output;

2. File/Save;

3. File/New;

4. Run/Run.

6. Какое расширение должен иметь файл с исходным текстом программы на Паскале?

1. В AS;

2. ВАК;

3. С;

4. PAS.

7. Какие имена программ на Паскале допустимы (при условии, что имя программы не совпадает с именем файла)?

1. 112233;

2. MyProgl;

3. Мойрг!;

4. MyPrograml.

8. Какие элементы языка Турбо-Паскаль могут быть обозначены идентификаторами?

1. Переменные;

2. Операторы;

3. Константы

9. Какие из перечисленных типов данных относятся к простым?

1. Логический;

2. Символьные;

3. Целые;

4. Строковые.

10. Какие из представленных здесь констант относятся к целым?

1. '555';

2. 1188;

3. 1.0;

4. -345.

11. Операторы в программе на языке Pascal отделяются друг от друга:

1. двоеточием;

2. точкой с запятой;

3. пробелом;

4. запятой.

12. Какой оператор позволяет выводить пустую строку в документе?

1. writeln ;

2. print;

3. output;

4. readln.

13. Укажите условие выбора чисел, кратных 3, но не кратных 6

1. (X mod 3 =0) AND (X mod 6 <>О);

2. (Х/3 =0) OR (X / 6≠0));

3. (X mod 3 =0) OR (X mod 6 <>0);

4. (X mod 6 <>0).

14. Какое значение примет переменная С в результате выполнения программы:

VAR А, В, С : INTEGER;

BEGIN

А:=-4; В:=А*3-6; IF B>2*A THEN A := 2;

IF B<2*A THEN A := 5; IF B=2*A THEN A := В - A;

С :=A*B+A-B; WRITELN ('C=', C);

END.

1. 29;

2. 21;

3. 32;

4. 12.

15. Какой из операторов организует в программе множественный выбор?

1. If условие Then действие1 Else действие2;

2. If условие Then действие;

3. Case ключ of ;

4. goto n.

16. С помощью какого оператора осуществляется переход к метке?

1. If условие Then действие;

2. Case ключ of;

3. goto n;

4. If условие Then действие1 Else действие2.

17. При каком значении X при исполнении программы будет получен ответ «ДА»:

Program T21;

Var X: Integer;

Begin

Readln(X); If X MOD 2=0 Then Writeln('ДA') Else Writeln('HET');

End.

1. 3;

2. 15;

3. 4;

4. 7.

18. Какое значение будет принимать переменная Y после выполнения фрагментов программы?

Var Y, X: integer;

Begin Y: = l; X: = 10;

Repeat

Y:=X*X; X:=X-2;

Until X<=0;

Writeln ('У=',У); End.

1. 4;

2. 0;

3. 2;

4. 100.

19. Какие из приведенных операторов организуют цикл со счетчиком?

1. For i := nl downto n2 do оператор;

2. repeat <операторы > until условие;

3. while условие do <оператор>;

4. for i = nl to n2 do оператор.

20. Какое значение будет принимать переменная Y после выполнения фрагментов программы?

у:=0; FOR х := 1 ТО 5 do У := У * х; Writeln (у);

1. 0;

2. 12345;

3. 120;

4. 00000.

21. Тело цикла - это...

1. группа команд, не входящих в циклическую структуру;

2. группа команд, повторяющихся некоторое число раз;

3. произвольная группа команд;

4. команды, заключенные в операторные скобки.

22. Какой из перечисленных заголовков циклов не содержит ошибок?

1. FOR X:=3 ТО 12 DO;

2. FOR К = 1 ТО 5.5 DO;

3. FOR K = 2DOWNTO 10 DO;

4. FOR J := 10 TO -2 DO.

23. Что определяет индекс массива?

1. Индекс определяет положение элемента массива данных относительно его конца;

2. Индекс определяет положение элемента массива данных относительно друг друга;

3. Индекс определяет положение элемента массива данных относительно его начала.

24. Укажите правильное описание массива

1. Var a:array[1..1000] of integer;

2. Var A: ARRAY [1..50 OF REAL];

3. Var A, B, C: ARRAY [1 ..50] OF REAL.

25. Что производит следующий фрагмент программы?

s:=0; for i:=l to n do

for j:=l to n do s: =s+a[i, j]; end;

writeln('s=',s);

1. Находит сумму элементов каждой строки и выводит их на экран;

2. Находит сумму всех элементов двумерного массива и сумму элементов каждой строки и выводит их на экран;

3. Находит сумму всех элементов двумерного массива и выводит их на экран.

СПИСОК ЛИТЕРАТУРЫ

Литература основная:

1. Основы программирования: Учебник для сред. проф. образования / И.Г.Семакин, А.П. Шестаков. – 2-е изд., стер. – М.: Издательский центр «Академия», 2003. – 432 с.

2. Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования: учеб. пособие. – 3-е изд., испр. и доп. – М.: ФОРУМ, 2008. – 432 с.

Литература дополнительная:

1. Канцедал С.А. Алгоритмизация и программирование: учебное пособие. – М.: ИД «ФОРУМ»: ИНФРА-М, 2008. – 352 с.

2. Голицына О.Л., Партыка Т.Л., Попов И.И. Языки программирования: учеб. пособие. – М.: ФОРУМ: ИНФРА-М, 2008. – 400 с.

СОДЕРЖАНИЕ

Введение………………………………………………………………………………………….	3
Лабораторная работа №1. Программирование линейных алгоритмов……………………	4
Лабораторная работа №2. Программирование разветвляющихся алгоритмов……………	6
Лабораторная работа №3. Программирование алгоритмов с использованием оператора выбора……………………………………………………………………………………………	8
Лабораторная работа №4. Программирование циклических алгоритмов: цикл с параметром………………………………………………………………………………………………..	9
Лабораторная работа №5. Программирование циклических алгоритмов: цикл с предусловием……………………………………………………………………………………………….	10
Лабораторная работа №6. Программирование циклических алгоритмов: цикл с постусловием……………………………………………………………………………………………….	11
Лабораторная работа №7. Обработка одномерных и двумерных массивов…………………	12
Лабораторная работа №8. Сортировка массивов. Поиск элемента массива…………………	14
Лабораторная работа №9. Работа со строковым типом данных……………………………...	15
Лабораторная работа №10. Работа с множественным типом данных………………………..	17
Лабораторная работа №11. Организация процедур……………………………………………	19
Лабораторная работа №12. Организация функций……………………………………………	21
Лабораторная работа №13. Использование рекурсивных подпрограмм…………………….	22
Лабораторная работа №14. Использование процедур и функций: графические возможности…………………………………………………………………………………………………	23
Лабораторная работа №15. Работа с типизированными файлами последовательного доступа………………………………………………………………………………………………	25
Лабораторная работа №16. Работа с текстовыми файлами…………………………………...	27
Лабораторная работа №17. Программирование данных типа «запись»……………………...	29
Лабораторная работа №18. Программирование модулей……………………………………..	30
Контрольное тестирование……………………………………………………………………...	32
Список литературы………………………………………………………………………………	34

31