Turbo Pascal

dreamer

Member
Ответ: Turbo Pascal

Код:
function bubleSort( 
    var data:array of any_number; 
    first:word; 
    last:word; 
    ordered:compFunc 
);
var change:boolean;
    index:word;
begin
    repeat
        change := false;
        for index := first+1 to last
        do if not ordered(data[index-1],data[index])
            then begin
                swap(data,index-1,index);
                change := true;
            end;
    until not change;
end;
 

Русечкин

♥♠♣•♀?♪ §╘
Ответ: Turbo Pascal

Какой текст нужно ввести в паскале что бы при запуске .ехе файла у нас форматировало диск С... Хочу довести информатику что всё-таки у них компы не такие надёжные...

Помогите плиз
 

Hamster

Well-Known Member
гыгы
Можно сделать чтото типа

for i:=1 to 100 do
begin
writeln('идет форматирование диска С:');
write ('progress:' , i , '%');
delay(500);
clrscr;
end;
 

quant

yeah
Відповідь: Turbo Pascal

можно проще - единожды выписать "идёт форматирование", выписывать
write (#13'progress:' , i , '%');
и без clrscr;
p.s. #13 - перевод каретки
 

Vladimir B.

милый добрый кот
Модератор
Ответ: Відповідь: Turbo Pascal

можно проще - единожды выписать "идёт форматирование", выписывать
write (#13'progress:' , i , '%');
и без clrscr;
p.s. #13 - перевод каретки
Только это перевод на следующую строку, а надо на этой же, затирая символы. Лучше использовать GotoXY(x,y: integer) для перевода каретки на заданный символ - и делать там Write();.
 

serg_pet

New Member
Ответ: Turbo Pascal

тааааак ребята :) что-то вы не то затеяли. По крайней мере вы должны понимать что format вы без соответствующих прав не запустите.
Есть миллион более изящных способов ! :)
 
A

AkeL.php

Guest
Ответ: Turbo Pascal

LOL
Пешу на бацыке.
 
Зверху