Символы кода паскаль

[guroDragon]

Всем привет, помогите, плиз.
Я не могу понять, как написать прогу, которая бы с помощью цикла for:=0 to 255 вывела бы мне все символы кода паскаль. Никак врубится не могу.
Спасибо.

[BDA]

writeln(chr(i));

[type_Oleg]

Наверное, for i:=0 to ...
Например можно использовать Chr(i).

.. не успел

[Stilet]

символы кода паскаль

Ну... примерно так:

var f:file of char; i:integer; c:char;
begin
 assign(f,'f.pas'); reset(f);
 for i:=0 to 255 do
  if not eof(f) do begin read(f,c); write(c); end;
 close(f);
 readln;
end;

Выведет 255 символов кода паскаля.

[denisbrain]

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

Ну... примерно так:

var f:file of char; i:integer; c:char;
begin
 assign(f,'f.pas'); reset(f);
 for i:=0 to 255 do
  if not eof(f) do begin read(f,c); write(c); end;
 close(f);
 readln;
end;

Выведет 255 символов кода паскаля.

var 
  i:word 
begin
i:=8;
chr(i)

[Stilet]

i:word

Это не в каждом паскале прокатит кстати...

[eoln]

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

Ну... примерно так:

...
 for i:=0 to 255 do
  if not eof(f) do begin read(f,c); write(c); end;
...

Выведет 255 символов кода паскаля.

Ахаха. Только поправочка - не более 256 символов
А чтоб весь код вывести, после write(c); можно добавить dec(i) {только для старых компиляторов}, либо к eof прикрутить while Но ТС похоже нужно что-то другое
(пост не серьёзнен)