Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Отсортировать столбцы по убыванию их средних значений https://www.cyberforum.ru/ turbo-pascal/ thread1155805.html
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:... 		Найти массив минимальных элементов в каждой строке, а затем в новом массиве отсортировать эле-менты по возрастанию Turbo Pascal
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:...
Turbo Pascal Найти суммы элементов в каждом столбце и минимальные элементы в каждой строке Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:... https://www.cyberforum.ru/ turbo-pascal/ thread1155802.html Turbo Pascal Найти произведения элементов в каждой строке и максимальные элементы в каждом столбце https://www.cyberforum.ru/ turbo-pascal/ thread1155801.html
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:...
Turbo Pascal Сформировать двумерный массив A (m, n)
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:... 		Turbo Pascal Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить https://www.cyberforum.ru/ turbo-pascal/ thread1155799.html
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:...
Turbo Pascal Найти максимальный среди отрицательных элементов и сумму элементов на главной диагонали Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:... https://www.cyberforum.ru/ turbo-pascal/ thread1155798.html Найти среднее значение среди элементов, не совпадающих с минимальным Turbo Pascal
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:...
Turbo Pascal Найти произведение элементов, больших среднего значения Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:... https://www.cyberforum.ru/ turbo-pascal/ thread1155796.html Turbo Pascal Найти сумму положительных элементов и количество элементов https://www.cyberforum.ru/ turbo-pascal/ thread1155795.html
Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше .... Лабораторная работа. Пример задачки: Program lab5; Var A:...
Turbo Pascal Разработать алгоритм и тесты, написать и отладить модульную программу с использованием подпрограммы для организации!
Вычислить суммы элементов векторов У(k) и X(L), находящиеся в интервале от а до b. 		Turbo Pascal Записать в новый файл данный массив, отсортированный по убыванию элементов Создать файл , компонентами которого является одномерный массив , состоящий из целых чисел Х (15). Записать в новый файл данный массив, отсортированный по убыванию элементов. https://www.cyberforum.ru/ turbo-pascal/ thread1155772.html
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 19
0

Сортировка методом прямого включения ( исправление метода сортировки ) - Turbo Pascal - Ответ 6081401

24.04.2014, 11:05. Показов 1689. Ответов 1
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Условие:
Сгенерируйте случайным образом 20 целых чисел и поместите их в типизированный файл. Содержимое исходного файла вывести на экран. Отсортируйте первую половину файла по возрастанию, а вторую по убыванию (использовать сортировку файла прямым включением). Содержимое отсортированного файла вывести на экран. Введите контрольное число и определите его наличие. В положительном случае выведите найденное число и его индекс на экран.

Вот мое решение:
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

Program n_6;
const n=20;
var f:file of integer;
    a,b,x,i,j,k:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
reset(f);
writeln('Ishodniy fail:');
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
seek(f,0);
for i:=0 to filesize(f)-2 do
 begin
  k:=i;
  for j:=i+1 to filesize(f)-1 do
   begin
    seek(f,k);
    read(f,a);
    seek(f,j);
    read(f,b);
    if b<a then k:=j;
    seek(f,i);
    read(f,x);
    seek(f,k);
    read(f,b);
    seek(f,i);
    write(f,b);
    seek(f,k);
    write(f,x);
   end;
 end;
seek(f,0);
writeln('Otsortirovaniy fail:');
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  write(a:4);
 end;
close(f);
writeln;
writeln;
readln
end.
Но я использовал сортировку методом прямого выбора, а надо прямым включением. И еще нужно отсортировать первых 10-й по возростанию, а остольные по убыванию. И я еще не доделал ввод контрольного числа и определение его наличия. Помогите изменить метод сортировки. Очень нужно.

Вернуться к обсуждению:
Сортировка методом прямого включения ( исправление метода сортировки ) Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.04.2014, 11:05
Готовые ответы и решения:

Сортировки массива методом пузырька и методом прямого включения
сортировки массива методом пузырька и методом прямого включения Очень срочно надо помогите плис

Составить программу сортировки массива методом прямого включения
Составить программу сортировки массива методом прямого включения. Требования: массив вводить с...

Сортировка массива методом включения и прямого выбора
1) Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента....

Сортировка последовательности целых чисел методом прямого слияния и методом цифровой сортировки
Задание звучит вот так: 1.Разработать процедуры сортировки последовательности целых чисел методом...

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

Отсортировать массив тремя методами: прямого включения, прямого обмена, быстрой сортировки
Есть программа которая сортирует массив из 100 элементов в диапазоне от 1 до 1000. Программа...

Сортировка методом прямого включения
Помогите переделать програ,помогитемму. Она у меня сортирует чиса,записанныев файл, по убыванию....

Сортировка методом прямого включения с размещением путём сравнения и обмена
Нужно упорядочить по возрастанию элементы массива (Элементы массива вводятся случайным образом)...

Исследование алгоритмов сортировки методом прямого включения и методом Шелла
Здравствуйте. Мне нужно написать программу в C# на тему &quot;Исследование алгоритмов сортировки методом...

Сортировка методом прямого включения
Нашел блок-схему, написал по ней метод сортировки, но, первый элемент в нем не сортируется,...

Сортировка методом прямого включения
Написать программу вставки последнего элемента массива после первого отрицательного элемента этого...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru