Turbo Pascal

[CriticalArrow]

Ответ: Turbo Pascal

гагага ,отжиг :lol:

 

[Пух]

Ответ: Turbo Pascal

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

После енд точку не поставил прога же закончена...

хахаха, ужас...
end; - это конец оператора цикла for to do
а если быть точным и полностью прогу написать,то выглядеть она будет примерно так

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

тока на форуме тебе такого писать не будет, т.к. это само собой разумется...
повторяя слова Akel'a : LOL

 

[Русечкин]

Ответ: Turbo Pascal

хахаха, ужас...
end; - это конец оператора цикла for to do
а если быть точным и полностью прогу написать,то выглядеть она будет примерно так

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

тока на форуме тебе такого писать не будет, т.к. это само собой разумется...
повторяя слова Akel'a : LOL

За своим базаром следи "лол" я учу програмирование 1 месяц... глянул бы я на тебя в первый месяц изучения програмирования

 

[Русечкин]

Ответ: Turbo Pascal

если можно скажите где можно посмотреть все зарезервироване слова торбо паскаля и что они обозначают мне нужно в конспект перекатать

 

[AkeL.php]

Ответ: Turbo Pascal

F1

 

[Русечкин]

Ответ: Re: Turbo Pascal

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

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

интересо то что форматирование идёт а вот нефига не форматит

 

[quant]

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

интересо то что форматирование идёт а вот нефига не форматит

+++++[>+++[>+++++[>+>+>+<<<-]<-]<-]>>>+.>++++.>+.
P.S.

You must be registered for see links

 

[Пух]

Ответ: Re: Turbo Pascal

интересо то что форматирование идёт а вот нефига не форматит

гггггг
если ты не знал, то "лол"- это смех...
та прога, что написал GHOST не будет ниче форматировать... просто на экран будет выводица текст, типа идет форматирование и никакого форматирования не будет :ЬЬ

 

[dreamer]

Ответ: Turbo Pascal

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

Ага, например в драйвере нулевого кольца выполнить деление на ноль

 

[Cris]

Ответ: Turbo Pascal

решите или подскажите мне как решить ету задачку :
На площині задано координати двох відрізків AB і CD. Знайти спільну частину проекцій цих відрізків на вісь абсцис.

Вхідні дані
Ви вводите з клавіатури 8 цілих чисел - координати точок A, B, C, D. Кожне число не перевищує за абсолютною величиною 1000.

Вихідні дані
Ви виводите на екран одне число - спільну частину проекцій. Якщо спільна частина - порожня множина, вивести -1, якщо це одна точка - вивести 0.

Приклад вхідних та вихідних даних
Вхід: 2 2 7 5 3 4 8 1
Вихід: 4