Главная страница Случайная лекция
Мы поможем в написании ваших работ!
Порталы:
БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика
Мы поможем в написании ваших работ!
Работа с файлами
Виды файлов (типизированный и не типизированный)
Запись данных в файл
program lz;
var a:array[1..100] of integer;
i,n :integer;
f :text;
procedure init;
begin
readln (n);
for i:=1 to n do
begin
write ('a[',i,']=');
read (a[i]);
end;
end;
procedure work;
begin
end;
procedure exi;
begin
assign (f,'m1.txt');
rewrite(f);
writeln(f,n);
for i:=1 to n do
writeln (f,a[i]);
close(f);
end;
begin
init;
work;
exi;
end.
program lz;
var a:array[1..100,1..100] of integer;
i,n,m,j :integer;
f :text;
procedure init;
begin
readln (n);
readln (m);
for i:=1 to n do
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
end;
procedure work;
begin
end;
procedure exi;
begin
assign (f,'m4.txt');
rewrite(f);
writeln(f,n,' ',m);
for i:=1 to n do
begin
for j:=1 to m do
write (f,a[i,j],' ');
writeln (f);
end;
close(f);
end;
begin
init;
work;
exi;
end.
Считывание данных из одномерного массива
program lz;
var a:array[1..100] of integer;
i,n :integer;
f :text;
procedure init;
begin
assign (f,'m1.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
procedure work;
begin
end;
procedure exi;
begin
writeln (n);
for i:=1 to n do
begin
writeln ('a[',i,']=',a[i]);
end;
end;
begin
init;
work;
exi;
end.
program lz;
var a:array[1..100] of integer;
i,n,m,j :integer;
f :text;
procedure init;
begin
assign (f,'m5.txt');
reset(f);
i:=0;
while not EOF(f) do
begin
inc(i);
read(f,a[i]);
end;
n:=i;
close(f);
end;
procedure work;
begin
end;
procedure exi;
begin
for i:=1 to n do
begin
write (a[i],' ');
write;
end;
end;
begin
init;
work;
exi;
end.
| <== предыдущая страница | | | следующая страница ==> |
| Строковая переменная как массив | | | Считывание данных из двумерного массива |
Дата добавления: 2014-11-24; просмотров: 280; Нарушение авторских прав
Мы поможем в написании ваших работ!