- •Введение Алгоритмизация
- •Автоматизация математических вычислений на компьютере
- •Лабораторная работа № 1. Программирование последовательных вычислений Элементы языка Pascal
- •Операции и функции в языке Pascal
- •Порядок выполнения
- •Примеры программ на языке Pascal
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 2. Программирование разветвлений Алгоритм линейной структуры
- •Алгоритм разветвляющейся структуры
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 3. Программирование циклов Алгоритм циклической структуры
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
- •Лабораторная работа № 4. Программирование задач с одномерными массивами Одномерные массивы
- •Порядок выполнения
- •Пример задачи
- •Дополнительное задание
- •Фрагменты вычисления характеристик одномерного массива
- •Фрагменты операций с одномерными массивами
- •Контрольные вопросы
- •Лабораторная работа № 5. Программирование задач с двумерными массивами Двумерные массивы
- •Порядок выполнения
- •Пример задачи
- •Дополнительное задание
- •Фрагменты вычисления характеристик строк и столбцов двумерного массива
- •Фрагменты операций с двумерными массивами
- •Квадратные матрицы
- •Контрольные вопросы
- •Лабораторная работа № 6. Программирование процедур и функций Подпрограммы
- •Порядок выполнения
- •Дополнительное задание
- •Примеры задач
- •Контрольные вопросы
- •Лабораторная работа № 7. Программирование структурных типов данных Файлы
- •Порядок выполнения
- •Примеры задач
- •Дополнительное задание
- •Контрольные вопросы
Порядок выполнения
Зайти в Borland Pascal.
Набрать текст программы для решения задачи № 1 и получить ответ для контрольного примера.
Получить ответ для своих исходных данных.
Набрать текст программы для решения задачи № 2 и получить ответ для контрольного примера.
Получить ответ для своих исходных данных.
Дополнительное задание
Вычислить с использованием подпрограммы-функции вычисления тангенса.
Вычислить с использованием подпрограммы-функции вычисления котангенса.
Вычислить с использованием подпрограммы-функции вычисления десятичного логарифма.
Вычислить с использованием подпрограммы-функции вычисления логарифма по произвольному основанию.
Вычислить с использованием подпрограммы-функции вычисления корня произвольной степени.
В двумерном массиве Aизmстрок иnстолбцов вычислить сумму и среднее значение всех элементов с использованием подпрограммы-процедуры.
В двумерном массиве Aизmстрок иnстолбцов вычислить максимальный и минимальный элементы с использованием подпрограммы-процедуры.
В двумерном массиве Aизmстрок иnстолбцов вычислить сумму и количество элементов выше главной диагонали с использованием подпрограммы-процедуры.
В двумерном массиве Aизmстрок иnстолбцов вычислить произведение и среднее значение элементов на главной диагонали с использованием подпрограммы-процедуры.
В двумерном массиве Aизmстрок иnстолбцов вычислить максимальный и минимальный среди элементов ниже главной диагонали с использованием подпрограммы-процедуры.
Примеры задач
Задача 1. Вычислить, а также найтис использованием подпрограммы-функции возведения в степень. |
Program Lab6a; Var A:array[0..100] of real; B,C,x:real; i,n:integer; Function Step(a,b:real):real; begin Step:=exp(b*ln(a)); end; Begin writeln('Введи n,x'); read(n,x); writeln('Введи массив A'); for i:=0 to n do read(A[i]); B:=Step(2.1,5)+Step(7,0.3); C:=0; for i:=0 to n do C:=C+A[i]*Step(x,i); writeln('B=',B:10:3,' C=',C:10:3); End. | |
Контрольный пример. | ||
Исходные данные: |
; ; . | |
Результаты: |
; . | |
Задача 2. В двумерном массивеAиз 3 строк и 4 столбцов вычислить сумму и произведение отрицательных элементов с использованием подпрограммы-процедуры. |
Program Lab6b; Const m=3; n=4; Type TT=array [1..m,1..n] of real; Var A:TT; i,j:integer; s,p:real; Procedure SumPro(B:TT; m,n:integer; var s,p:real); var i,j:integer; begin s:=0; p:=1; for i:=1 to m do for j:=1 to n do if B[i,j]<0 then begin s:=s+B[i,j]; p:=p*B[i,j]; end; end; Begin writeln('Введи массив A'); for i:=1 to m do for j:=1 to n do read(A[i,j]); SumPro(A,3,4,s,p); writeln(s,p); End. | |
Контрольный пример. | ||
Исходные данные: |
. | |
Результаты: |
; . |
Контрольные вопросы
Что такое подпрограмма? Перечислите виды подпрограмм.
Какие элементы входят в описание подпрограммы?
Что такое формальные и фактические параметры? Чем они отличаются?
Что такое параметры-значения и параметры-переменные? Чем они отличаются?
Что такое локальные и глобальные параметры? Чем они отличаются?
Какой вид имеет заголовок описания функции? Что это означает?
Какой вид имеет вызов функции? Что это означает?
Какой вид имеет заголовок описания процедуры? Что это означает?
Какой вид имеет вызов процедуры? Что это означает?
Напишите, что означает каждая строка в вышеприведённых программах.
Напишите программу к одной из задач дополнительного задания.