Читайте также:
|
Введение
В данной лабораторной работе будут введены понятия одномерных и двумерных массивов, матрицы, множества, подмножества, квадратичная матрица, индексы массивов, строки и столбцы массива, элементы массивов. Будут изучены способы ввода массивов в память ЭВМ, базовые операции с массивами, такие как перебор элементов массива, сравнение элементов, упорядочивание элементов по какому-либо признаку, вывод массива на экран. При работе с матрицами будут применены операции транспонирования и сложения матриц. Предстоит изучить операции над множествами такие как пересечение, объединение и разность множеств.
Задача №4
Анализ задач
Из условия задачи видно, что в программе будут испльзованы два цикла. Первый цикл будет отвечать за ввод переменных и их перечисление. Внутри этого цикла будет сравнение их между собой почленно чтобы выявить минимальный элемент. Второй цикл будет использован для вывода переменных на экран монитора.
Описание алгоритма
Для решения данной задачи был использован следующий алгоритм:
1. Константа m равная 100.
2. Массив а с количеством элементов m.
3. Целочисленные переменные n, i, sum, num.
4. Ввод n.
5. Обнуление sum.
6. Вычисление num.
7. Цикл1 с перечислением i от 1 до n.
8. Ввод a[ i ].
9. Вычисление sum.
10. Сравнение a [ i ] и a[ num ].
11. Если истина, то вычисление num.
12. Завершение цикла1.
13. Вычисление a [ num ].
14. Цикл2 с перечислением i от 1 до n.
15. Вывод a[ i ].
16. Завершение цикла2.
Задача №25
Анализ задач
Из условия задачи видно, что в программе будет разбита на несколько смыслов кусков. Сначала будет произведен ввод двух массивов, затем будут проведены опереации пересечения, объединения и разности множеств выполненые над массивами.
Описание алгоритма
Для решения данной задачи был использован следующий алгоритм:
1. Константы m и о равные 100.
2. Массивы а, b и c с количеством элементов m, o и m+o.
3. Целочисленные переменные n, p, t, i, j, sum, num.
4. Ввод n, p.
5. Цикл1 с перечислением i от 1 до n.
6. Ввод a [ i ].
7. Цикл1 завершен.
8. Цикл2 с перечислением j от 1 до p.
9. Ввод b [ i ].
10. Цикл2 завершен.
11. Обнуление t.
12. Цикл3 с перечислением i от 1 до n.
13. Вычисление t, c[t].
14. Цикл3 завершен.
15. Цикл4 с перечислением j от 1 до p.
16. Цикл5 с перечислением i от 1 до t.
17. Сравнение b [ j ] и c [ i ].
18. Если истина, то вычисление sum.
19. Конец цикла5.
20. Сравнение sum и 0.
21. если истина, то вычисление t, c[t].
22. Конец цикла4.
23. Цикл6 с перечислением i от 1 до t.
24. Вывод c[i].
25. Конец цикла6.
26. Цикл7 с перечислением i от 1 до n.
27. Обнуление num.
28. Цикл8 с перечислением j от 1 до p.
29. Сравнение b [ j ] и a [ i ].
30. Если истина, то вычисление num.
31. Конец цикла8.
32. Сравнение num и 0.
33. Если истина то вывод a [ i ].
34. Конец цикла7.
35. Цикл9 с перечислением i от 1 до p.
36. Обнуление num.
37. Цикл10 с перечислением j от 1 до n.
38. Сравнение b [ j ] и a [ i ].
39. Если истина, то вычисление num.
40. Конец цикла10.
41. Сравнение num и 0.
42. Если истина то вывод b [ j ].
43. Конец цикла9.
44. Цикл11 с перечислением i от 1 до n.
45. Обнуление num.
46. Цикл12 с перечислением j от 1 до p.
47. Сравнение b [ j ] и a [ i ].
48. Если истина, то вычисление num.
49. Конец цикла12.
50. Сравнение num и 0.
51. Если истина то вывод b [ j ].
52. Конец цикла11.
Заключение
В данной лабораторной работе были введены понятия одномерных и двумерных массивов, матрицы, множества, подмножества, квадратичная матрица, индексы массивов, строки и столбцы массива, элементы массивов. Были изучены способы ввода массивов в память ЭВМ, базовые операции с массивами, такие как перебор элементов массива, сравнение элементов, упорядочивание элементов по какому-либо признаку, вывод массива на экран. При работе с матрицами были применены операции транспонирования и сложения матриц. Были изучены операции над множествами такие как пересечение, объединение и разность множеств.
Приложение А Листинг программ
Задача№4
program lab3_1;
const
m = 100;
var
a: array [1..m] of integer;
n, i, sum, num: integer;
begin
write('Введите размер массива: ');
readln(n);
sum:= 0;
num:=1;
writeln('введите ', n, ' элементов массива через пробел:');
for i:=1 to n do //перечисление элементов массива
begin
read(a[i]);
sum:=sum+a[i];
if a[i] <= a[num] then //поиск наименьшего или равного наименьшему элемента
num:=i;
end;
a[num]:= trunc(sum/n);
for i:=1 to n do //вывод массива
write(a[i], ', ');
end.
Задача №25
program lab3_2;
const
m = 100;
o = 100;
var
a: array [1..m] of integer;
b: array [1..o] of integer;
c: array [1..m+o] of integer;
n, p, t, i, j, sum, num: integer;
begin
write('Введите размер массива a: ');
readln(n);
writeln('введите ', n, ' элементов массива1 через пробел:');
for i:=1 to n do //перечисление элементов массива a
read(a[i]);
write('Введите размер массива b: ');
readln(p);
writeln('введите ', p, ' элементов массива2 через пробел:');
for i:=1 to p do //перечисление элементов массива b
read(b[i]);
writeln('Сумма массивов a u b: ');
t:=0;
for i:=1 to n do //сумма массиввов
begin
t:=t+1;
c[t]:=a[i];
end;
for j:=1 to p do
begin
sum:=0;
for i:=1 to t do
if b[j] = c[i] then
sum:=1;
if sum=0 then
begin
t:=t+1;
c[t]:=b[j];
end;
end;
for j:=1 to t do
write(c[j], ', ');
writeln;
writeln('Разность массивов a u b: ');
for i:=1 to n do //Разность массивов a u b
begin
num:= 0;
for j:= 1 to p do
if a[i] = b[j] then
num:= 1;
if num = 0 then
write(a[i], ', ');
end;
writeln;
writeln('Разность массивов a u b: ');
for i:=1 to p do //Разность массивов b u a
begin
num:= 0;
for j:= 1 to n do
if b[i] = a[j] then
num:= 1;
if num = 0 then
write(b[i], ', ');
end;
writeln;
writeln('Произведение массивов a u b: ');
for i:=1 to n do //Произведение массивов
begin
num:= 0;
for j:= 1 to p do
if a[i] = b[j] then
num:= 1;
if num = 1 then
write(a[i], ', ');
end;
end.
Дата добавления: 2015-12-07; просмотров: 198 | Нарушение авторских прав