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

Есть задача , но не работает . Сортировка прямого обмена

30.05.2012, 19:27. Просмотров 268. Ответов 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
unit Sortirovka1 ;
interface
type izdelia=record
     f:text; s:string;puz:document;;
     mas: array[1..6] of document;
     i,j:integer;
 
procedure sortirovka (nomer_dogovora:Integer;familiya:string;naimenovanie_raboti:string;srok_vypolnenia:integer;);
 Implementation
 procedure sortirovka;
begin   {Names}
for i:=1 to 6 do
  begin
  writeln('Договор',i);
  write('номер договора:');
  readln(mas[i].nomer_dogovora);
  write('Фамилия:');
  readln(mas[i].familiya);
  write('наименование работы:');
  readln(mas[i].naimenovanie_raboti);
  write('срок выполнения:');
  readln(mass[i].srok_vypolnenia);
  end;
 
   begin
  s:='сортировка по сроку выполнения';
  for j:=1 to 5 do
    begin
    for i:=1 to 5 do
      begin
      if mas[i].nazvanie_izdelia > mas[i+1].srok_vypolnenia then
        begin
        puz:=mas[i];
        mas[i]:=mas[i+1];
        mas[i+1]:=puz;
        end;
      end;
      i:=1;
    end;
      end; {main}
 
       writeln;
writeln('после сортировки');
for i:=1 to 6 do
  begin
  write('договор:', mas[i].nomer_dogovora); writeln;
  write('фамилия:', mas[i].familiya);writeln;
  write('наименование работы:', mas[i].naimenovanie_raboti);writeln;
  write('срок выполнения: ', mas[i].srok_vypolnenia);writeln
  end;
 
 
     Assign(f, 'result.txt'); 
     Rewrite(f);  
     writeln(f,s);
     writeln(f);
     for i:=1 to 6 do
     begin
       // writeln(f,s); 
           for i:=1 to 6 do
           writeln(f, 'Г*договор:', mas[i].nomer_dogovora,' ','фамилия:', mas[i].familiya,' ','наименование работы:', mas[i].naimenovanie_raboti,' ','срок выполнения:', mas[i].srok_vypolnenia);
           writeln(f);
     end;
    close(f); 
end.
Помогите найти ошибку , не хочет сортировать и работать . Сортировка произведена или должна быть произведена с помощью прямого обмена . По 4 полю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 19:27
Ответы с готовыми решениями:

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

Применяя метод прямого обмена, отсортировать массив
Применяя метод прямого обмена, отсортировать массив, файл, список, элементами...

Сортировать четные элементы методом прямого обмена
Сортировать четные элементы методом прямого обмена

Выполнить сортировку с помощью прямого обмена и вывести данные и результаты на экран
Здравствуйте. Совсем запутался. 1.Требуется выполнить чтение данных с...

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

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

Сортировка методом прямого выбора
Помогите пожалуйста составить несколько задач с массивами (программа + блок...

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

Сортировка с помощью прямого выбора
сортировка с помощью прямого выбора Четные элементы в одномерном массиве


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

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

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