8 класс. Информатика. Установить соответствие Детерминированность(определенность), массовость, дискретность, конечность, результативность. Это свойство предполагает, что алгоритм должен быть пригоден для решения всех задач данного типа. Указывает на наличие таких исходных данных, для которых реализуемый по заданному алгоритму вычислительный процесс должен через конечное число шагов остановиться и выдать искомый результат. Означает расчлененность определяемого алгоритмом вычислительного процесса на отдельные этапы, возможность выполнения которых исполнителем (компьютером) не вызывает сомнений. Каждое из действий и весь алгоритм в целом обязательно завершаются. Получение однозначного результата вычислительного процесса при заданных исходных данных.
Ответы
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n>10 then begin Writeln('n>10'); Exit end;
var a:=ReadArrInteger(n);
Writeln(10*'-');
var b:=a.Where(k->k.IsEven or (k mod 13=0)).ToArray;
var m:=0;
for var i:=0 to b.Count-2 do
for var j:=i+1 to b.Count-1 do
if (b[i]*b[j]) mod 26=0 then begin
Println(b[i],b[j]); m+=1
end;
if m=0 then Writeln('NO')
end.
Пример
n= 6
29 38 16 39 41 7
38 39
16 39
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n>10 then begin Writeln('n>10'); Exit end;
var a:=ReadArrInteger(n);
Writeln(10*'-');
var b:=a.Where(k->k.IsEven or (k mod 13=0)).ToArray;
var m:=0;
for var i:=0 to b.Count-2 do
for var j:=i+1 to b.Count-1 do
if (b[i]*b[j]) mod 26=0 then begin
Println(b[i],b[j]); m+=1
end;
if m=0 then Writeln('NO')
end.
Пример
n= 6
29 38 16 39 41 7
38 39
16 39
Var
i: integer;
ar: array[1..4]of integer;
procedure Divisor(x: integer);
var
d, c: integer;
begin
c := 1;
if(x < 1) then exit;
write(x, ' = ');
if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end;
d := 2;
while x > 1 do
begin
if(x mod d = 0) then
begin
if(x div d <> 1) then write(d, ' * ')
else write(d, '; ', ' Количество делителей:', c);
x := x div d;
c := c + 1;
end
else d := d + 1;
end;
writeln;
end;
begin
writeln('Введите четыре числа:');
for i := 1 to 4 do read(ar[i]);
writeln;
for i := 1 to 4 do Divisor(ar[i]);
end.
i: integer;
ar: array[1..4]of integer;
procedure Divisor(x: integer);
var
d, c: integer;
begin
c := 1;
if(x < 1) then exit;
write(x, ' = ');
if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end;
d := 2;
while x > 1 do
begin
if(x mod d = 0) then
begin
if(x div d <> 1) then write(d, ' * ')
else write(d, '; ', ' Количество делителей:', c);
x := x div d;
c := c + 1;
end
else d := d + 1;
end;
writeln;
end;
begin
writeln('Введите четыре числа:');
for i := 1 to 4 do read(ar[i]);
writeln;
for i := 1 to 4 do Divisor(ar[i]);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Приведите примеры из физики, чтобы выразить алгоритм формулами
Автор: eleniloy26
Даны числа а1, .определить сумму их квадратов. по. паскалю
Автор: vallihhh
Опишите понятия ссылка и гиперссылка. ! !
Автор: Wunkamnevniki13438
2 задания по информатике из темы " объекты компьютерной графики "
Автор: Александровна1685
Спаскалемнадо написать программу цикл с предусловием по фото
Автор: inikonovich
Обект получающий информацию
Автор: gelena03
Детерминированность - получение однозначного результата вычислительного процесса при заданных исходных данных.
Массовость - это свойство предполагает, что алгоритм должен быть пригоден для решения всех задач данного типа.
Дискретность - означает расчлененность определяемого алгоритмом вычислительного процесса на отдельные этапы, возможность выполнения которых исполнителем (компьютером) не вызывает сомнений.
Конечность - каждое из действий и весь алгоритм в целом обязательно завершаются.
Результативность - указывает на наличие таких исходных данных, для которых реализуемый по заданному алгоритму вычислительный процесс должен через конечное число шагов остановиться и выдать искомый результат.