• Паскаль. Списки. Формировать списки из N элементов. Добавить элемент А после второго кратного 3м элемента списка (1, 6, 7, 3*, 5). Удаление первого кратного 3м элемента списка (1,7,3,А,5). Выполнить сортировку списка по убыванию. После выполнения каждой операции выводить список на экран.

Ответы 6

  • PascalABC.NET - это современный язык платформы Microsoft .NET Framework и ему доступно все, что есть в .NET. В частности, стандартная коллекция List - односвязный список со всеми его свойствами и методами.
  • Поэтому не надо корячится, изобретая "велосипед" - строить собственный класс List и описывать для него набор необходимых методов, а если не использовать объектно-ориентированное программирование - и того хуже - маяться с дурацкими указателями, изображая чуть ли не ассемблер.
  • Да, совсем забыл, если вводить с клавиатуры, то также не нужны строки L.AddRange(Seq(1, 6, 7, 3, 5)); и L.Println;
  • Спасибо большое, правда,очень помогли!
    • Автор:

      chubszfua
    • 6 лет назад
    • 0
  • Пожалуйста...
  • // PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

    // Внимание! Если программа не работает, обновите версию!

    begin

     var L := new List<integer>;

     L.AddRange(Seq(1, 6, 7, 3, 5));

     L.Println;

     var A := ReadInteger('A=');

     var s := L.ToArray.IndexesOf(t -> t mod 3 = 0);

     var i2 := s.Skip(1).First;

     L.Insert(i2 + 1, A);

     L.Println;

     L.RemoveAt(s.First);

     L.Println;

     L := L.SortedDescending.ToList;

     L.Println

    end.

    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years