Практическая работа по "Информатике"
Автор: Svetlana6 • Октябрь 15, 2023 • Практическая работа • 344 Слов (2 Страниц) • 241 Просмотры
Задание 1 (40 баллов).
Составьте программу на языке программирования Паскаль для обработки массива из 12 вещественных чисел. Входные данные для значений элементов массива задайте самостоятельно. Вычислите количество элементов массива с нечётными номерами на промежутке [5,1; 32,4].
Код программы
program array1;
var
numbers: array[1..12] of real;
i, counter: integer;
begin
write('Введите массив из 12 чисел: ');
for i := 1 to 12 do
begin
read(numbers[i]);
end;
counter := 0;
for i := 1 to 12 do
begin
if (i mod 2 <> 0) and (numbers[i] >= 5.1) and (numbers[i] <= 32.4) then
begin
counter := counter + 1;
end;
end;
writeln('Кол-во эл-ов с нечётными номерами из отрезка [5.1, 32.4]: ', counter);
end.
Результат работы программы
[pic 1]
Задание 2 (60 баллов).
Разработайте схему алгоритма и программу обработки двумерного массива. Определите номера столбцов двумерного массива, которые имеют нулевые элементы. Входные данные для элементов массива задайте самостоятельно. Предусмотрите наличие положительных, отрицательных, а также равных нулю элементов. Размерность массива 3 × 4.
Код программы
program array2;
var
matrix: array[1..3, 1..4] of integer;
i, j, cnt: integer;
is_zero: boolean;
begin
writeln('Введите матрицу 3х4');
for i := 1 to 3 do
for j := 1 to 4 do
read(matrix[i, j]);
write('Номера столбцов, содержащих нулевой элемент:');
cnt := 0;
for j := 1 to 4 do
begin
is_zero := false;
for i := 1 to 3 do
if matrix[i, j] = 0 then
is_zero := true;
if is_zero then
begin
cnt := cnt + 1;
write(' ', j);
end;
end;
if cnt = 0 then
...