Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Блок-схема: Как сделать нумерацию блоков Здравствуйте! Подскажите, пожалуйста какая блок-схема более правильная подходит к моей программе? И подскажите, как сделать нумерацию блоков-никак не пойму.. Program laba; Uses crt; Const n=8; Type mas=array of real; Var A,B,C:mas; https://www.cyberforum.ru/ pascal/ thread1374524.html Pascal Сформировать новое множество по правилу
Даны три множества X1, X2, X3, содержащие целые числа из диапазона . Сформировать новое множество Y = (X1UX2) \ (X2UX3), из которого выделить подмножество чисел, кратных 3. В общем написал программу, вроде бы все правильно, проверил несколько раз, может я ошибаюсь? Если я ошибаюсь прошу вас помочь исправить мне эту тупую и нелепую ошибку. Решил написать программу, что бы числа нужно...
Pascal Рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию Массив содержит план изготовления продукции на каждый из 12 месяцев года в виде: цех, участок, деталь, план, код месяца. Взять из справочника по коду месяца информацию о количестве рабочих дней в этом месяце, рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию в целом на год. https://www.cyberforum.ru/ pascal/ thread1374342.html Pascal Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17” Нужно дописать прогу . Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17”. program laba15; uses crt; const M=15; type t=record Fio:string ; ima: string; Otch: string; Ylica:string ; dom:integer; https://www.cyberforum.ru/ pascal/ thread1374338.html
Pascal Найти разницу двух комплексных чисел
Помогите пожалуйста! Задано две записи Z1 и Z2, причем поле Re каждого из них - настоящая часть комплексного числа, а поле lm каждого из них - мнимая часть комплексного числа. Найти разницу Z1-Z2 двух комплексных чисел, причем обращение к переменным Z1 и Z2 необходимо выполнить с помощью типизированных указателей. Спасибо большое)*
Pascal Создание системы меню Помогите пожалуйста сделать лаб роб! ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Вывести на экран монитора систему меню, расположенную горизонтально или вертикально. Перед выводом системы меню необходимо вывести заставку. 2. В любой момент времени должен быть выбран только один элемент меню, который должен выделяться с помощью другого цвета, повышенной или пониженной интенсивности свечения,... https://www.cyberforum.ru/ pascal/ thread1374300.html
Pascal Нарисовать звезду Program Rotation and Reflection; uses Crt, Graph; var gd, gm: Integer; par: array of real; ribs: array of integer; i: integer; ch: char; corner : real; https://www.cyberforum.ru/ pascal/ thread1373968.html Pascal Составить программу, которая находит максимальное и минимальное значения элементов в массивах
Составить программу, которая находит максимальное и минимальное значения элементов в массивах А(M), B(N), C(K). Нахождение максимального и минимального значений элементов массива оформить в виде подпрограммы.
Pascal В одномерном массиве найти минимальный по модулю элемент и количество элементов, кратных 5 https://www.cyberforum.ru/ pascal/ thread1373783.html
В одномерном массиве Х, состоящем из N целых элементов, вычислить: a) минимальный по модулю элемент; b) количество элементов, кратных 5.
Pascal Составить программу вычисления координат вектора https://www.cyberforum.ru/ pascal/ thread1373779.html
Составить программу вычисления координат вектора с=2а+3b, если заданы векторы a(a1,a2); b(b1,b2). Вычисление координат оформить в виде подпрограммы-процедуры.
Pascal Проверить, является ли четырёхугольник квадратом
Составить программу, которая для четырёхугольника, заданного координатами своих вершин (x1, y1), (x2, y2), (x3, y3), (x4, y4) проверяет, является ли он квадратом. Вычисление длин отрезков оформить в виде функции по известной формуле: d=\sqrt{(x_1-x_2)^2+(y_1-y_2)^2}
Pascal Составьте программу вычисления числа сочетаний из N по М Составьте программу вычисления числа сочетаний из N по М. Число сочетаний определяется по формуле: Вычисление факториала оформить в виде функции. C{M \atop N}=\frac{N!}{M!(N-M)!} где N! = 1 ∙ 2 ∙ 3 ∙ ... ∙ N. https://www.cyberforum.ru/ pascal/ thread1373774.html
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,589
Записей в блоге: 1
15.02.2015, 08:37 0

