Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Как сделать, что бы программа создавала несколько графических окон, и что бы можно было переключаться между ними с помощью "пробела"? https://www.cyberforum.ru/pascalabc/thread1063745.html
Здравствуйте, как сделать, что бы программа создавала несколько графических окон, и что бы можно было переключаться между ними с помощью "пробела"?
Pascal ABC Задан текст, нужно посчитать число слов в последовательности
помогите пжл. завтра экзамен, не успеваю 2. Задан текст и нужно посчитать число слов в последовательности.
Задана последовательность чисел, нужно отрицательные числа переписать в начало, а положительные в конец, 0 - в середине Pascal ABC
помогите пжл. завтра экзамен, не успеваю 1. Задана последовательность чисел, нужно отрицательные числа переписать в начало, а положительные в конец, 0 должен быть в середине.
Pascal ABC Задан текст, определить самую часто встречающуюся и самую редко встречающиеся буквы помогите пжл. завтра экзамен, не успеваю 3. Задан текст определить самую часто встречающуюся и самую редко встречающиеся буквы. https://www.cyberforum.ru/pascalabc/thread1063651.html
Pascal ABC Требуется подсчитать число пар простых чисел-близнецов ,не больших заданного числа N. С использованием функций https://www.cyberforum.ru/pascalabc/thread1063440.html
Среди простых чисел встречаются числа-близнецы(числа,разность между которыми равна 2,например,3 и 5,17 и 19....)Требуется подсчитать число пар простых чисел-близнецов ,не больших заданного числа N.
Поменять местами максимальный и минимальный элементы файла Pascal ABC
Используя очередь, написать процедуру или функцию, которая меняет местами максимальный и минимальный элементы файла.
Pascal ABC Диаграммы!
Помогите построить диаграмму.
Pascal ABC Создание программы с выбором меню на ввод и вывод данных Суть: пишем программу, которая выводит меню: 1 Ввод, 2 Вывод, 3 выход. Вводим данные, можно пробегать сколько угодно раз, потом запускаем вывод, он выводит все строки и сумму. Проблема в следующем.... https://www.cyberforum.ru/pascalabc/thread1063373.html
Pascal ABC Точка с целочисленными координатами первого квадранта https://www.cyberforum.ru/pascalabc/thread1063300.html
Точка с целочисленными координатами первого квадранта получается 0,1,2... слева направо и снизу вверх таким образом, что очередной точке приписывается минимальное число, отсутствующее в вертикали и...
Pascal ABC Создать новый текст, в котором слова предложений Дан текст. Создать новый текст, в котором слова предложений исходного текста, содер- жащего слово максимальной длины, упорядочены по возрастанию длин слов. https://www.cyberforum.ru/pascalabc/thread1063165.html
Deathless
0 / 0 / 0
Регистрация: 17.10.2013
Сообщений: 49
0

Сформировать список Р, включив в него элементы списка Р1, которые не входят в список Р2

06.01.2014, 02:52. Просмотров 495. Ответов 1
Метки (Все метки)

Как написать функцию или процедуру, которая формирует список Р, включив в него по одному разу элементы, которые входят в список Р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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
type
TypeOfElements=string;
ListPointer=^MyList;
        MyList = record
                Value: TypeOfElements;
                Next, Previous: ListPointer;
        end;
var
Head, Tail: ListPointer;
NewElement1,NewElement2, ElementE, InsertElement:TypeOfElements;
n,m,j:integer;
procedure ListInitialization(var Head, Tail: ListPointer);
begin
     Head:=nil;
     Tail:=nil;
end;
 
procedure AddElementsToList1(var Head, Tail: ListPointer; var NewElement1:TypeOfElements);
var
q:ListPointer;
i:integer;
begin
     for i:=1 to n do
     begin
          New(q);
          writeln('Enter element');
          readln(NewElement);
          q^.Value:=NewElement;
          if Head = nil then
          begin
               q^.Previous:=nil;
               Head:=q;
               end
          else
          begin
               q^.Previous:=Tail;
               Tail^.Next:=q;
          end;
          q^.Next:=nil;
          Tail:=q;
     end;
end;
procedure PrintList1(var Head:ListPointer);
var
q:ListPointer;
begin
writeln('List:');
q:=Head;
if q=nil then writeln('Is empty')
else repeat
           writeln(q^.Value,'');
           q:=q^.Next
     until q=nil;
writeln;
end;
procedure AddElementsToList2(var Head, Tail: ListPointer; var NewElement2:TypeOfElements);
var
q:ListPointer;
i:integer;
begin
     for i:=1 to n do
     begin
          New(q);
          writeln('Enter element');
          readln(NewElement);
          q^.Value:=NewElement;
          if Head = nil then
          begin
               q^.Previous:=nil;
               Head:=q;
               end
          else
          begin
               q^.Previous:=Tail;
               Tail^.Next:=q;
          end;
          q^.Next:=nil;
          Tail:=q;
     end;
end;
procedure PrintList2(var Head:ListPointer);
var
q:ListPointer;
begin
writeln('List:');
q:=Head;
if q=nil then writeln('Is empty')
else repeat
           writeln(q^.Value,'');
           q:=q^.Next
     until q=nil;
writeln;
end;


Вернуться к обсуждению:
Сформировать список Р, включив в него элементы списка Р1, которые не входят в список Р2
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2014, 02:52
Готовые ответы и решения:

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

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

Составить программу, которая формирует список L, включив в него по одному разу элементы, которые входят в список L1 но не входят в список L2
Составить программу, которая формирует список L, включив в него по одному разу элементы, которые...

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

Сформировать список Р из элементов, которые входят хотя бы в один из списков Q и G
Как написать функцию или процедуру, которая формирует список Р, включив в него по одному разу...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.