// PascalABC.NET
begin
var n := ReadInteger;
SeqRandom(n, 0, 200).Println; // 1
SeqRandom(n, -200, 200).Print // 2
end.
Задача: Черепашке был дан для исполнения следующий алгоритм: Повтори 12 [Вперёд 50 Направо 60]. Какая фигура появится на экране?
Выполняя алгоритм, Черепашка оставляет след в виде одинаковых отрезков, расположенных под углом 180° − 60° = 120° друг к другу. Такой угол составляют между собой стороны правильного шестиугольника. Поэтому за первые шесть шагов алгоритма Черепашка нарисует правильный шестиугольник, а за следующие 5 шага пройдет по пяти его сторонам ещё раз. Следовательно, оставленный Черепашкой след представляет собой правильный шестиугольник.
Вот примерный план:
1. Память компьютера, технические данные. Марка, производитель. Возраст: сколько лет ты пользуешься компьютером.
2. Внешний вид, комплектация (сколько места занимает, какие режимы имеет), ну и стандартное: цвет, размер экрана (можно в дюймах), камера - сколько мегапикселей.
3. Приложения и программы, установленные на компьютере (конечно, про амонг, танки и т.п. писать не надо)
4. Итог: удобно ли тебе пользоваться компьютером, соответствует ли он твоим требованиям и всё ли тебя в нём устраивает.
Всё)
--- PascalABC.NET 3.6.2 ---
function RandGen(N:integer; lb: integer; rb: integer):sequence of integer;
begin
for var i := 1 to N do begin
yield Random(lb, rb);
end;
end;
---Python 3.8.3---
import random
def RandGen(N:int, lb:int, rb: int):
for i in range(N):
yield random.randint(lb,rb)
--- C# 7.3 ---
public static IEnumerable<int> RandSeq(int N, int lb, int rb)
{
Random r = new Random();
for (int i = 0; i < N; i++)
{
yield return r.Next(lb, rb);
}
}
Для решения обеих задач подойдёт эта функция (на нужном вам языке). Все три функции возвращают перечисляемый объект. Ни одна из функций не возвращает готовый массив случайных чисел. Вывод на экран сгенерированных значений функции не поддерживают.