СКАЧАТЬ:  kontrolnaya-rabota.zip [42,35 Kb] (cкачиваний: 47)

КОНТРОЛЬНАЯ РАБОТА №2

по дисциплине

«ИНФОРМАТИКА»

Оглавление

Задание 1. 3

Задание 2. 7

Задание 3. 11

Список литературы.. 16

Задание 1

Постановка задачи

Пусть дан массив из n элементов (n=8). Каждый отрицательный элемент заменить полусуммой первого и последнего элементов массива. Вывести на экран преобразованный массив.

Блок-схема

Программа

program ex1;

const

  N = 8;

var

  a: array[1..N] of real;

  half_sum : real;

  i: integer;

begin

  randomize;

  writeln('Исходный массив:');

  for i := 1 to N do

  begin

    a[i]:= random(20)-5;

    write(a[i]:6:2);

  end;

  writeln;

  half_sum := ( a[1]+a[N] )/2;

  for i := 1 to N do

    if a[i] < 0 then a[i] := half_sum;

  writeln('Преобразованный массив:'); 

  for i := 1 to N do

    write(a[i]:6:2);

  readln;

end

Результат работы программы

.

Задание 2

Постановка задачи

Найти максимальный элемент побочной диагонали матрицы B(m,n). (m=4, n=4).

Блок-схема

Программа

program ex2;

const

  M = 4;

  N = 4;

var

  b : array[1..M, 1..N] of integer;

  max, i, j : integer;

begin

  max := 0;

  randomize;

  for j := 1 to N do

  begin

    for i := 1 to M do

    begin

      b[i, j]:=random(100);

      write(b[i,j]:4);

    end;

    writeln;

  end;

  for i := 1 to M do

  begin

    j := N+1-i;

    if b[i,j] > max then max := b[i,j];

  end;

  writeln('Максимальный элемент побочной диагонали: ', max);

  readln;

end

. Результат работы программ

Задание 3

Постановка задачи

Дана матрица размера M*N. Найти номер ее столбца с наименьшим произведением элементов и вывести данный номер, а также значение наименьшего произведения. Для отладки программы элементы матрицы сформировать помощью генератора случайных чисел.

Блок-схема

Программа 

program ex3;

const

  M = 8;

  N = 8;

var

  a: array[1..M, 1..N] of real;

  b: array[1..M] of real;

  curr_mul, min_mul : real;

  min_mul_i: integer;

  i, j: integer;

begin

  randomize;

  for j := 1 to N do

  begin

    for i := 1 to M do

    begin

      a[i,j] := random(20)+1;

      write(a[i,j]: 4:0);

    end;

    writeln;

  end;

  writeln;

  for i := 1 to M do

  begin

    curr_mul := 1;

    for j := 1 to N do

      curr_mul := curr_mul * a[i,j];

    b[i]:= curr_mul;

    writeln(curr_mul: 1:0);

  end;

  min_mul := b[1];

  min_mul_i := 1;

  for i := 1 to M do

    if b[i] < min_mul then

    begin

      min_mul := b[i];

      min_mul_i := i;

    end;

  writeln('Минимальное произведение: ', min_mul:1:0, ' в столбце: ', min_mul_i);

  readln;

end.

Результат работы программы