Помощь - Поиск - Пользователи - Календарь
Полная версия: Pascal ABC vs FPC 2.4.0
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kpucto
var
n,i:integer;
input,output:text;
a:array[1..1000000] of longint;

procedure quickk(var d:array [1..1000000] of longint;j:integer;k:integer);
var main,s,ram:integer;
begin
if j = k then exit;
main := d[j];
s := j+1;
for i := j+1 to k do
if d[i] < main then
begin
ram := d[i]; d[i] := d[s]; d[s] := ram;
ram := d[s]; d[s] := d[s-1]; d[s-1] := ram;
if s <> k then s := s + 1;
end;
quickk(d,j,s-1);
quickk(d,s,k);
end;

procedure QuickS(var d:array [1..1000000] of longint;n:integer);
var j,k:integer;
begin
j := 1;
k := n;
quickk (d,j,k);
end;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(input,n);
for i:=1 to n do
read(input,a[i]);
quicks(a,n);
for i:=1 to n do
write(output,a[i],' ');
close(input);close(output);
end.

вот код программы.
Собственно на паскале абц сортировка работает на ура, а на фри выдает ошибку.. С чем это может быть связяно? оО
volvo
Цитата
Собственно на паскале абц сортировка работает на ура
Собственно, на ABC (на той, которая поддерживается сейчас, а не на допотопной) это даже не компилируется. Потому что описывать типы прямо в заголовке процедуры умеет только GPC. В остальных компиляторах надо либо использовать открытый массив, либо описывать тип глобально, и пользоваться уже готовым описанием, а не конструировать "на месте".
Kpucto
Цитата
открытый массив

можно поподробнее?
Lapp
Цитата(Kpucto @ 15.01.2011 20:04) *
можно поподробнее?
Подробнее тут. Ну и поиск, например - тут.
Извини, но объяснять основы языка каждому - нужно слишком много времени.
Kpucto
Цитата
Подробнее тут. Ну и поиск, например - тут.

спасибо.. только я его всегда называл неопределенным оО
Цитата
Извини, но объяснять основы языка каждому - нужно слишком много времени.

а в вот этом не нуждаюсь wink.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.