Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Суммирование рядов смешанного типа. http://www.cyberforum.ru/pascal/thread19736.html
Здравствуйте,форумчане! Очень нужна помощь в записи условий задачи,программу полностью можно не решать,а только начало.(на языке Паскаль.) Задача следущего характера: а) Решить задачу вычисления...
Pascal Отсортировать элементы матрицы по возрастанию методом обмена Всем привет! Прошу помощи в решении задач: №1 Отсортировать отрицательные элементы всех столбиков матрицы по убыванию при помощи метода отбора. №2 Дана прямоугольная матрица. Отсортировать... http://www.cyberforum.ru/pascal/thread19731.html
Pascal Pascal
Помогите решить очень прошу. Кто какие сможет, за ранее спасибо.
задача "системы счисления" Pascal
Программа должна считывать с клавиатуры число,записанное в одной системе счисления,и выводить на экран это число в записи по другому основанию,например: исходное число - 112D,старое основание -...
Pascal Матрица по схеме http://www.cyberforum.ru/pascal/thread19720.html
---
Pascal Сортировка одномерных массивов. Доброго времени суток:) Столкнулся с проблемой сортировки одномерных массивов) Задача такая: Рассортировать по убыванию все не четные числа одномерного массива с помощью метода "пузырька". ... подробнее
=light=
3 / 3 / 3
Регистрация: 24.12.2008
Сообщений: 15
27.12.2008, 15:43 0

Одномерные массивы. Вставка, удаление элементов массива. Перестановка элементов массива. Сортировка массива методом пузырька

27.12.2008, 15:43. Просмотров 7574. Ответов 1
Метки (Все метки)

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

Решение

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
uses crt;
 
var
 a:array[1..255] of integer;
 i,j:integer;
 n,t:integer;
 
procedure sort;
var
  i,t:integer;
  ok:boolean;
begin
  repeat
    ok:=true;
    for i:=1 to n-1 do
      if a[i]<a[i+1] then
        begin
          t:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=t;
          ok:=false;
        end;
  until ok;
end;
 
 
begin
  repeat
    clrscr;
    randomize;
    write('Input array size: '); readln(n);
    writeln;
    if n mod 2<>0 then begin
      write('Input div2 n!');
      readkey;
    end;
  until n mod 2=0;
 
  for i:=1 to n do begin
    a[i]:=random(41)-20;               {zapolnenie [-20;20]}
    write(a[i],' ');                   {vivod}
  end;
 
  j:=(n div 2)+1;
 
  for i:=1 to j div 2 do begin         {zamena 1st polovini mas}
    t:=a[i];
    a[i]:=a[j-i];
    a[j-i]:=t;
  end;
 
  for i:=j to n do                     {zamena 2nd polovini mas}
    if a[i]<0 then a[i]:=0;
 
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  sort;
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  readkey;
end.


Вернуться к обсуждению:
Одномерные массивы. Вставка, удаление элементов массива. Перестановка элементов массива. Сортировка массива методом пузырька
2
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2008, 15:43
Готовые ответы и решения:

Вставка, удаление элементов массива
1)Дан массив размера N и целые числа K и L (1&lt;=K&lt;L&lt;=N).Удалить из массива...

Одномерные массивы. Вычислить количество положительных элементов массива
Зачет хочу получить по информатике, помогите 1) &quot;В одномерном массиве...

Перестановка элементов массива без использования дополнительного массива
Дан массив целых чисел, содержащий 10 элементов, записать в этот же массив...

Сортировка двумерного массива по убыванию по столбцам методом пузырька
Отсортировать всю матрицу n*m по столбцам по убыванию. Проверте есть ли в этой...

Отсортировать значения элементов массива по возрастанию методом "пузырька"
3. Дан массив из 12 чисел. Вывести на экран первоначальные значения элементов...

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