Лабораторная работа №6. Тема: «Разработка, отладка и испытание циклических алгоритмов и программ с известным числом повторений с внутренними ветвлениями».
Цель работы: получение навыков составления программ на языке Pascal с использованием циклических алгоритмов с известным числом повторений и внутренним ветвлением.
Задание
В соответствии со своим вариантом составьте графическую схему алгоритма и напишите программу.
Вариант |
Задание |
1 |
Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3. |
2 |
Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного С. |
3 |
Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А. |
4 |
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. |
5 |
Подсчитать количество чисел, не принадлежащих промежутку (Х, У], и сумму отрицательных чисел, стоящих на четных местах. |
6 |
Подсчитать сумму чисел, стоящих на местах, кратных 3, и неравных заданному F, подсчитать также количество неотрицательных чисел. |
7 |
Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине больших А и стоящих на четных местах. |
8 |
Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших заданного В. |
9 |
Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4. |
10 |
Найти среднее арифметическое чисел, неравных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах. |
11 |
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F. |
12 |
Найти среднее арифметическое чисел, не попадающих в промежуток [A, B], и подсчитать количество положительных чисел, стоящих на местах, кратных 3. |
13 |
Найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине не больших А и стоящих на четных местах. |
14 |
Вычислить произведение чисел, принадлежащих промежутку (А, В] и подсчитать количество отрицательных чисел, стоящих на местах, кратных 3. |
15 |
Найти среднее арифметическое чисел, стоящих на нечетных местах и подсчитать количество чисел, меньших заданного С. |
16 |
Вычислить сумму квадратов чисел, не принадлежащих промежутку [Х, У), подсчитать количество отрицательных чисел, стоящих на четных местах. |
17 |
Вычислить сумму квадратов чисел, принадлежащих промежутку (А, В) и стоящих на местах, кратных 4; подсчитать количество во всем массиве. |
18 |
Вычислить произведение чисел, неравных заданному числу Z, и подсчитать количество чисел, стоящих на нечетных местах и принадлежащих промежутку (А, В]. |
19 |
Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т. |
20 |
Вычислить сумму квадратов чисел, больших заданного С; подсчитать количество неположительных чисел, стоящих на местах, кратных 4. |
21 |
Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать количество ненулевых чисел. |
22 |
Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А, В) и стоящих на нечетных местах. |
23 |
Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В). |
24 |
Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4. |
25 |
Вычислить сумму квадратов чисел, принадлежащих промежутку (А, В] и стоящих на четных местах; подсчитать количество чисел, меньших заданного С. |
26 |
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, неравных заданному Х. |
27 |
Подсчитать количество не нулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного Т. |
28 |
Вычислить сумму квадратов чисел, не меньших заданного U и стоящих на местах, кратных 4; подсчитать также количество чисел, равных W. |
29 |
Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D). |
30 |
Вычислить сумму не нулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку (М, К). |
Лабораторная работа №7.
Тема: «Разработка, отладка и испытание алгоритмов и программ с использованием процедур и функций».
Цель работы: получение навыков составления программы на языке Pascal с использованием процедур и функций
ЗАДАНИЕ 1
Составьте
программу вычисления произведения
квадратных целочисленных матриц А и В
размером 5х5. Элементы результирующей
матрицы С (размером 5х5) определяется
.
Решение:
Формировать матрицы будем с помощью генератора случайных чисел.
Вычислить значения элементов результирующей матрицы С – посредством вложенных циклов. Во внутреннем цикле (по параметру k) будет накапливаться сумма, определяющая элемент C[i,j].
Program Kvmat;
Const
n=5;
Type
dm=array[1.. n, 1.. n] of integer;
var
a, b, c: dm;
Procedure init (var x: dm);
Var
i, j: integer;
begin
for i:=1 to n do
for j:=1 to n do
x[i, j]:=-25+Random (51);
end;
Procedure Print (x: dm);
Var
i, j: integer;
begin
for i:=1 to n do
for j:=1 to n do
writeln (x [i, j]:3)
end;
Procedure Mult (x, y: dm; var z: dm);
Var
k, i, j: integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
z [i, j]:=0;
for k:=1 to n do
z [i, j]:= z [i, j] + x [i, к] * y [k, j]
end
end
Begin
writeln (‘Матрица А’);
init
(
);
print (a);
writeln (‘Матрица В’);
init (b);
Mult (a, b, c);
writeln (‘Матрица С’);
print (c);
readln
end.