4 четв. СОР информатика 8 II вариант
Суммативное оценивание за раздел «Решение задач в интегрированной среде разработки»
Цель обучения
8.3.1.1 Создавать модели задач в интегрированной среде разработки программ
8.3.3.2 Знать и использовать компоненты интегрированной среды разработки
программ (С++)
8.3.3.1 Использовать операторы выбора и циклов в интегрированной среде
разработки программ (С++)
Критерий
оценивания
Обучающийся
• Создает и разрабатывает модель программы
• Использует компоненты интегрированной среды разработки программ
• Использует оператор выбора и оператор цикла в интегрированной среде
разработки программ
Уровень
мыслительных
навыков
Применение
Время выполнения 20 минут
Задания.
1. а) На каком этапе создаётся псевдокод и проверяется правильное решение проблемы? [1]
1. Разработка алгоритма
2. Тестирование и отладка
3. Сопровождение программы
4. Постановка проблемы
5. Программирование
6. Анализ результатов решения проблемы
7. Анализ и исследование проблемы
б) На каком этапе пишется программа алгоритма и проверяется её работо Изучите блок-схему и напишите псевдокод. [4]
4. Напишите программу на языке С++ по псевдокоду: [4]
алг вычисление P
цел i,P
нач
P=1;
i=1;
Начало
Ввод n
p=1, i=0
i i=i+1, p=p*i
да
Вывод p
Конец

1. Помещаем нижеследующий текст в файл UniSum.pas, который должен находиться в директории PABCWork.Net

// PascalABC.NET 3.0, сборка 1128
unit UniSum;

interface

Function UniSumMatrix(a:array[,] of integer):integer;
Function UniSumMatrix(a:array[,] of real):real; overload;

implementation

Function UniSumMatrix(a:array[,] of integer):integer;
begin
  Result:=0;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to Length(a,1)-1 do
      if a[i,j]>0 then Result+=a[i,j]
end;

Function UniSumMatrix(a:array[,] of real):real; overload;
begin
  Result:=0;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to Length(a,1)-1 do
      if a[i,j]>0 then Result+=a[i,j]
end;

end.

2. Создаем новый файл и помещаем в него тестовую программу

// PascalABC.NET 3.0, сборка 1128
uses
  UniSum;

begin
  var m:=ReadInteger('Число строк в матрице:');
  var n:=ReadInteger('Число столбцов в матрице:');
  var R:=MatrixRandom(m,n,-10,20);
  Writeln('Сгенерированная матрица');
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(R[i,j]:4);
    Writeln
    end;
  Writeln('Сумма положительных элементов: ',UniSumMatrix(R));
  m:=ReadInteger('Число строк в матрице:');
  n:=ReadInteger('Число столбцов в матрице:');
  var S:=MatrixRandomReal(m,n,-15,32);
  Writeln('Сгенерированная матрица');
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(S[i,j]:7:2);
    Writeln
    end;
  Writeln('Сумма положительных элементов: ',UniSumMatrix(S):0:2)
end.

Тестовое решение:
Число строк в матрице: 4
Число столбцов в матрице: 3
Сгенерированная матрица
 -10  15  17
  -8  -8   7
   2  -9   0
  -1   5  17
Сумма положительных элементов: 63
Число строк в матрице: 5
Число столбцов в матрице: 6
Сгенерированная матрица
   0.74  -7.30  15.97   5.01   1.55  12.02
  -3.98  -9.21   3.35  -7.95 -14.10  31.21
  13.75  -5.82  -5.34  13.33  14.61  15.76
  -5.30  14.65   2.60  20.26  27.30  10.81
  11.60  27.43   5.61 -10.29 -10.48  26.61
Сумма положительных элементов: 274.18

Как видно, программа действительно универсальная: она позволяет работать с матрицами разных размеров и даже разного типа данных.

// PascalABC.NET 3.0, сборка 1128
begin
  var m:=ReadInteger('Число строк:');
  var n:=ReadInteger('Число колонок');
  var a:=MatrixRandom(m,n,-10,20);
  Writeln('Сгенерированный массив');
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  Writeln('Найденные суммы');
  for var i:=0 to m-1 do begin
    var avg:=0.0;
    for var j:=0 to n-1 do avg+=a[i,j];
    avg/=n;
    var s:=0;
    for var j:=0 to n-1 do
      if a[i,j]>avg then s+=a[i,j];
    Write(s,' ')
    end;
  Writeln
end.

Тестовое решение:
Число строк: 5
Число колонок 7
Сгенерированный массив
  19  14  -6  -8   2  -3  11
   2  -8  -9  18   6  -6  -9
  -5  -1   2  -6  -6  15  -4
  13  19   2   6 -10   5  15
  13   1   0  -2  -8  20  18
Найденные суммы
44 26 17 47 51