Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 03.07.2009
Сообщений: 4

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

03.07.2009, 20:59. Показов 1785. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
кто шарит файлы
Создать типизированный файл, который содержит несколько целых чисел, после
чего вывести эти целые числа из типизированного файла на экран монитора по
одному байту.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.07.2009, 20:59
Ответы с готовыми решениями:

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

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

Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и каждое из чисел вознести в квадрат.
Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и каждое из чисел вознести в квадрат. ...

4
 Аватар для exe-dealer
308 / 161 / 11
Регистрация: 07.06.2009
Сообщений: 538
03.07.2009, 21:01
скоро hello world будут просить
0
Отдыхающий:)
 Аватар для <Norton>
94 / 91 / 22
Регистрация: 05.04.2009
Сообщений: 188
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.
0
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.07.2009, 14:31
Помогаю со студенческими работами здесь

В типизированный файл записаны несколько целых чисел
1. В типизирующий файл записаны несколько целых чисел. Вывести на экран первое число, которое перерывает растущую последовательность чисел,...

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

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

Создать типизированный файл и записать в него 5 одинаковых целых чисел
2.Дано предложение определить сколько в нем букв &quot;и&quot;. 3.Создать типизированный файл и записать в него 5 одинаковых целых чисел.

Создать типизированный файл из K целых чисел и найти их среднее значение
Дано: целое число К. Требуется: Создать типизированный файл из К целых чисел и найти их среднее значение.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
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
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru