Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
Schubich
1 / 1 / 1
Регистрация: 02.06.2010
Сообщений: 24
1

Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей.

02.06.2010, 11:22. Просмотров 2452. Ответов 1
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a: array [0..n] of real; 
i,k: integer; 
b: real; 
begin 
writeln ('введите число эл-ов массива'); 
readln (n); 
writeln ('введите массив формата a1<=a2<=...<=an'); 
for i:=0 to n-1 do readln a[i]; 
writeln ('введите число b'); 
readln (b); 
k:=0; 
while (k>n) and (a[k]>=b) do k:=k+1;
for i:=n downto k+1 do a[i]:=a[i-1]; 
a[k]:=b; 
for i:=0 to n do writeln (a[i]); 
readln; 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 11:22
Ответы с готовыми решениями:

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

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

Вставить действительное число в последовательность
Дана последовательность действительных чисел a1 ≤ a2 ≤ . . . ≤ an . Вставить...

Дана последовательность чисел. Требуется вычеркнуть из нее минимальное количество чисел так, чтобы оставшиеся шли в порядке возрастания.
Даны N целых чисел X1, X2, ..., XN. Требуется вычеркнуть из них минимальное...

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

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
02.06.2010, 12:13 2
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
 uses crt;
 const n=6;
 var mas: array[1..n] of integer; i,j: byte;
     chislo: integer; usl: boolean;
 begin
  randomize;
  clrscr;
 
  writeln('введите значения элементов исходного массива: ');
  for i:=1 to n-1 do
   begin
    write('mas[',i,'] = ');
    readln(mas[i]);
   end;
  writeln;
  i:=2;
 
  if mas[i]>=mas[i-1] then
   begin
    usl:=true;
    while (usl=true) and (i<=n-1) do
     begin
      if mas[i] < mas[i-1] then usl:=false;
      inc(i);
     end;
   end;
 
  if usl=false then writeln('массив не является неубывающим')
  else
   begin
    i:=1;
    write('введите значение дополнительного коэффициента: ');
    readln(chislo);
    writeln;
    while (chislo>=mas[i]) and (i<n) do
     inc(i);
    for j:=n downto i do
     mas[j]:=mas[j-1];
    mas[i]:=chislo;
    writeln('результат: ');
    for i:=1 to n do
     writeln('mas[',i,'] = ',mas[i]);
   end;
 end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 12:13

Добавить к последовательности наименьшее число символов так, чтобы последовательность стала палиндромом
Даны натуральное число N и символы S,...,S.Преобразовать последовательность...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без...

Определить является ли последовательность неубывающей
Помогите пожалуйста решить задачу через repeat:Дана последовательность не...


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

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

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