- •Оглавление Лабораторная работа № 1. Линейные алгоритмы
- •Лабораторная работа № 2. Разветвляющиеся алгоритмы
- •Лабораторная работа № 3. Циклы
- •Лабораторная работа № 4. Одномерные массивы
- •Лабораторная работа № 5. Двумерные массивы
- •Лабораторная работа № 6. Множества
- •Лабораторная работа № 7. Строки
- •Лабораторная работа № 8. Файлы
- •Лабораторная работа № 9. Записи
- •Лабораторная работа № 10. Подпрограммы
- •Библиографический список
Лабораторная работа № 10. Подпрограммы
Задание 1. Исправьте ошибки в программе.
Program Example19;
Uses Crt;
Function V(R, H: real): integer;
Begin
V:= pi*sqr(R)*H;
End;
Var x: integer;
Begin
a:= V(3,4)
b:= V(2,4)
Writeln('V1=', a);
Writeln('V2=', b);
x:= a – b;
Writeln('V1 – V2=', x:4:1);
End.
Задание 2. Посмотрите пример функции вычисляющей факториал числа. В основной программе посчитайте выражение y = (m! + k!)/s!
Function factorial(n: byte): longint;
Begin
if (n = 0) or (n = 1) then factorial:= 1
else factorial:= n * factorial(n - 1);
End;
Задание 3. Составьте функцию, вычисляющую логарифм с произвольным основанием logab.
Задание 4. Составьте функцию для вычисления площади кольца.
Рис. 7. Кольцо
Задание 5. Наберите код программы и посмотрите пример использования процедуры Color.
Program Example20;
Uses Crt;
Procedure Color(x, y: word);
Begin
TextColor(x);
TextBackGround(y);
End;
Begin
Color(1,5);
Write('Hello ');
Color(1,3);
Writeln('student!');
Readln;
End.
Задание 6. Доработайте программу, чтобы цвет фона и цвет текста вводились пользователем при запуске программы.
Библиографический список
Златопольский Д. М. Программирование: типовые задачи, алгоритмы, методы / Д. М. Златопольский. – Москва: БИНОМ. Лаборатория знаний, 2007. – 223
Информатика: Учебник / Б. В. Соболь, А. Б. Галин, Ю. В. Панов, Е. В. Рашидова, Н. Н. Садовой. – Изд. 3-е, дополн. и перераб. – Ростов н/Д: Феникс, 2007. – 446 с.
Окулов С. М. Основы программирования: учебник / С. М. Окулов. – Изд. 5-е, испр. – Москва: БИНОМ. Лаборатория знаний, 2010. – 440 с.
Потопахин В. В. Современное программирование с нуля!: учеб. пособие / Потопахин В. – Изд. 2-е, испр. – Москва: ДМК-Пресс, 2011. – 240 с.
Рапаков Г. Г. Turbo Pascal для студентов и школьников: учебник / Г. Г. Рапаков, С. Ю. Ржеуцкая. – Санкт-Петербург: БХВ-Петербург, 2007. – 352 с.
Фаронов В. В. Turbo Pascal 7.0. Практика программирования: учеб. пособие / В. В. Фаронов. – Москва: Кнорус, 2007. – 416 с.
Учебное электронное текстовое издание
Паклина Валентина Михайловна
Паклина Елена Михайловна
Основы алгоритмизации и программирования
Редактор
Подготовка к публикации
Рекомендовано Методическим советом
Разрешено к публикации
Электронный формат – pdf
Объем уч.-изд. л.
620002, Екатеринбург, ул. Мира, 19
Информационный портал УрФУ
http://www.ustu.ru