В списке L с каждой группы подряд равных элементов оставить только один элемент - Pascal - Ответ 7228981

15.02.2015, 08:37. Показов 2805. Ответов 1
Метки (Все метки)

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

Решение

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
94
type
  List = ^Zveno;
  //тип список
  Zveno = Record
    next: List;//указатель на следующий элемент
    info: integer;//поле данных
  End;
 
var
  p, l, q1, temp: List;
  m, n, i, k : integer;
 
begin
  repeat
    write('Количество элементов: ');
    readln(n);
  until (n > 0);
  writeln('Введите ', n, ' элементов');
  for i := 1 to n do
  begin
    read(m);//вводим число
    //если список пустой,то
    if l = nil then
    begin
      //создаём голову списка
      new(l);
      p := l;
      //указатель на следующий элемент ставим nil (т.е. никуда не указывает)
      p^.Next := nil;
      //и заносим данные
      l^.info := m;
    end
    else
    begin
      //выделяем указатель на следующий элемент
      new(p^.Next);
      //устанавливаем указатель p на только что созданный элемент списка
      p := p^.Next;
      //заносим данные в новое звено списка
      P^.Info := m;
      //указатель на следующий элемент = Nil
      p^.Next := nil;
    end;
  end;
  p := l;//в p заносим голову списка,чтобы начать просмотр списка сначала
  temp := p;
  //пока не конец списка делаем
  while p^.next <> nil do
  begin
    k := 0;
    //если очередной звено списка имеет элемент равный нулю то
    if (p^.Info = p^.next^.info) then
    begin
      //если это начало списка,то
      if (p = l) then
      begin
        //смещаем указатель начала списка на 1 позицию вправо
        l := p^.next;
        q1 := p;
        //переходим к следующему элементу списка
        p := p^.next;
        //удаляем элемент списка
        Dispose(q1)
      end
      else
      begin
        q1 := p;//запоминаем указатель на удаляемый элемент
        //в temp хранится предыдущей элемент списка
        //т.е. элемент находящийся до элемента p
        //и указатель на следующий элемент в temp ставим на следующий элемент в p
        //т.е. теперь temp^.next ссылается на p^.next (на следующий элемент за удаляемым)
        temp^.next := p^.next;
        p := temp;//восстанавливаем список
        Dispose(q1);//уничтожаем элемент
      end;
      k := 1;
    end;
    //если k=0 значит нужно перейти к следующему элементу списка
    if k = 0 then 
    begin
      temp := p;//в temp запоминаем предыдущий элемент списка
      p := p^.next;//переходим к следующему элементу
    end;
  end;
  p := l;
  while p <> nil do
  begin
    write(p^.Info, ' ');
    q1 := p;
    p := p^.Next;
    Dispose(q1);
  end;
  readln;
end.


Вернуться к обсуждению:
В списке L с каждой группы подряд равных элементов оставить только один элемент Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2015, 08:37
Готовые ответы и решения:

Из каждой группы равных между собой элементов нужно оставить только один
1.Дан целочисленный массив а1,а2,...аn,среди элементов которого могут быть равные. Из каждой группы...

Из каждой группы подряд идущих одинаковых элементов оставить только один
Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов...

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...

1
15.02.2015, 08:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2015, 08:37
Помогаю со студенческими работами здесь

В списке L из каждой группы подряд идущих элементов оставляет только один
составить программу, которая в списке L из каждой группы подряд идущих элементов оставляет только...

В списке L из каждой группы подряд идущих равных элементов оставить только один элемент
В списке L из каждой группы подряд идущих равных элементов оставить только один элемент Например,...

В списке L из каждой группы идущих подряд равных элементов оставить только один
опишите программу которая в списке L из каждой группы идущих подряд равных элементов оставляет...

В списке L из каждой группы подряд идущих элементов с равными значениями оставить только один
В списке L из каждой группы подряд идущих элементов с равными значениями оставить только один.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru