Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Если данный набор образует убывающую последовательность, то вывести 0 https://www.cyberforum.ru/ pascal/ thread646533.html
Попрошу полностью решить эти задачки. Спосибо. 2. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае...
Pascal Типизированный файл: Заменить все строки, начинающиеся с гласной буквы на последнюю строку в файле
Дан типизированный файл, содержащий строки. Заменить все строки, начинающиеся с гласной буквы на последнюю строку в файле.
Типизированный файл: Заменить в файле все отрицательные числа нулями Pascal
Дан типизированный файл, содержащий целые числа. Заменить в файле все отрицательные числа нулями. Для решения этой задачи потребуется типизированные файл, который должен быть создан заранее в...
Pascal Найти сумму положительных элементов файла, расположенных до первого нулевого значения Добрый вечер. Помогите пожалуйста с решением задачек на типизированные файлы. Или хотя бы если есть поделитесь примером, как в принципе такие задачи решаются. 2) Дан файл целых чисел. Найти... https://www.cyberforum.ru/ pascal/ thread645992.html
Pascal Добавить после каждого положительного числа его квадрат, нули удалить https://www.cyberforum.ru/ pascal/ thread645991.html
Здравствуйте)помогите пож с 2 задачками: -компоненты тип файла целые числа.Добавить после каждого положит числа его квадрат,нули удалить -с помощью модуля:в файле сод инф по...
Написать алгоритм, который определит максимально возможное количество задач Pascal
Описание: Петя и Вася предложили одноклассникам новый способ решения домашнего задания: поскольку каждый из учеников мог быстро решать лишь определённые виды заданий, а другие понимали плохо, то...
Pascal Удаление строки с введенным числом (delline не срабатывает)
Пишу простую программу: 1) Пользователь вводит число. 2) Программа выдает строку с текстовым значением введенного числа. Все работает, но Важно, чтобы при последовательном введении чисел -...
Pascal Выбор литературы для обучения Я учусь в 11 классе,решил поступать на програмиста но думаю что в дальнейшем не мешало бы знать програмирование,ранее не увлекался этим днлом так что я вообще не знаком с паскаль,может дадите совет... https://www.cyberforum.ru/ pascal/ thread645284.html
Pascal Алгоритм Штрассена. Найти ошибку! https://www.cyberforum.ru/ pascal/ thread644546.html
Задача: реализовать на Паскале алгоритм Штрассена. Не могу понять где ошибка. Запускается хорошо, но при выводе полученной матрицы выводит только матрицу 2х2, а все остальное 0. Условие - N - степень...
Pascal Программа получения всех значений функции Составьте программу получения всех значений заданной функции y на заданном промежутке. Вычисление функции f оформите с помощью дополнительной функции пользователя.... https://www.cyberforum.ru/ pascal/ thread644097.html
4294 / 1416 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
05.09.2012, 12:57 0

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

05.09.2012, 12:57. Показов 5824. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Rage_ как решение

Решение

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
uses crt;
const n =10;
type alist=^a;
 a = record
  data: integer;
  next: alist;
 end;
 
 var L,L1,L2: alist;
     b,i: integer;
     s: set of byte;
     
 procedure add(var first: alist; x: integer);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
 procedure incl(l2:alist;var s: set of byte);
 begin
  for i:=1 to n do
   begin
    if not (l2^.data in s) then
     include(s,l2^.data);
     l2:=l2^.next
   end;
 end;
 
 begin
  clrscr;
  randomize;
  l:=nil;
  l1:=nil;
  l2:=nil;
  writeln('Исходные списки L1 и L2: ');
  for i:=1 to n do
   begin
    b:=random(10);
    add(l1,b);
    b:=random(30);
    add(l2,b);
   end;
  list(l1);
  list(l2);
  incl(l2,s);
  for i:=1 to n do
   begin
   if not (l1^.data in s) then
    begin
     include(s,l1^.data);
     add(l,l1^.data);
    end;
   l1:=l1^.next;
   end;
   writeln('Полученный список L: ');
   list(l);
  readln;
 end.


Вернуться к обсуждению:
Составить программу, которая формирует список L, включив в него по одному разу элементы, которые входят в список L1 но не входят в список L2
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.09.2012, 12:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Описать функцию, которая формирует список Common, включив в него элементы, ко-торые входят одновременно в список М1 и М2
Описать функцию, которая формирует список Common, включив в него элементы, ко-торые входят...

Сформировать список L включив в него по одному разу элементы, которые входят в один из списков L1 и L2, но в то же время не входит во второй из них
Добрый вечер! Помогите, пожалуйста, начинающей программистке решить следующую задачу: Разработать...

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

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