Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Анимация робота https://www.cyberforum.ru/turbo-pascal/thread1154094.html
Здравствуйте уважаемые пользователи. Нам задали нарисовать робота и задать ему анимацию. Нарисовать я его смог, но вот с анимацией возникли некоторые проблемы. Пожалуйста помогите мне сделать для...
Turbo Pascal Упорядочить массив в порядке неубывания
Помогите пожалуйста с заданием(( Дан массив a: array of integer. Упорядочить элементы массива а по неубыванию в соответствии со следующим критерием: элемент x считается «больше» элемента y, если...
Вывести значение суммы Turbo Pascal
.срочно надо. решить 5 и(или) 6 задание.остальные не нужны.помогите
Turbo Pascal Напечатать строку образованную символами,расположенными в 4 углах символьного массива (в любом порядке) Напечатать строку образованную символами,расположенными в 4 углах символьного массива(в любом порядке) Добавлено через 1 минуту Помогите с контрольной срочно пожалуйста! https://www.cyberforum.ru/turbo-pascal/thread1153957.html
Turbo Pascal Определить массив, содержащий наибольшее количество нулей. Процедуры. https://www.cyberforum.ru/turbo-pascal/thread1153925.html
Дан массив L(6),D(7), X(8),Y(9). Определить массив содержащий наибольшее количество нулей .Для подсчета нулей среди элементов массива использовать подпрограмму.
Turbo Pascal Какая получится блок схема? Организовываю деление через вычитание
Берем 99-2, вычитаем в цикле пока не будет меньше 1 Получается 49 циклов и в остатке 1 Далее берем количество циклов 49 49-2 получаем 24 цикла в остатке 1 24-2 получаем 12 циклов в...
Turbo Pascal Рекурсивные функции. Найти значение X в степени Y
Здравствуйте. Требуется помощь. По лабораторной задали написать программы с рекурсивными функциями, но, я всё никак не пойму, где тут и как её использовать. Кому не трудно, помогите пожалуйста...
Turbo Pascal Написать функцию, которая находит объём правильной четырехугольной пирамиды по заданной апофеме и высоте Написать функцию, которая находит объём правильной четырехуголь- ной пирамиды по заданной апофеме и высоте. Пожалуйста помогите. Нужно написать через функцию. https://www.cyberforum.ru/turbo-pascal/thread1153714.html
Turbo Pascal Оформить код с использованием процедур и функций https://www.cyberforum.ru/turbo-pascal/thread1153612.html
Помогите плиз оформить (решить) с помощью procedure и function. program ; type massA=array of integer; massB=array of real; var i,j,N,M:integer; A:massA; B:massB; fr:text;
Turbo Pascal Определить сколько из К чисел заканчиваются четной цифрой вводится К четырехзначных чисел. определить сколько из них заканчиваются четной цифрой.(описать процедуру,которая определяет четность последней цифры числа) https://www.cyberforum.ru/turbo-pascal/thread1153566.html
dizzzel
0 / 0 / 1
Регистрация: 07.12.2013
Сообщений: 38
0

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

22.04.2014, 14:56. Просмотров 731. Ответов 2
Метки (Все метки)

Сформировать список L, включив в него по одному разу элементы, которые входят одновременно в оба списка L1 и L2.
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
type
  Tlist=^Rlist;
  Rlist=record
    x:integer;
    y:Tlist;
    end;
var
  a,b,c,d,f,g:Tlist;
  z:integer;
begin
 
  {ñîçäàåì ñïèñîê}
  a:=nil;
  for z:=1 to 5 do
    begin
      new(b);
      b^.x:=random(9);
      b^.y:=a;
      a:=b;
    end;
 
    c:=nil;
  for z:=1 to 5 do
    begin
      new(d);
      d^.x:=random(9);
      d^.y:=c;
      c:=d;
    end;
  {âûâîäèì åãî}
  while b<>nil do
    begin
      write(b^.x:3);
      b:=b^.y;
    end;
   a:=b;
  writeln;
  while d<>nil do
    begin
      write(d^.x:3);
      d:=d^.y;
    end;
   writeln;
   c:=d;
repeat
while a{^.y}<>nil do
      begin
       while c{^.y}<>nil do
        begin
            if a{^.x} = c{^.x} then
        new(f);
      f^.x:=a^.x;
      f^.y:=a^.y;
      end;
    end;
 until f=nil;
   while f<>nil do
    begin
      write(f^.x:3);
      f:=f^.y;
    end;
   write( f);
end.


Вернуться к обсуждению:
Сформировать список L, включив в него по одному разу элементы, которые входят одновременно в оба списка L1 и L2. Ошибка
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2014, 14:56
Готовые ответы и решения:

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

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

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

Напечатать гласные, которые входят в текст по одному разу и согласные, которые не входят в текст по одному разу
Друзья, помогите решить следующую задачу: Дан произвольный текст. Напечатать в алфавитном...

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

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