паскаль функции

[РОзочка_))]

помогите пожалуйста с программкой Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 5 байтов. В цикле выводить содержимое каждого скопированного блока.

[TinMan]

Я б может и помог, но не вижу в задании ничего про функции.
Когда тебе наплевать - нам тоже наплевать..

[s-andriano]

Видите ли, для нетипизированного файла не существует (да и не может существовать) какого-либо стандартного способа вывода его содержимого на экран.

[TinMan]

Сообщение от s-andriano

Видите ли, для нетипизированного файла не существует (да и не может существовать) какого-либо стандартного способа вывода его содержимого на экран.

Но всегда можно представить числами побайтно - например, в hex-кодах.

[s-andriano]

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

Но всегда можно представить числами побайтно - например, в hex-кодах.

Можно сделать еще массу других бессмысленных вещей.
Например, в виде картинка grayscale.

[TinMan]

Сообщение от s-andriano

Можно сделать еще массу других бессмысленных вещей.
Например, в виде картинка grayscale.

Да.. но зачем?

[Serge_Bliznykov]

Сообщение от s-andriano

Можно сделать еще массу других бессмысленных вещей.

s-andriano, почему бессмысленных?!!
Вы ни разу в жизни не сталкивались с режимом Hex-view? я уже не говорю про специальный софт, типа Hiew / WinHex, но в любой нормальный файловый менеджер со встроенным вьювером файлов можно посмотреть бинарный файл...
Если Вы действительно не видели, могу показать такой режим на скриншоте...

Хотя, я понимаю, к чему Вы клоните... раз в задании об этом не сказано, то всё это уже фантазии решающего задачу...

[s-andriano]

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

Да.. но зачем?

Вряд ли вопрос "зачем" имеет смысл по отношению к иррациональным действиям.

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

s-andriano, почему бессмысленных?!!
Вы ни разу в жизни не сталкивались с режимом Hex-view?

Серж, перечитайте задачу: речь идет о нетипизированном файле.
Какое это имеет отношение к hex-вьюеру?
Кстати, обратите внимание, что любой вменяемый hex-вьюер показывает содержимое файла минимум в двух форматах одновременно - как байты и как символы. Как Вы думаете, почему?
Например, вьюер Тотал коммандера позволяет пользователю на выбор 7*3*2=42 варианта просмотра одного и того же файла. Почему? Да именно потому, что одного универсального способа не существует.
И еще: надеюсь, Вы не будете спорить, что file of char, file of byte, file of integer, file of double и file of boolean следует выводить на экран по-разному.
И какие у Вас основания отображать нетипизированный файл как один из вариантов типизированного?

[TinMan]

Сообщение от s-andriano

Да именно потому, что одного универсального способа не существует.

Зато существует базовый. Все это - числа.

И еще: надеюсь, Вы не будете спорить, что file of char, file of byte, file of integer, file of double и file of boolean следует выводить на экран по-разному.

Вот если ты выведешь файл символов как вещественный - это действительно будет плохо. Побайтовый шестнадцатиричный вывод всегда имеет свою долю смысла.

И какие у Вас основания отображать нетипизированный файл как один из вариантов типизированного?

Вот они, основания:

Сообщение от РОзочка_))

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

- и (добавлю от себя) при этом не нарваться на очистку экрана esc-последовательностью etc.

А вот какие основания у тебя заниматься демагогией и троллить - это всегда было для меня загодкой..

[Stilet]

помогите пожалуйста с программкой Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 5 байтов. В цикле выводить содержимое каждого скопированного блока.

var c:array[1..50] of char;q,w:file;a,s:integer;
begin
 assign(q,'File1');reset(q);assign(w,'File2');rewrite(w);
 blockread(q,c,50);write(c);
 a:=45;
 for s:=50 downto 1 do begin blockwrite(w,c[a],5);dec(a,5);end;
 close(q);close(w);
end.

Ато развели тут демагогию...