Дан список студентов (сами вводим его), нужно данный список разбить на 2 списка, в 1-ом все с фамилией на Д, во 2-ом все остальные

08.01.2014, 15:17. Показов 580. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Ребят, помогите пожалуйста сессия горит. Задание такое: Дан список студентов (сами вводим его), нужно данный список разбить на 2 списка, в 1-ом все с фамилией на Д, во 2-ом все остальные. Вот наработки

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Program spisok;
uses CRT;
Type Re=^TypElems;
       TypElems=Record
        M:String[20];
        S:re
      End;
Type Pe=^TypElem;
        TypElem=Record
        T:String[20] ;
        P:pe;
        end;
Type Me=^TypsElem;
        TypsElem=Record
        F:String[20] ;
        H:me;
        end;
 
Var Elem,Beg:Pe;
D:re;
K:me;
Ch: Char;
Begin // определение адреса начала и его сохранение//
New(Elem);
Beg:=Elem;
Elem^.P:=Elem; //ввод данных м занесение в список//
 
While Elem^.P<>Nil Do
Begin
Writeln ('Введите фамилию');
Readln(Elem^.T);
Write('продолжить ввод?(Д/Н)');
readln (Ch);
If (Ch='Н') or (Ch='н')
Then
 
Elem^.P:=nil
else
begin
 New(Elem^.P);
 Elem:=Elem^.P
 end
 end;
 Elem:=Beg;
 repeat
 if Elem^.T[1]='Д' Then
begin
New (D);
D^.M:=Elem^.T
end
else
begin
New (K);
K^.F:=Elem^.T
end;
  Elem:=Elem^.P;
   Writeln (D^.S);
 Writeln ('_____________________');
 Writeln (K^.H);
 
 Until Elem=Nil;
 
 end.

Работает на Pascal ABC на ABC.Net не хочет. Заранее благодарю.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

08.01.2014, 15:17

Ответы с готовыми решениями:

Создать файл - список студентов группы, отобразить на форме список сту-дентов с фамилией на заданную букву
Создать файл - список студентов группы, отобразить на форме список сту-дентов с фамилией на заданную букву

Дан список чисел, составить все подмножества этого списка
Дан список чисел, составить все подмножества этого списка. Нашел код среди тем, но когда запускаю, выходит ошибка. Кто знает в чем дело? ...

Все отрицательные элементы массива списка перенести в его начало, а все остальные – в конец
Не понимаю как написать. Задача: Реализовать функцию: в которой все отрицательные элементы массива списка перенести в его начало,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

08.01.2014, 15:17

Помогаю со студенческими работами здесь

Преобразовать список таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные
Подскажите/помогите, не знаю как реализовать в коде. Поидее, мне нужно найти нуль, затем передвинуть его вначало и остальные цифры сдвинуть...

Дан список чисел. Выведите все элементы списка, которые больше предыдущего элемента
Дан список чисел. Выведите все элементы списка, которые больше предыдущего элемента. class Program { static int pol() ...

Список: в конец непустого списка L добавить все его элементы, располагая их в обратном порядке
Пусть L обозначает кольцевой двунаправленный список с заглавным звеном.Используя функцию или процедуру в конец непустого списка L добавить...

Дан список студентов. Заполнить его : имя и есть ли комп. Подсчитать сколько студентов имеют комп.(используя структуру)
только начал проходить эту тему. по алгоритму все вроде правильно. не понимаю почему не работает. #include <stdio.h> #include...

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

Наверх