Создать типизированный файл и записать в него 15 заданных условием чисел.

@Progrmmistik · Регистрация: 09.12.2009

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

вот моя задачка прошу кто сможет!

Создать типизированный файл и запись в него:
1)5 одинаковых целых чисел
2)5 одинаковых вещественых чисел
3)5 одинаковых слов

Записываемые чмсла и слова вводятся с клавиатуры!

@pazlle · 03.05.2010, 15:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Type TFile = file of integer;
 
procedure FormFile(var f:TFile;);
var x:integer;
begin
   Assign(f,'f.date');
   rewrite(f);
   writeln('Введите x');
   readln(x);
While not eof(f) do 
writeln(f,x);
end;

@Progrmmistik · 03.05.2010, 15:50 **[ТС]**

pazlle,

writeln(f,x);

тут f выходит ошибка будто ее нельзя использовать в файл

@pazlle · 03.05.2010, 16:00

Тьфу блин..попробуйте While eof(f); Файл же изначально пустой.

@Progrmmistik · 03.05.2010, 16:04 **[ТС]**

pazlle, пишется что нельзя 'writeln' использовать для типизированного файла т.е в"writeln" не должно быть (f)
убираю f он просит начать 'begin'....

@pazlle · 03.05.2010, 16:07

Значит write(f,x);
Я написал только фрагмент программы...

@Progrmmistik · 03.05.2010, 16:09 **[ТС]**

pazlle, если вас это не затруднить то сможете доконца написать программу....

@Puporev · 03.05.2010, 16:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var f:file of string;
    a,i:integer;
    b:real;
    s:string;
begin
clrscr;
assign(f,'file');
rewrite(f);
write('Введите целое число a=');
readln(a);
str(a,s);
for i:=1 to 5 do
write(f,s);
write('Введите вещественное число b=');
readln(b);
str(b:0:2,s);
for i:=1 to 5 do
write(f,s);
write('Введите слово s=');
readln(s);
for i:=1 to 5 do
write(f,s);
reset(f);
writeln('Содержание файла:');
while not eof(f) do
 begin
  read(f,s);
  writeln(s);
 end;
close(f);
readln
end.

@Progrmmistik · 03.05.2010, 16:11 **[ТС]**

большое спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@Progrmmistik 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 18

	Создать типизированный файл и записать в него 15 заданных условием чисел. 03.05.2010, 15:39. Показов 1737. Ответов 8 Метки нет (Все метки) вот моя задачка прошу кто сможет! Создать типизированный файл и запись в него: 1)5 одинаковых целых чисел 2)5 одинаковых вещественых чисел 3)5 одинаковых слов Записываемые чмсла и слова вводятся с клавиатуры! 0

@Progrmmistik 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 18
	03.05.2010, 15:50 [ТС]
	pazlle, writeln(f,x); тут f выходит ошибка будто ее нельзя использовать в файл 0

@pazlle 27 / 17 / 8 Регистрация: 02.11.2009 Сообщений: 176
	03.05.2010, 16:00
	Тьфу блин..попробуйте While eof(f); Файл же изначально пустой. 0

@Progrmmistik 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 18
	03.05.2010, 16:04 [ТС]
	pazlle, пишется что нельзя 'writeln' использовать для типизированного файла т.е в"writeln" не должно быть (f) убираю f он просит начать 'begin'.... 0

@pazlle 27 / 17 / 8 Регистрация: 02.11.2009 Сообщений: 176
	03.05.2010, 16:07
	Значит write(f,x); Я написал только фрагмент программы... 0

@Progrmmistik 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 18
	03.05.2010, 16:09 [ТС]
	pazlle, если вас это не затруднить то сможете доконца написать программу.... 0

@Progrmmistik 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 18
	03.05.2010, 16:11 [ТС]
	большое спасибо!!! 0

Опции темы