Государственное образовательное учреждение среднего профессионального образования
Орский индустриальный колледж
Основы алгоритмизации и программирования
Методические указания к выполнению лабораторных работ
Фрейз И.И. |
Орск 2008
Содержание
Лабораторная работа №1. Линейные программы. 3
Лабораторная работа №2. Разветвляющиеся вычислительные процессы. Условный оператор IF. 8
Лабораторная работа №3. Организация циклов. 30
Лабораторная работа №4. Организация циклов.(продолжение) 33
Лабораторная работа №5. Одномерные массивы.. 39
Лабораторная работа №6. Преобразование массивов. 43
Лабораторная работа №7. Сортировка массива. 48
Лабораторная работа №8. Сортировка массива. 49
Лабораторная работа №9. Сортировка массива. 50
Лабораторная работа №10. Двумерные массивы. 52
Лабораторная работа №11: Подпрограммы. 54
Лабораторная работа №12. Использование подпрограмм в Паскале. 57
Лабораторная работа №13-14. Строки. 60
Лабораторная работа № 15. Исследовательско - практическая работа. 64
Лабораторная работа №16. Решение задач. 67
Лабораторная работа №17. Анализ самостоятельной работы. Работа над ошибками. 69
Лабораторная работа18. Использование множеств для решения задач в Паскале. 72
Лабораторная работа №19. Множества . (Продолжение) 74
Лабораторная работа №20. Тип данных Record (запись). 76
Лабораторная работа №21. Решение задач на типизированные файлы. 80
Лабораторная работа №22. Графика Турбо – Паскаля. 83
Лабораторная работа №23. Программирование в графическом режиме. 84
Лабораторная работа №1. Линейные программы.
Цель: Освоить работу в среде Turbo Pascal и научиться писать самые простые программы – линейные.
Ход работы.
Для начала рассмотрим программу, выполняющую расчет по простейшей формуле.
Программа перевода суммы в рублях в доллары и евро.
program valuta;
const
kurs_dollar=29.8;
kurs_evro=36.6;
var
rouble,dollar,evro:real;
begin
writeln('Введите сумму в рублях');
readln(rouble);
dollar:=rouble/kurs_dollar;
evro:=rouble/kurs_evro;
writeln('Рублей: ',rouble:8:2,
' Долларов: ',dollar:7:2,
'Евро: ',evro:7:2);
readln; end.
Пример программы расчета по заданной формуле:
program formula;
var
a,x,y:real; {Исходные данные и результат}
temp:real; {Промежуточная переменная}
begin
writeln('Введите a и x:');
readln(a,x);
writeln('Исходные данные:'); {Контрольный вывод исходных данных}
writeln(a= ',a:6:2.' x=',x:6:2);
temp:=2*sin(2*a)/cos(2*a);
y:=(sqrt(pi*x)-exp(0.2*sqrt(a))+temp+
1.6e3*ln(sqr(x))/ln(10))/
(temp*1/cos(x));
writeln('Результат: y=',y:6:2);
readln;
end.
Итоги
Индивидуальное задание
Написать программу для расчета по двум формулам. Предварительно подготовьте тестовые примеры для второй формулы с помощью калькулятора (результаты вычисления по обеим формулам должны совпадать).
Вариант 1
…………………………………………………………………………………………………
Вариант 2
…………………………………………………………………………………………………
Вариант 3
…………………………………………………………………………………………………
Вариант 4
…………………………………………………………………………………………………Вариант 5
…………………………………………………………………………………………………
Вариант 6
…………………………………………………………………………………………………
Вариант 7
…………………………………………………………………………………………………
Вариант 8
…………………………………………………………………………………………………
Вариант 9
…………………………………………………………………………………………………
Вариант 10
…………………………………………………………………………………………………
Вариант 11
…………………………………………………………………………………………………
Вариант 12
…………………………………………………………………………………………………
Вариант 13
…………………………………………………………………………………………………
Вариант 14
…………………………………………………………………………………………………
Вариант 15
…………………………………………………………………………………………………
Вариант 16
…………………………………………………………………………………………………
Вариант 17
…………………………………………………………………………………………………
Вариант 18
…………………………………………………………………………………………………
Вариант 19
…………………………………………………………………………………………………
Вариант 20
Лабораторная работа №2. Разветвляющиеся вычислительные процессы. Условный оператор IF.
Цель: Научиться применять оператор ветвления IF при составлении программ.
Ход работы.
Формат оператора:
If выражение then оператор_1 [else оператор_2 ]
Сначала вычисляется выражение, которое должно иметь логический тип. Как правило, в выражении используются знаки операций отношения (<, >, =,<>, <=, >=). Если требуется проверить несколько условий, их объединяют знаками логических операций and (и), or(или), xor (исключающее ИЛИ) и not (отрицание).
Если выражение имеет значение true, выполняется первый оператор, иначе – второй. Ветвь else может отсутствовать. После выполнения операторов из соответствующей ветви управление передается оператору, следующему за условным.
Задача 2.1. Вычисление значения функции
…………………………………………………………………………………………………Пример программы, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика на интервале [-3;3].
Начинать решение задачи необходимо с четкого описания ее исходных данных и результатов. В данном случае это очевидно: исходными данными является вещественное значение аргумента х, который определен на интервале [-3;3], а результатом – вещественное значение функции у. Поэтому для представления этих величин в программе следует выбрать тип real.