Создать типизированный файл, который содержит несколько целых чисел

@frac · Регистрация: 03.07.2009

Студворк — интернет-сервис помощи студентам

кто шарит файлы
Создать типизированный файл, который содержит несколько целых чисел, после
чего вывести эти целые числа из типизированного файла на экран монитора по
одному байту.

@exe-dealer · 03.07.2009, 21:01

скоро hello world будут просить

@<Norton> · 04.07.2009, 12:32

Pascal
1
2
3
4
5
6
7
8
uses crt;var f1:file of byte;f2:file;a,i,j:byte;
begin clrscr;assign(f1,'help_65.dat');rewrite(f1);
write('Count of Numbers: ');readln(j);
for i:=1 to j do begin write('Your Number #',i,' : ');readln(a);
write(f1,a);end;close(f1);writeln('Files were written in the file:');
assign(f2,'help_65.dat');reset(f2,1);
for i:=1 to j do begin BlockRead(f2,a,1);
writeln('Number #',i,' : ',a);end;close(f2);readkey;end.

@EvgeniiSp · 04.07.2009, 13:31

<Norton>, Ваша программа содержит ошибку, не верно объявлена переменная f2 и процедура reset(f2,1) в строке 6 содержит лишний параметр "1".

@<Norton> · 04.07.2009, 14:31

с чего вы взяли что он лишний!
reset(f2,1) - обозначает размер блока для считывания, равный 1 байту!

Добавлено через 1 минуту 14 секунд
к тому же я всё проверял, и у меня на Turbo Pascal'e 7 всё работает нормально...

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@frac 0 / 0 / 0 Регистрация: 03.07.2009 Сообщений: 4

	Создать типизированный файл, который содержит несколько целых чисел 03.07.2009, 20:59. Показов 1785. Ответов 4 Метки нет (Все метки) кто шарит файлы Создать типизированный файл, который содержит несколько целых чисел, после чего вывести эти целые числа из типизированного файла на экран монитора по одному байту. 0

@exe-dealer 308 / 161 / 11 Регистрация: 07.06.2009 Сообщений: 538
	03.07.2009, 21:01
	скоро hello world будут просить 0

@EvgeniiSp 149 / 139 / 57 Регистрация: 05.06.2009 Сообщений: 310
	04.07.2009, 13:31
	<Norton>, Ваша программа содержит ошибку, не верно объявлена переменная f2 и процедура reset(f2,1) в строке 6 содержит лишний параметр "1". 0

@<Norton> Отдыхающий:) 94 / 91 / 22 Регистрация: 05.04.2009 Сообщений: 188
	04.07.2009, 14:31
	с чего вы взяли что он лишний! reset(f2,1) - обозначает размер блока для считывания, равный 1 байту! Добавлено через 1 минуту 14 секунд к тому же я всё проверял, и у меня на Turbo Pascal'e 7 всё работает нормально... 0