Студопедия

Главная страница Случайная лекция

Порталы:

БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика






Работа с файлами

Читайте также:
  1. II. Общее устройство, работа и управление ЭО-4124 с обратной лопатой.
  2. Microsoft Excel. Работа с макросами. Язык программирования Visual Basic for Application.
  3. Microsoft Excel. Работа с пакетом анализа. Построение простой регрессии
  4. Анализ процессов (определяем существующую в обществе повестку дня и соотносим с нею разработанные альтернативы). Устанавливаем клиентную группу.
  5. Аудиторная работа
  6. Аудиторная работа
  7. Аудиторная работа
  8. Аудиторная работа
  9. Аудиторная работа
  10. Аудиторная работа

Виды файлов (типизированный и не типизированный)

Запись данных в файл

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; просмотров: 230; Нарушение авторских прав


lektsiopedia.org - Лекциопедия - 2013 год. | Страница сгенерирована за: 0.002 сек.