Turbo Pascal

[dreamer]

Ответ: 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

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

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

 

[quant]

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

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

они там все лАмы угу ?

 

[Hamster]

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

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

 

[quant]

Відповідь: 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();.

 

[dreamer]

Ответ: Turbo Pascal

exec("format c:");

 

[serg_pet]

Ответ: Turbo Pascal

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

 

[quant]

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

Только это перевод на следующую строку, а надо на этой же, затирая символы.

перевод на следующую #10 а при выполнении writeln(%s); выполняется write (%s#13#10);
я изобразил то о чём ты написал

 

[AkeL.php]

Ответ: Turbo Pascal

LOL
Пешу на бацыке.