Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
CesaR
0 / 0 / 0
Регистрация: 12.04.2015
1

Ошибка.Генерация и упорядочение массива

03.12.2012, 22:15. Просмотров 269. Ответов 0
Метки нет (Все метки)

Не пойму, не хочет выводить отсортированый массив в файл и на экран, вообщем не работает и пишет, что variable i and n might not have been intialized.
Delphi
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
72
73
74
75
76
77
78
79
80
81
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const kol = 200;
  type
    myar = array[1..kol] of integer;
    var x : myar;
        n :integer;
  procedure Generation (var a:array of integer;
                            m:integer);
 
  var i:integer;
      f:textfile;
 
begin
   AssignFile(f,'C:\Documents and Settings\user\Рабочий стол\test\gen.txt');
   Rewrite(f);
 
    repeat
 
     begin
      Writeln('vvedit kilkist elementiv masuvu vid 1 do ', kol);
      Readln(m);
     end;
 
    until (1<=m) and (m<=kol);
     randomize;
     for i:= 1 to m do
       begin
         a[i]:=Random(1000)+1;
         write(a[i]:5);
         Write(f, a[i]:5);
 
       end;
     Writeln;
     CloseFile(f);
 
end;
 procedure bubblesort( var a: array of integer; size:integer);
 
var i,j,buf:integer;
    f1, f2 : TextFile;
 begin
   AssignFile(f1,'C:\Documents and Settings\user\Рабочий стол\test\gen.txt');
   AssignFile(f2,'C:\Documents and Settings\user\Рабочий стол\test\bubblesort.txt');
   Reset(f1);
   Rewrite(f2);
   read(f1, a[i]);
   Reset(f1);
       for j:=size downto 2 do
       begin
        for i:=1 to j-1 do
 
        begin
         if a[i]>a[i+1] then
         begin
          buf:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=buf;
         end;
        end;
       end;
       for i:=0 to size-1 do
       begin
        Writeln(f1,a[i]:5);
        write(a[i]:5);
       end;
    Writeln;
    Closefile(f1);
    Closefile(f2);
 end;
 
begin
  Generation(x, n);
  bubblesort(x, n);
  Readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2012, 22:15
Ответы с готовыми решениями:

Упорядочение элементов массива
Ребят, помогите решить простое задание Нужно отдельно упорядочить четные и...

Выполнить упорядочение массива по заданному правилу
Дан массив Х, состоящий из N целых чисел (0&lt;N&lt;1000;0&lt;X&lt;10000). Выполнить...

Шифрование/дешифрование. Автоматическая генерация массива
function Encode(const aStr : String) : String; var S : String; i, Len,...

Упорядочение матрицы
Здравствуйте, на повестке дня такая вот задача: Упорядочить в матрице строки...

Сортировка, упорядочение списка
Господа, нужна помощь. Есть форма записи, с главным окном RichEdit, и записью в...

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

Обработка/упорядочение записей о работниках предприятия
по данным таблицы содержащей информацию о работниках предприятия, произвести...

Если элемент массива четный, то прибавить к нему первый элемент массива, если нечетный - то последний. В чем ошибка?
Помогите решить: Если элемент массива четный, то прибавить к нему первый...

ошибка массива
procedure TForm3.Button1Click(Sender: TObject); var x,y,k:real; var t:integer;...


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

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

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