- •Лабораторная работа 1. Реализация линейных алгоритмов
- •Вариант 1
- •1. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
- •Вариант 2
- •1. Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
- •Вариант 3
- •1. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) — T2 ч. Определить путь S, пройденный лодкой.
- •Вариант 4
- •1. Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга.
- •Лабораторная работа 2. Условный оператор
- •Лабораторная работа 3. Оператор варианта.
- •Лабораторная работа 4. Строки. Операторы цикла.
- •Программирование численных циклических алгоритмов. Циклы «до» и «пока»
- •Лабораторная работа 5. Подпрограммы
- •Лабораторная работа 6. Массивы
- •Лабораторная работа 7. Множества
- •Лабораторная работа 8. Комбинированный тип данных (Запись)
- •Лабораторная работа 9. Работа с файлами
- •Лабораторная работа 10. Процедуры и функции модуля GraphABC
- •Графические примитивы
- •Подпрограммы для работы с пером
- •Лабораторная работа 11. Создание собственных модулей.
- •Лабораторная работа 12. Решение простейших задач в Console Application
- •Лабораторная работа 13. Динамические массивы
- •Лабораторная работа 14. Тип данных Variant
- •Лабораторная работа 15. Тип TDateTime
- •Лабораторная работа 16. Простейшие задачи на форме
- •Лабораторная работа 17. Флажки и переключатели
- •Лабораторная работа 18. Работа с меню
- •Главное меню
- •КОНТЕКСТНОЕ МЕНЮ
- •Лабораторная работа 19. Работа со списками
- •СПИСКИ ВЫБОРА
- •ВЫПАДАЮЩИЕ СПИСКИ
- •Лабораторная работа 20. Таймер. Работа с календарем
- •Лабораторная работа 21. Таблица строк
- •Лабораторная работа 22. Графика в Delphi
- •Лабораторная работа 23. Калькулятор
- •Лабораторная работа 24. Моделирование движения. Пуля
- •Лабораторная работа 25. Моделирование движения по кругу
- •Лабораторная работа 26. Цветомузыка
- •Лабораторная работа 27. Проигрыватель
- •Лабораторная работа 28. Цветочная поляна
- •Лабораторная работа 29. QUEST
- •Лабораторная работа 30. Тир
- •Лабораторная работа 31. Компоненты Delphi для взаимодействия с серверами автоматизации MS Office
- •Лабораторная работа 32. Обмен данными между программами с помощью DDE
- •Лабораторная работа 33. Технология Drag & Drop
- •Лабораторная работа 34. Использование динамически подключаемых библиотек (DLL).
- •Лабораторная работа 35. Создание собственного класса
- •Лабораторная работа 36. Конструкторы и деструкторы
- •Лабораторная работа 37. Создание собственных компонентов
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ ГОУ ВПО «Оренбургский государственный педагогический университет» Физико-математический факультет
Кафедра информатики и методики преподавания информатики
Нефедова В. Ю. Шухман А. Е.
Методические указания
к лабораторным работам по курсу «Языки и системы программирования»
Оренбург, 2012
© ИМПИ ОГПУ
Лабораторная работа 1. Реализация линейных алгоритмов
Программа состоит из последовательности инструкций, которые составляются из операторов и ключевых (зарезервированных) слов. Появление ключевого слова вызывает определенные действия либо дает необходимую информацию.
Структура Pascal-программы:
Program <имя>;
Begin {объявление данных}
{тело программы}
End.
При объявлении данных принято принимать такой порядок:
1.Label (метки);
2.Const (константы);
3.Type (типы данных);
4.Var (переменные);
5.Procedure и Function (процедуры и функции).
При объявлении данных могут выбираться лишь некоторые из указанных выше, а могут и вообще отсутствовать.
Ввод исходных данных с клавиатуры происходит с помощью оператора read
или readln (read line - читать строку):
Формат оператора: Read(ln) (<список переменных>); Отличие read от readln:
После выполненения ввода по оператору readln экранный курсор перемещается в начало новой строки, а по оператору read этого не происходит.
Вывод результатов происходит по оператору write или writeln.
Формат оператора: write(ln) (<список переменных>);
Пример программы:
Program Primer;
Var A, B, C : integer;
Begin
Write ('Введите первое слагаемое: А=');
Readln (A);
Write ('Введите первое слагаемое: В=');
Readln (В);
C := A+B;
Writeln ('Ответ ',C); Writeln ('Пока!');
End.
© ИМПИ ОГПУ
Задания для самостоятельной работы
Вариант 1
1.Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
2.Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально движутся навстречу друг другу.
3.Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2).
4.Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a > b) и углом alpha при большем основании (угол дан в радианах).
5.Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения неотрицателен.
Вариант 2
1.Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
2.Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.
3.Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.
4.Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах).
5.Найти решение системы уравнений вида A1·x + B1·y = C1, A2·x + B2·y = C2, заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение.
Вариант 3
1.Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) — T2 ч. Определить путь S, пройденный лодкой.
2.Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.
3.Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.
4.Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).
5.Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.
Вариант 4
1.Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга.
2.Найти длину окружности и площадь круга заданного радиуса R.
©ИМПИ ОГПУ