Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Dogs
0 / 0 / 0
Регистрация: 29.03.2015
Сообщений: 21
1

Вставить в упорядоченную последовательность элемент A так, чтобы сохранился порядок

24.05.2015, 12:16. Просмотров 156. Ответов 0
Метки нет (Все метки)

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
Program Massive_1;
uses crt;
const N=10;
type Mas=array[1..N] of integer;
 var 
  Line:Mas; 
  
Procedure Inp;
 var i:integer;
 begin
 randomize;
 writeln('исходный массив:');
 for i:=1 to N do
 begin
  Line[i]:=random(20)-10;
  write(Line[i]:5,'(',i,')');
  end;
  writeln(' <---');
 end;
 
 Procedure Delete;
 var 
 i,k,b,j,x:integer;
 begin
 write('Введите число b для удаления: ');
 readln(b);
  k:=0;
  for i:=1 to N do 
  if Line[i]<>b then 
   begin
  k:=k+1; Line[k]:=Line[i];
  end;
  writeln('Преобразованный массив: ');
    for j:= 1 to k-1 do
    for i:=1 to k-1 do
     if Line[i]>Line[i+1] then begin
    x:=Line[i];
    Line[i]:=Line[i+1];
    Line[i+1]:=x;
    end;
    writeln;
     for i:= 1 to k do
     write(Line[i]:5,'(',i,')');
    writeln;
   end;
  Procedure vstavka;
  var a,i,k:integer;
  begin
  write('введите число для вставки');
  readln(a);
  if a>=Line[k-1] then Line[k]:=a
else
 begin
  i:=1;
  k:=0;
  while(i<=N-1)and(k=0)do
  if Line[i]>=a then k:=i else i:=i+1;
  for i:=N downto k+1 do
  Line[i]:=Line[i-1];
  Line[k]:=a;
 end;
writeln('Сортировка и вставка числа ',a);
for i:=1 to n do
write(Line[i]:4);
end;
 begin
 Inp;
 Delete;
 vstavka;
 readln;
 end.
В одномерном массиве удалить элемент со значением B, упорядочить массив по возрастанию, а затем вставить в упорядоченную последовательность элемент A так, чтобы сохранился порядок следования.

Когда вставляю А порядок не соблюдается. Помогите, пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2015, 12:16
Ответы с готовыми решениями:

Вставить элемент в массив так, чтобы он сохранил упорядоченность
Дан одномерный числовой массив, упорядоченный по возрастанию размером N и число...

Вставить в последовательность число так, чтобы последовательность осталась неубывающей.
Дана последовательность действительных чисел а1&lt;=а2...&lt;=an. Вставить в нее...

Массив: Удалить из массива элемент с номером k и вставить элемент, равный p, так, чтобы не нарушилась упорядоченность.
Дано: a:array of real;p:real;k:integer;(a&lt;=a&lt;=⋯&lt;=a,0&lt;k≤n). Удалить из a...

Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей.
Помогите найти ошибку: Задание: Дана последовательность действительных чисел...

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2015, 12:16

Что добавить в код, чтобы текст в окне вывода появился в файле и сохранился там?
что добавить в код чтобы текст в окне вывода появился в файле и сохранился там?...

Образовать последовательность чисел так, чтобы она тоже была неубывающей.
Даны две последовательности а1+а2+….+аn и b1+b2+…+bm Образовать из них...

Заполнить массив так, чтобы значения элементов образовывали убывающую последовательность
1 Заполнить массив из восьми элементов таким образом, чтобы значения элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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