Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычислить радиус основания цилиндра с меньшей высотой. https://www.cyberforum.ru/pascal/thread155145.html
Два цилиндра с различной высотой имеют одинаковый объем. Вычислить радиус основания цилиндра с меньшей высотой, если известны объем, высота и радиус цилиндра с наибольшей высотой и высота второго...
Pascal колличество разрядов для любого целого числа(допустимого для данного типа)
Написать программу, определяющую количество разрядов для любого целого числа (допустимого для данного типа). Написать функцию, подсчитывающую количество цифр в числе (входной параметр:целое число)....
Триангуляция (функция самопересечения примых) Pascal
В программе нужно было прописать функцию самопересечения, проверяющую многоугольник на самопересечение... с математикой вроде всё правильно, но вот в алгоритме что-то не идет... В чём ошибка??? ...
Pascal Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC Помогите пожалуйста написать программы с процедурой: 1) Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC. Используя процедуру определения гипотенузы по двум катетам. (< BAC и < BCD = 90... https://www.cyberforum.ru/pascal/thread155060.html
Pascal Вычислить выражение. https://www.cyberforum.ru/pascal/thread155050.html
ВЫчислить: \mu =kT\ln \frac{{h}^{3}n{(2k)}^{3}}{2{(2kmKT)}^{\frac{3}{2}}} k=1.38*{10}_{-16} h=6.62*{10}_{-27} n={10}_{23} m=9.1*{10}_{-28} T= 4.2; 8; 77; 133 ЗЫ Чтото напортачил я со...
Найти максимальный по модулю элемент матрицы Pascal
Задана матрица размером n × m. Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й...
Выдать полное название комплекта шаров Pascal
Здравствуйте. уже неделю бьюсь, всё никак не могу осилить, помогите кому не лень;) Задание 1: Составьте программу, которая запрашивает цвет шаров (один из символов: 'ж' — жёлтый, 'к' — красный,...
Pascal Определить площадь области Написать программу, определяющую площадь области, ограниченной описанным вокруг окружности квадратом. Вершины квадрата заданы координатами на координатной плоскости. Написать функцию, определяющую... https://www.cyberforum.ru/pascal/thread154982.html
Pascal информационная отработка https://www.cyberforum.ru/pascal/thread154936.html
помогите пожалуйста, у нас информационная отработка, нужно решение 8-ми задач 1. Методом Гаусса решить системы линейных алгебраических уравнений Ax=b. Сравнить с точным решением. 2. Найти...
Pascal Объясните, пожалуйста, что это за процедура "unpack"? объясните пожалуйста ,что это за профедура repeat unpack (q^.key,buf,1); https://www.cyberforum.ru/pascal/thread154883.html
Cover
1 / 1 / 0
Регистрация: 23.07.2010
Сообщений: 5
02.08.2010, 18:13  [ТС] 0

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

02.08.2010, 18:13. Просмотров 7857. Ответов 8
Метки (Все метки)

Ответ

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
program Lab_10; uses crt;
 
type
nodes=^node;
node=record
   data: integer;
   left, right: nodes;
end;
 
var
tree, left, right: nodes;
n, x, y, z, i:integer;
key: char;
 
procedure add (var tree: nodes; x: integer);
begin
   if tree=nil then
      begin
      new (tree);
      tree^.data :=x;
      tree^.left :=nil;
      tree^.right:=nil;
      exit;
      end;
   if x=y then add (tree^.left, y);
   if x=z then add (tree^.right,z);
end;
 
procedure lscan (tree: nodes);
   begin
   if tree=nil then exit
   else
   write(' ', tree^.data, ';');
   lscan (tree^.left);
   end;
 
procedure rscan (var tree: nodes);
   begin
   if tree=nil then exit
   else
   write(' ', tree^.data, ';');
   rscan (tree^.right);
   end;
 
begin tree:=nil;
   repeat; clrscr; textcolor(1); writeln;
      writeln('  1).Создание cписков. ');
      writeln('  2)....Обзор списков. ');
      writeln('  3)............Выход. '); writeln;
      write  ('  Выберите действие: '   );
      readln (key); clrscr;
      case key of
   '1' : begin
         writeln; writeln ('  Список 1. ');  writeln;
         write ('  Количество элементов: '); readln (n); writeln;
         for i:=1 to n do
            begin
            write ('  Введите элемент - ');
            readln (y); add (tree, y);
            end;
         writeln; writeln ('  Список 2. ');  writeln;
         write ('  Количество элементов: '); readln (n); writeln;
         for i:=1 to n do
            begin
            write ('  Введите элемент - ');
            readln(z); add (tree,z);
            end;
         end;
   '2' : begin
         writeln; write ('  Список 1: ');
         if tree<>nil then
         lscan (tree); writeln;
         writeln; write ('  Список 2: ');
         if tree<>nil then
         rscan (tree^.right); writeln;
         writeln; write ('  Жми " Enter " ... '); readln;
         end;
   '3' : exit;
      end;
   until (key<'1') and (key>'4');
end.
... такой ввод - вывод допустим ???

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

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

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

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

Сформировать новый массив, включив в него те элементы первого массива, которых нет во втором
Даны два массива чисел. Расположить их элементы по возрастанию. Сформировать новый массив, включив...

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

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