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

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

05.09.2012, 12:57. Просмотров 3607. Ответов 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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.09.2012, 12:57

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

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

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

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