- •Оглавление Лабораторная работа № 1. Линейные алгоритмы
- •Лабораторная работа № 2. Разветвляющиеся алгоритмы
- •Лабораторная работа № 3. Циклы
- •Лабораторная работа № 4. Одномерные массивы
- •Лабораторная работа № 5. Двумерные массивы
- •Лабораторная работа № 6. Множества
- •Лабораторная работа № 7. Строки
- •Лабораторная работа № 8. Файлы
- •Лабораторная работа № 9. Записи
- •Лабораторная работа № 10. Подпрограммы
- •Библиографический список
Лабораторная работа № 5. Двумерные массивы
Задание 1. Заполните пустые места в алгоритме поиска минимального элемента в двумерном массиве.
Рис. 6. Двумерный массив
Задание 2. Составьте блок-схему к программе, вычисляющей произведение элементов двумерного массива.
Program Example10;
Uses crt;
Var a: array[1..100, 1..100] of integer;
i, j, n, m: integer;
P: longint;
Begin
Clrscr;
Write('n='); Readln(n);
Write('m='); Readln(m);
for i:= 1 to n do
for j:= 1 to m do Begin
Write('a[', i, j, ']=');
Readln(a[i, j]);
End;
P:= 1;
fori:=1 to n do
for j:= 1 to m do P:= P *a[i, j];
Write(‘P=’, P);
End.
Доработайте программу, чтобы на экран выводился массив в виде матрицы.
Задание 3. Составьте программу для поиска максимального элемента и его индексов.
Задание 4. Заполните пустые места в программе, вычисляющей сумму элементов, расположенных на главной диагонали.
Program Example11;
Uses crt;
Var a: array[1..100, 1..100] of integer;
i, j, n, m, S: integer;
Begin
Clrscr;
Write('n='); Readln(n);
for i:=1 to n do
for j:=1 to n do
Write('a[', i, j,']=');
Readln(a[i, j]);
S:= 0;
for i:=1 to n do
for j:=1 to n do if then
for i:= 1 to n do
Begin
for j:= 1 to n do
Write(a[i, j]:5);
Writeln;
End;
Writeln('S=', S);
End.
Доработайте программу, чтобы считалась сумма элементов, расположенных на побочной диагонали.
Задание 5. Составьте программу для поиска максимального элемента на побочной диагонали. Для заполнения массива воспользуйтесь датчиком случайных чисел.
Задание 6. Составьте программу для поиска минимального элемента среди элементов, расположенных выше главной диагонали.
Задание 7. Составьте программу, которая подсчитывает количество строк в двумерном массиве, содержащих отрицательные элементы.
Задание 8. Составьте программу, которая вычисляет сумму элементов по столбцам.
Лабораторная работа № 6. Множества
Задание 1. Запишите результаты операций над множествами:
1 |
[1, 3,6, 7, 8] + [1, 2, 7, 9] |
|
2 |
[5, 6, 8, 9] * [3, 4, 5, 8, 10] |
|
3 |
[‘a’, ‘b’, ‘c’, ‘d’, ‘e’] – [‘b’, ‘d’, ‘f’, ‘g’] |
|
4 |
4 in [1, 2, 3, 4, 5] |
|
5 |
3 in [1, 2, 5, 7, 9] |
|
Задание 2. Правильный порядок команд в программе, объединяющей два множества:
□ Var M, N, L: set of byte;
□ N:= [1, 2, 3, 4, 8]; M:= [3, 4, 5, 6, 8];
□ End.
□ Program Example12;
□ L:= N + M;
□ Begin
□ Uses Crt;
Задание 3. Заполните пустые места в программе, определяющей количество цифр в тексте.
Program ABC;
Uses Crt;
Var G: char;
t: string;
i, n, m: byte;
Begin
Clrscr;
G:= ['0' .. '9'];
Writeln('Введите текст ');
Readln(t);
For i:= 1 to Length(t) do Begin
if then n:= n+1;
End;
Writeln(n);
Readkey;
End.
Задание 4. Составьте программу, которая заполняет множество нечетными числами от 1 до n (n ≤ 255) и выводит эти числа на экран.
Задание 5. Составьте программу, которая заполняет множество простыми числами от 1 до n (n ≤ 255) и выводит эти числа на экран.