Проблемы с паскалем

[Progerr]

Проблема с Free Pascal'ем.Выводит не все данные.Написал программу вывода с 1 до 1000.Вывело полную ерунду.Даже кусок предыдущей программы взяло(CRT активировано,clrscr написано перед выводом).

Как это можно решить?В нужной программе было написано только
for i:=1 to 1000 do
writeln(i);

[alexander13]

Если в программе написано только

for i:=1 to 1000 do
writeln(i);

то она не будет работать.

Это я к тому, что неплохо все-таки увидеть весь текст программы. Тут скорее с ним что-то не так, чем с FPC.

[Serge_Bliznykov]

Сообщение от alexander13

Если в программе написано только....
то она не будет работать.

уточню. программа, конечно, будет работать (ну, если добавить определение переменной и обрамление begin / end.
Но, разумеется, она СОВСЕМ не будет выдавать то, что отображено на скриншоте!

Progerr, не играйте в партизана - показывайте полностью, что у Вас в коде программы!

[alexander13]

Сообщение от Serge_Bliznykov

программа, конечно, будет работать (ну, если добавить определение переменной и обрамление begin / end.

Ну, я как раз и имел ввиду, что именно в таком виде, без begin..end и прочего) И этим хотел мотивировать ТС показать весь код. Воооот =)

[Progerr]

uses CRT;
var i:integer;
begin 
  clrscr;
  for i:=1 to 1000 do 
    writeln(i);
end.

Вот и всё.Эту программу я написал просто для проверки так как не выводило всю информацию в предыдущей,кусок которой мы видим по неизвестным мне причинам...

[Stilet]

Ерунда какая-то... Приведенный код не должен давать то что на фотке...

[alexander13]

Сообщение от Stilet

Ерунда какая-то... Приведенный код не должен давать то что на фотке...

Полностью согласен.

За все время использования FPC (а это очень много) ни разу не было ничего подобного.
Расскажите-ка по шагам, что Вы делаете, чтобы получить такой результат?
Ммм.. Это у Вас ХР?

[Poma][a]

Вот код :

uses CRT;
var i:integer;
begin
  clrscr;
  for i:=1 to 1000 do
    write(i,' ');
end.

Сначала я долго баловался другими вариантами этой программки, потом взял этот код, и тадам : (См. вложение)

Что ж давайте танцевать с бубном :
Посмотрим что будет выдавать нам на такой код :

uses CRT;
var i:integer;
begin
  clrscr;
  for i:=1 to 500 do
    write(i,' ');
  Delay (10000);
  for i := 501 to 1000 do
        Write(i, ' ')

end.

См. Вложение

Так что косяк есть

Стоит семерка..

[eoln]

Это косяк не компилятора, а среды (или ОС). Если запустить уже откомпилированный продукт, то всё нормально, а если посмотреть экран вывода из среды (например, по Alt+F5), то данный артефакт действительно наблюдается. Путём наблюдения видно, что странности наблюдаются выше 25 строки (вспомним стандартный досовский вывод 25х80). Почему точно не скажу, но это всего лишь ВИЗУАЛЬНЫЕ проблемы, а программа своё дело делает правильно при любом раскладе.

[Stilet]

Все равно не пойму как вы этого эффекта добились...