 |
Примеры программ на языке Pascal
|
|
|
|
| 1-я программа | Объяснение каждой строки | |
| Program Lab1a; | Программа по имени lab4a | |
| Var | Раздел описания переменных | |
| a,b,c:real; | Переменные a, b, c – вещественного типа | |
| Begin | Начало раздела операторов (или начало составного оператора) | |
| writeln('Введите a,b'); | Вывод пояснительного текста 'Введите a,b' | |
| read(a,b); | Ввод переменных a, b | |
| c:=a+b; | Переменной c присваивается значение выражения a+b | |
| writeln('c=',c:10:3); | Вывод пояснительного текста 'c=' и значения переменной c, имеющей в числе 10 позиций, в т.ч. 3 цифры после запятой | |
| End. | Конец раздела операторов и программы | |
| 2-я программа | 3-я программа | |
| Program Lab1b; | Program Lab1c; | |
| Var | Var | |
| a,b,c:real; | x,y,xn,xk,dx:real; | |
| Begin | Begin | |
| writeln('Введи a,b'); | writeln('Введи xn,xk,dx'); | |
| read(a,b); | read(xn,xk,dx); | |
| if a>b | x:=xn; | |
| then c:=(a-b)/(a*b) | while x<=xk do | |
| else c:=exp(b*ln(a)); | begin | |
| writeln('c=',c:10:3); | y:=exp(x); | |
| End. | writeln('при x=',x:10:3,' y=',y:10:3); | |
| x:=x+dx; | ||
| end; | ||
| End. | ||
Лабораторная работа № 4. Программирование задач с одномерными массивами
Терминология
Массив – упорядоченный набор нумерованных величин одинакового типа. Массивы бывают одномерные (вектор-строка, вектор-столбец), двумерные (матрица) и многомерные (тензор).
Вектор-строка имеет вид: 
.
Пример 1. 
.
Вектор-столбец имеет вид:
. Пример 2. 
.
Элемент массива – величина, входящая в состав массива. Индекс элемента – порядковый номер элемента в одномерном массиве. Индекс является целым числом (типа integer). Размер массива – количество элементов в массиве. Размерность массива –количество индексов у элемента массива.
Одномерные массивы обычно обозначаются так: 
; 
, где A – массив; n – размерность массива; i – индекс элемента массива; 
– i ‑тый элемент массива 
.
Описание одномерного массива в разделе описания переменных (var) на языке Pascal имеет вид:
|
|
|
Mas: array [ iMin.. iMax ] of T
Это означает, что переменная Mas является массивом, который может иметь индексы от iMin до iMax у элементов типа T.
Пример 3. Var A:array[1..100] of real;
Это означает, что переменнаяA – массив, который может содержать от 1 до 100 элементов вещественного типа.
Доступ к элементу массива на языке Pascal имеет вид:
Mas [ ind ]
Это означает доступ к элементу массива Mas с индексом ind.
Пример 4. a[1]; b[3]; c[i]; d[n]; f[k+1].
Это означает 1-й элемент массива A и т.д.
Среди стандартных функций в языке Pascal наиболее часто применяются: pi (число p), sin (синус), cos (косинус), arctan (арктангенс), abs (модуль), ln (натуральный логарифм), exp (экспонента), sqr (возведение в квадрат), sqrt (квадратный корень), round (округление числа), trunc (целая часть числа), frac (дробная часть числа), random (случайное число), odd (проверка нечётности), ord (порядковый номер аргумента), chr (символ с заданным порядковым номером), pred (предшествующее значение аргумента), succ (последующее значение аргумента).
Порядок выполнения
1. Зайти в Borland Pascal, набрать текст программы к примеру задачи и, сохранив её в файле Лаб2, получить результат решения задачи для контрольного примера и записать ответ.
2. Получить результаты для других контрольных примеров в данной задаче и записать ответ.
3. Составить программы для других задач (по выбору преподавателя), набрать их программный код на компьютере, получить результат и записать ответ.
Пример задачи
Условие задачи. Дан одномерный массив A из n элементов. Найти сумму элементов массива:
 .
| Программа. Program Lab2; Var A:array[1..100] of real; i,n:integer; s:real; Begin writeln('Введи n'); read(n); s:=0; writeln('Введи массив A'); for i:=1 to n do begin read(A[i]); s:=s+A[i]; end; writeln('s=',s:10:3); End. |
Контрольный пример.
Исходные данные:  ;  .
Ручной счёт:  .
Результат:  .
| |
| Экран пользователя. Введи n Введи массив A 1 2 3 5 -1 s= 10.000 | |
| Дополнительное задание |
1. Дан массив L (n). Найти количество элементов, больших корня из суммы положительных элементов.
|
|
|
2. Дан массив G (q). Найти произведение неотрицательных элементов и сумму элементов в диапазоне от 10 до 20.
3. Дан массив A (n). Найти сумму и количество элементов, равных среднему значению.
4. Дан массив C (m). Найти отношение максимального к минимальному элементу.
5. Дан массив D (n). Найти минимальный среди элементов, больших суммы, и найти количество элементов, не равных максимальному.
6. Дан массив A (n). Сформировать новый массив B умножением элементов массива A на 100. В новом массиве переставить местами третий и предпоследний элементы.
7. Дан массив A (n). Положительные элементы массива заменить на их сумму, а отрицательные элементы уменьшить на минимальный.
8. Дан массив A (n). Найти сумму элементов на чётных местах и произведение элементов, кратных 3.
9. Дан массив A (n). У нечётных элементов отбросить дробную часть числа, а у элементов с индексами, дающими остаток 1 при делении на 3, отбросить целую часть числа.
10. Сформировать массив случайных чисел в диапазоне от -10 до 20 и округлить значения элементов, по модулю меньших 1.
|
|
|
