М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dog12361246
dog12361246
22.10.2020 00:56 •  Информатика

Паскаль, создание списка.
Подскажите, как сделать функцию сортировки учеников по алфавиту, добавление нового ученика в середине программы и как удалять учеников? Желательно более введите кол-во учеников: ');
readln(n);
for i:= 1 to n do
begin
write('введите ФИО:');
readln(k[i]);
end;
end;

procedure out;
var i:integer;
begin
writeln('Список класса:');
for i:= 1 to n do
writeln(k[i]);
end;

procedure menu;
begin
writeln('1, Создание списка класса');
writeln('2, Вывод списка класса');
writeln('6, EXIT');
end;

var
kom: byte;
begin
repeat
menu;
readln(kom);
case kom of
1: creat;
2: out;
//3: sort;
// 4: dobavit;
// 5:delet;
6: exit;
end;
until kom = 6;
end.

👇
Ответ:
llRosell
llRosell
22.10.2020

На PascalABC.NET можно так:

var k: array of string;

procedure CreatOrAdd(add: boolean);

begin

 var i,n: integer;

 write('введите кол-во учеников: ');

 readln(n);

 if (add) then  

   begin

     setlength(k,k.Length+n);

     for i:= 0 to n-1 do  

       begin

       write('введите ФИО:');

       readln(k[k.Length-n+i]);

       end;

   end

 else  

   begin

   setlength(k,n);

   for i:= 0 to n-1 do  

     begin

     write('введите ФИО:');

     readln(k[i]);

     end;

   end;

end;

procedure out;

begin

 try

   writeln('Список класса:');

   for var i:= 0 to k.Length-1 do writeln(k[i]);

 except

   on e: System.Exception do writeln(e.Message);  

 end;

end;

procedure menu;

begin

writeln('1, Создание списка класса');

writeln('2, Добавление');

writeln('3, Удаление');

writeln('4, Вывод списка класса');

writeln('5, EXIT');

end;

procedure delet;

begin

 var n: integer;

 write('введите номер удаляемого ученика: ');

 readln(n);

  try

   if (n<=k.Length) then

   k := k.Where(t -> t<>k[n-1]).ToArray()

   else writeln('Ошибка');

 except

   on e: System.Exception do writeln(e.Message);  

 end;

end;

var

kom: byte;

begin

repeat

menu;

readln(kom);

case kom of

1: creatoradd(false);

2: creatoradd(true);

3: delet;

4: out;

5: exit;

end;

until kom = 5;

end.

Если будут вопросы, спрашивайте.

4,4(47 оценок)
Открыть все ответы
Ответ:
Pузик
Pузик
22.10.2020

1.

монитор , мышь , клавиатура , и системный блок

2.

Системный блок — это элемент персонального компьютера, который защищает компоненты компьютера

Периферийные устройства – это любые дополнительные и вс устройства, которые подключаются к ПК для расширения его функциональных возможностей

Устройства ввода — периферийное оборудование, предназначенное для ввода данных или сигналов в компьютер или в другое электронное устройство во время его работы.  

Плоттер — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт и другой графической информации на бумаге размером до A0 или кальке.

Кэш микропроцессора — кэш (сверхоперативная память), используемый микропроцессором компьютера для уменьшения среднего времени доступа к компьютерной памяти. Является одним из верхних уровней иерархии памяти.

3.

Диск С – 7 класс – домашнее задание – графика – рыбка.png

4.

Операционная система Сервисные программы Инструментальные программы Программы технического обслуживания компьютера

Объяснение:

4,7(57 оценок)
Ответ:
E041Shvan
E041Shvan
22.10.2020

1.

монитор , мышь , клавиатура , и системный блок

2.

Системный блок — это элемент персонального компьютера, который защищает компоненты компьютера

Периферийные устройства – это любые дополнительные и вс устройства, которые подключаются к ПК для расширения его функциональных возможностей

Устройства ввода — периферийное оборудование, предназначенное для ввода данных или сигналов в компьютер или в другое электронное устройство во время его работы.  

Плоттер — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт и другой графической информации на бумаге размером до A0 или кальке.

Кэш микропроцессора — кэш (сверхоперативная память), используемый микропроцессором компьютера для уменьшения среднего времени доступа к компьютерной памяти. Является одним из верхних уровней иерархии памяти.

3.

Диск С – 7 класс – домашнее задание – графика – рыбка.png

4.

Операционная система Сервисные программы Инструментальные программы Программы технического обслуживания компьютера

Объяснение:

4,6(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