2 Контрольная работа No 4
Усажите наименьшее четырёҳоитиде число, все цифры ко-
торого различны, така что и результате применения к нему
данного алгоритми получится число 16,
Решение
Omoem:
ВАРИАНТ 2
1. У исполнителя Вычислитель две команды, которым присвое-
ны номера: 1
умножь на 5; 2 Вычти 5.
Первая из них увеличивает число в 5 раз, вторая уменьшает
его на 5. Составьте алгоритм получения из числа 4 числа 80
содержащий не более пяти команд. в ответе запишите толь
ко номера команд. Если таких алгоритмов более одного, та
запишите любой из них.
Решение
ответ: :
2. Чертёжнику был дан для исполнения следующий алгоритм:
Команда 1
Повтори 5 раз
Сместиться на (-2, -1)
Сместиться на (2, 1)
Конец
Какой должна быть Команда 1, чтобы Чертёжник вернул
в исходную точку, из которой он начал движение?
Решение
Omeem:
3. Автомат получает на вход пятизначное десятичное чис.
По полученному числу строится новое десятичное число
следующему правилу.
1) Вычисляются два числа сумма первой, третьей и пя
цифр и сумма второй и четвёртой цифр заданного число
2) Полученные два числа записываются друг за другом
порядке неубывания (без разделителей).
Пример: исходное число: 14351. Поразрядные суммы: 5.
Результат: 95.
ветвление - это выполнение той или другой последовательности действий в зависимости от выполнения какого-либо условия
например, вспомним сказку А.С. Пушкина "Руслан и Людмила", а именно действия учёного кота:
Идет направо - песнь заводит,
Налево - сказку говорит
алгоритм для кота:
если идешь направо,
то пой песню,
иначе говори сказку
другой пример из жизни:
если сделал уроки,
то отдыхай,
иначе делай уроки
и ещё пример:
если натуральное число делится на два без остатка,
то данное число чётное,
иначе данное число нечётное
program raf105;
const
n = 3;
var
m: array[1..n, 1..n] of integer;
x: boolean;
i,j: integer;
begin
writeln('Матрица:');
for i:=1 to n do
begin
x:= True;
for j:=1 to n do
begin
m[j,i]:= random(10,99);
write(m[j,i],' ');
end;
writeln;
end;
writeln('Номера убывающих строк:');
for i:=1 to n do
begin
x:= True;
for j:=2 to n do
if not(m[j,i] < m[j-1,i]) and x then
x:= False;
if x then
write(i,' ');
end;
end.
PascalABC