В приведённом коде оператор ЦЕЛОЕ создаёт переменную для хранения целочисленных значений; оператор ЛОГИЧЕСКОЕ создаёт переменную для хранения логических значений; оператор ПОКА (){} выполняет команды, заключённые в фигурные скобки до тех пор, пока выполняется условие, указанное в круглых скобках; оператор ПЕЧАТЬ() выводит на экран значение указанное в круглых скобках; оператор НЕ(), И(), ИЛИ() производят логические операции с указанными операндами.
По приведённому ниже коду определите результат работы программы:
ЦЕЛОЕ s = 15
ЛОГИЧЕСКОЕ a = false;
ЛОГИЧЕСКОЕ b;
ПОКА (s>0)
{ s = s - 3;
a = НЕ(а);
b = s / 3 > 2;
ПЕЧАТЬ (ИЛИ(a, b)); }
Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы}
B : array [1..100, 1..100] of integer ;
C : array [1..100, 1..100] of integer ;
m, n, i,j: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
writeln ('Введите размерность матриц m и n (числа <100)');
readln (m, n);
For i:=1 to m do
For j:=1 to n do
begin
A[i,j]:=random (20)-10; {ввод элемента матрицы}
B[i,j]:=random (20)-10; {ввод элемента матрицы}
end;
writeln ('Итоговая матрица A: ');
For i:=1 to m do
begin
For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
writeln ('Итоговая матрица B: ');
For i:=1 to m do
begin
For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
For i:=1 to m do {цикл по всем строкам матрицы}
For j:=1 to n do {цикл по всем столбцам матрицы}
if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j];
writeln ('Итоговая матрица C: ');
For i:=1 to m do
begin
For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
end.
#3
1 поколение - Ламповые машины.
2 поколение - Полупроводниковые машины на транзисторах
3 поколение - Миникомпьютеры на интегральных системах
4 поколение - Вычислительные системы на большой интегральной системе.
(дополнительно 5 поколение - Искусственный Интеллект)
#4
4. Одним из первых устройств, облегчающих вычисления, можно считать абак. Следующим этапом люди изобрели аналоговый компьютер. А впоследствии и до сих пор мы пользуемся цифровым компьютером.
#5
Робот является одним из признаков развития вычислительной техники пятого поколения, потому что в основе его лежит искусственный интеллект.