Рассмотри ситуации и определи название компьютерных программ. № ситуация компьютерная программа 1 медет создает рисунок на тему «мой дом». 2 медет демонстрирует рисунок аудитории.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,n,i,s:integer; begin write('Число элементов последовательности '); readln(n); for i:=1 to n do begin write(i,' элемент последовательности = ');readln(a); if (a mod 2 <>0) then s:=s+a; end; writeln('Сумма нечетных = ',s); end.
Тестовое решение: Число элементов последовательности 5 1 элемент последовательности = 3 2 элемент последовательности = 2 3 элемент последовательности = 4 4 элемент последовательности = 1 5 элемент последовательности = 5 Сумма нечетных = 9
Это алгоритм построения магического квадрата нечетного порядка Магическая константа (сумма числе по строке, столбцу или диагоналям) может быть найдена по формуле Баше де Мезириака:
Ниже приведена программа на языке Pascal.ABC.
const k = 29;
var m, n, i, j: integer; a: array[1..k, 1..k] of integer;
procedure rule_f; begin if (i = 0) and (j = n + 1) then begin i := 2; j := n end else begin if i = 0 then i := n; if j = n + 1 then j := 1 end; if a[i, j] <> 0 then begin i := i + 2; j := j - 1; rule_f end else a[i, j] := m end;
procedure rule_b; begin i := i - 1; j := j + 1 end;
begin write('Введите целое нечетное число не меньше, чем 3: '); readln(n); if (n mod 2) = 0 then writeln('Ошибка: Вы ввели четное число.') else if n < 3 then writeln('Ошибка: число должно быть не меньше трех.') else begin for i := 1 to n do for j := 1 to n do a[j, j] := 0; i := 1; j := (n + 1) div 2; a[i, j] := 1; for m := 2 to sqr(n) do begin rule_b; rule_f end; writeln('Магический квадрат порядка ', n, ' с магической константой ', (n * (sqr(n) + 1)) div 2); for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln end end end.
Тестовое решение:
Введите целое нечетное число не меньше, чем 3: 5 Магический квадрат порядка 5 с магической константой 65 17 24 1 8 15 23 5 7 14 16 4 6 13 20 22 10 12 19 21 3 11 18 25 2 9
2) Microsoft pover point