Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Поиск расстояния между максимумами функции Написать программу где мы указываем функцию(write...), такого плана как на рисунке. И нужно найти расстояние между 2 любыми соседними красными точками, т.е. максимумами в определенных областях. В... https://www.cyberforum.ru/ pascal/ thread226242.html	Pascal где ошибка?) Program dv; var s1:integer; s2:string; begin s1 := StrToInt(Edit1.Text); s2:=''; repeat if (s1 mod 2) > 0 then s2:='1'+s2
Pascal Вставить число в заданную возрастающую последовательность Написать программу, которая вставляет число k в заданную возрастающую последовательность таким образом, что в результате полученная последовательность также остается полностью возрастающей. Решить... https://www.cyberforum.ru/ pascal/ thread226124.html	Pascal Поиск (напечатать содержание) и подсчет количества документов https://www.cyberforum.ru/ pascal/ thread226119.html Дана информация о десяти документах: вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко)....
Pascal Составить блок-схему и программу на языке Pascal Составить блок-схему и программу на языке Pascal: Определить, каких элементов положительных или отрицательных, больше в последовательности a1, a2, ..., аn. помогите пожалуйста, а то я в этом...	Pascal Сортировка одномерного массива https://www.cyberforum.ru/ pascal/ thread226089.html Заполнить массив из 10 элементов случайными числами в интервале от 0 до 10 и отсортировать первую половину по возрастанию, а вторую по убыванию.
Pascal операторы цикла Помогите ! Правильно ли записаны на Паскале операторы цикла ? Если "Да", то подсчитайте,сколько раз выполняется тело цикла. Если "Нет", объясните ошибки a) i:=90;repeat i:=i-1 until i<=0; б)... https://www.cyberforum.ru/ pascal/ thread226030.html	установить значения Pascal Помогите пожалуйста ! Установите значения следующих выражений: а) delete(s,length(s) mod 2,1) при s='12345'; б) copy(s,i,j-i+1) при s='123456789' ,i=3, j=7 в)...
Pascal Найти ошибки в следующей программе Помогите пожалуйста! Найдите и объясните ошибки в следующей программе: program B; const k=true; var x:real; begin read(x); writeln(odd(x)=k) end https://www.cyberforum.ru/ pascal/ thread226010.html	Pascal Найти сумму диагоналей матрицы https://www.cyberforum.ru/ pascal/ thread226003.html program Lab10_13; uses crt; type mas=array of integer; var n,a,b: integer; m:mas; Procedure GenerMas(n:integer; a,b:integer; var m:mas); var i,j:integer; begin randomize;
Информатика 1 курс Паскаль Pascal Пожалуйста помогите немогу сделать 1 курс!Мне нужно переделать эту программу так чтоб она работала через функции.Подрлбное условие ниже. Program Lab_4; uses crt; var a : array of longint; ...	Pascal Матрицы. Не могу найти ошибку. Для каждой строки матрицы А(65) и В (48) вычислить сумму и произведение отрицательных элементов. Для каждой матрицы так же определить количество строк, в которых сумма отрицательных элементов... https://www.cyberforum.ru/ pascal/ thread225902.html

Pavel_4a-4anax

0 / 0 / 1

Регистрация: 09.01.2011

Сообщений: 7

09.01.2011, 19:35 [ТС]

Из каждой группы равных между собой элементов нужно оставить только один - Pascal - Ответ 1272183

09.01.2011, 19:35. Показов 1548. Ответов 2

Метки (Все метки)

Сообщение было отмечено Pavel_4a-4anax как решение

Решение

Прошу прощения. Язык Pascal

Добавлено через 17 минут
Накидал процедуру для первого пункта:

Pascal

procedure zamena (var a,b:Tmas; n:integer);
var i,j: integer;
 
begin
     i:=1;
while i<=n do
 begin
  j:=i+1;
  while j<=n do
   begin
    if a[j]=a[i] then
     begin
      a[j]:=0;
       n:=n-1;
 
      end
     else j:=j+1;
end;

для второго:

Pascal

procedure Zamena (var A:MAC2; n:integer);
          var k,i,j:integer;
          begin
 k:=n;
 for i:=1 to n do
 
begin
a[i,1]:=a[i,k];
a[i,k]:=a[i,1];
i:=i+1;
k:=k-1;
end;
end;

но че-то не то

Вернуться к обсуждению:
Из каждой группы равных между собой элементов нужно оставить только один Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.01.2011, 19:35

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.01.2011, 19:35

Помогаю со студенческими работами здесь

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

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

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

Наверх