русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Нетипизированные файлы


Дата добавления: 2014-09-02; просмотров: 686; Нарушение авторских прав


Program PP71;

Type ZAP=Record

FIO:Array[1..10] of Char;

God:Integer

end;

FPK=File;

Var FIZAP:FPK;

A,B:ZAP;

J,I:Integer;

Begin Assign(FIZAP,'pp71.dat');

Rewrite(FIZAP, 12);

For J:=1 to 3 do

Begin Write('=>');

For I:=1 to 10 do Read(B.FIO[I]);

Readln(B.God);

BlockWrite(FIZAP,B,1)

end;

Close(FIZAP);

Reset(FIZAP, 12);

For J:=1 to 3 do

Begin BlockRead(FIZAP,A,1);

Writeln(J:2,'-ая запись ',A.FIO,A.God:5);

end

end.

 

Program PP74;

Type ZAP=Record

FIO:Array[1..10] of Char;

God:Integer

end;

FPK=File;

Var FIZAP:FPK;

A:ZAP;

I:Integer;

Begin Assign(FIZAP,'pp74.dat');

Rewrite(FIZAP, 12);

Repeat

Write('=>');

For I:=1 to 10 do Read(A.FIO[I]);

Readln(A.God);

BlockWrite(FIZAP,A,1);

Until A.FIO='**********';

Close(FIZAP);

Reset(FIZAP,12);

I:=1;

Repeat

BlockRead(FIZAP,A,1);

Writeln(I:2,'-ая запись ',A.FIO,A.God:5);

I:=I+1

Until A.FIO='**********'

end.

 

Program PP75;

Type ZAP=Record

FIO:Array[1..10] of Char;

God:Integer

end;

FPK=File;

Var FIZAP,RB:FPK;

A:ZAP;

I:Integer;

{-------------------------------------------------------------------------}

{ВВОД ИСХОДНЫХ ДАННЫХ В ФАЙЛ FIZAP}

Begin Assign(FIZAP,'C:\program\t-pas\pp75.dat');

Rewrite(FIZAP, 12);

Repeat

Write('=>');

For I:=1 to 10 do Read(A.FIO[I]);

Readln(A.God);

BlockWrite(FIZAP,A,1);

Until A.FIO='**********';

Close(FIZAP);

{------------------------------------------------------------------------}



{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP}

Writeln;

Writeln('Обрабатываемый файл:');

Reset(FIZAP,12);

I:=1;

Repeat

BlockRead(FIZAP,A,1);

Writeln(I:2,'-ая запись ',A.FIO,A.God:5);

I:=I+1

Until A.FIO='**********';

Close(FIZAP);

{------------------------------------------------------------------------}



{ПЕРЕПИСЬ ИЗ ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP В РАБОЧИЙ ФАЙЛ RB ЛЮДЕЙ, }

{ РОДИВШИХСЯ НЕ РАНЕЕ 1970 ГОДА }

Reset(FIZAP,12);

Assign(RB,'C:\program\t-pas\ppr75.dat');

Rewrite(RB,12);

Repeat

BlockRead(FIZAP,A,1);

If A.God>=1970 then BlockWrite(RB,A,1)

Until A.FIO='**********';

Close(RB);

Close(FIZAP);

{------------------------------------------------------------------------}



{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО РАБОЧЕГО ФАЙЛА RB}

Writeln;

Writeln('Рабочий файл:');

Reset(RB,12);

I:=1;

Repeat

BlockRead(RB,A,1);

Writeln(I:2,'-ая запись ',A.FIO,A.God:5);

I:=I+1

Until A.FIO='**********';

Close(RB);

{------------------------------------------------------------------------}



{ПЕРЕПИСЬ ИЗ РАБОЧЕГО ФАЙЛА RB В ОБРАБАТЫВАЕМЫЙ ФАЙЛ FIZAP}

Reset(RB,12);

Rewrite(FIZAP,12);

Repeat

BlockRead(RB,A,1);

BlockWrite(FIZAP,A,1)

Until A.FIO='**********';

Close(RB);

Close(FIZAP);

{-------------------------------------------------------------------------}

{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP}

Writeln;

Writeln('Обработанный файл:');

Reset(FIZAP,12);

I:=1;

Repeat

BlockRead(FIZAP,A,1);

Writeln(I:2,'-ая запись ',A.FIO,A.God:5);

I:=I+1

Until A.FIO='**********';

Close(FIZAP);

{------------------------------------------------------------------------}



Writeln('ok')

end.

 

Program z3;

type zap=record

nazv:array[1..15] of char;

cena:real

end;

tov=file;

var nov,star:tov;

b:zap;

i:integer;

Begin

{----------------------------------------------------------------------}

{ОТКРЫТИЕ ФАЙЛА STAR НА ЗАПИСЬ}

assign(star,'c:\program\t-pas\star.dat');

rewrite(star,24);

{---------------------------------------------------------------------}

{ЗАПОЛНЕНИЕ ФАЙЛА STAR УПОРЯДОЧЕННЫМИ ПО НЕУБЫВАНИЮ ЦЕН ТОВАРОВ ЗАПИСЯМИ}

writeln('НАЗВАНИЕ ТОВАРА',' ЦЕНА(руб.)');

repeat

for i:=1 to 15 do read(b.nazv[i]);

readln(b.cena);

blockwrite(star,b,1)

until b.nazv='***************';

close(star);

{-----------------------------------------------------------------------}

{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ФАЙЛА star}

writeln;

writeln('Обрабатываемый файл:');

reset(star,24);

repeat

blockread(star,b,1);

writeln(b.nazv:15,' ',b.cena:6:2)

until b.nazv='***************';

close(star); end.

{-----------------------------------------------------------------------}

{ВВОД С ТЕРМИНАЛА ПОЛЕЙ НОВОЙ ЗАПИСИ}

{-----------------------------------------------------------------------}

{ВСТАВКА НОВОЙ ЗАПИСИ}

{-----------------------------------------------------------------------}

{ПЕРЕПИСЬ ДАННЫХ ИЗ НОВОГО ФАЙЛА В СТАРЫЙ И ИХ ПЕЧАТЬ}

{----------------------------------------------------------------------}

{ЗАКРЫТИЕ ФАЙЛОВ}

{------------------------------------------------------------------------}



end.

 



<== предыдущая лекция | следующая лекция ==>
Операции над файлами | Вопрос. Прогнозирование: сущность, виды, методы


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.004 сек.