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

@zzzoommm · Регистрация: 18.11.2010

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

вот задача:
Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел (2, 4, …).

@Puporev · 07.03.2011, 08:48

Pascal

uses crt;
var f:file;
    s:string;
    n,i,a:integer;
begin
clrscr;
write('Имя файла для записи:  ');
readln(s);
repeat
write('Количество компонент > 1 n=');
readln(n);
until n >1;
assign(f,s);
rewrite(f,2);{2 - 2 байта, тип integer}
for i:=1 to n do
 begin
  a:=i*2;;
  blockwrite(f,a,1);{запишем 1 блок в 2 байта}
 end;
writeln('Содержание исходного файла F:');
reset(f,2);
for i:=1 to n do
begin
 blockread(f,a,1);{читаем 1 блок}
 write(a,' ');
end;
close(f);
readln
end.

Добавлено через 1 минуту
Только вроде в АВС этот тип файлов не поддерживается...

@TAVulator · 07.03.2011, 08:50

Puporev, может все-таки file of integer?

@Puporev · 07.03.2011, 08:52

Поэтому придется обойтись типизированными файлами..

Pascal

uses crt;
var f:file of integer;
    s:string;
    n,i,a:integer;
begin
clrscr;
write('Имя файла для записи:  ');
readln(s);
repeat
write('Количество компонент > 1 n=');
readln(n);
until n >1;
assign(f,s);
rewrite(f);{2 - 2 байта, тип integer}
for i:=1 to n do
 begin
  a:=i*2;;
  write(f,a);
 end;
writeln('Содержание исходного файла F:');
reset(f);
for i:=1 to n do
begin
 read(f,a);
 write(a,' ');
end;
close(f);
readln
end.

Добавлено через 46 секунд
TAVulator, Обычно двоичными называют файлы без типа, которые пишут и читают блоками...

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

Решение

Решение

@zzzoommm 2 / 2 / 0 Регистрация: 18.11.2010 Сообщений: 33
		1
	Создать файл целых чисел и записать в него N первых положительных четных чисел 06.03.2011, 21:31. Показов 2372. Ответов 3 Метки нет (Все метки) вот задача: Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел (2, 4, …). 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	07.03.2011, 08:50	3
	Puporev, может все-таки file of integer? 0

	07.03.2011, 08:52

Опции темы