На паскалеЗадание: Сформировать одномерный массив из 10-ти частей. Значение частей

На паскале
Задание: Сформировать одномерный массив из 10-ти частей. Значение частей массива обязано быть одинаково его индексу.

Задать свой вопрос
2 ответа
//PascalABC

begin
    ArrGen(10, i -gt; i).Print(', ');
end.
Софья Туплицова
1. Нет языка PacalABC. Есть Pascal ABC и там это не пойдет. И есть PascalABC.NET, там это пойдет, если версия не ниже 3.0 2. ArrGen породит массив c индексами 0..9, а Print их и напечатает, но при этом уничтожит сделанный массив, превратив его в последователность. "А в остальном, прекрасная маркиза, все хорошо, все хорошо" (с)
Вячеслав Мазлумян
Учтемс
Милена Хуртакова
Я тоже многих тонкостей поначалу не знал, но вот 2-ой месяц общаюсь на форуме с основным разработчиком этого Паскаля - узнал много нового для себя.
Алёна
Но все одинаково все написаное укладывается в задание. Сформировать массив - сформирован, никто ж не произнес, что он обязан дожить до конца программки. Элементы обязаны быть одинаковы индексам, но не сказанно какие обязаны быть индексы. А Print только для того чтобы показать, что что-то происходит. По условию задачи он вообще-то не нужен
Вадим
А тонкости это превосходно, спасибо за комментарий. Правда очень оцениваю
Качарин Денис
А разве я где-то написал, что Вы задание неверно сделали?)))
1. Вот так учат писать в школе...

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=i;
    Write(a[i],' ')
    end;
  Writeln;
end.

Итог исполненья программы
1 2 3 4 5 6 7 8 9 10

2. А вот так пишут "в жизни"

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var a:=Range(1,10).ToArray;
  a.Println
end.
Елизавета Емельяшина
Кстати, зачем для вас Randomize?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт