Шпаргалка по "Основам программирования"

Program M1;

  Type Lat = 'a'..'z';

       Mn  = Set Of Lat;

  Var ch        : Lat;

      A,B,C,D,E : Mn;

      k1,k2     : Integer;

  Procedure Winp(Var A:M;k:Integer);

    Var i:Integer;

  Begin

    Writeln('Вводите элементы множества (лат.буквы )');

    A:=[];

    For i:=1 To k Do begin

      Read(kbd,ch);

      Write(ch);

      a:=a+[ch]

    End;

    Writeln

  End;

  Procedure WOUT(Var A:M);

    Var ch:Lat;

  Begin

    For ch:='a' To 'z' Do

      If ch In A Then Write(' ',ch);

    Writeln

  End;

Begin

  Writeln('k1 k2=');

  Readln(k1,k2);

  Winp(A,K1);

  Winp(B,K2);

  C:=A+B; Wout(C);

  D:=A*B; Wout(D);

  E:=A-B; Wout(E);

End.

 

26.файлы. Функции и процедуры работы с файлами. Файл с точки зрения языка Паскаль - это структурированный тип данных, состоящий из  последовательности компонентов одного типа и одной длины. В каждый момент доступ может происходить только к одной компоненте. Формат описания файлового типа:  Type <имя типа>= File Of <тип компонент>; Var <имя переменной> : <имя типа>;. Для работы с файлами необходимо: 1) ввести переменную файлового типа; 2) связать имя файловой переменной с физическим именем файла с помощью процедуры Assign(); 3) Открыть файл: если для записи, то процедурой Rewrite(f), в остальных случаях процедурой Reset(f); 4) Обработать файл, используя файловые процедуры и функции; 5) Закрыть файл с помощью процедуры Close(f).    Список процедур для работы с файлами, где f - файловая переменная, Str  -строковое выражение (для имени файла ), P - переменные p1, p2, ..., pn  того же типа, что и компоненты переменной f; n - целочисленное выражение:

Assign(f,Str) - связать файловую переменую f с именем файла, этой процедурой начинается любая работа с файлом;

Rewrite(f) - создать новый файл, если он был, то его содержимое  уничтожается;

Reset(f) - открыть файл и установить указатель в начало файла;

Read(f,P) - читать из файла в переменные списка P, указатель перемешается на следующий компонент файла;

Write(f,P) - запись в файл из списка P, указатель перемешается к следующему компоненту;

Seek(f,n) - установить указатель на компонент с порядковым номером n в файле.

Функции для работы с файлами: Eof(f) - логическая функция (boolean ); возвращает True если указатель файла находится в конце файла и False в противном случае;

IOResult(f) - проверить результат последней операции с файлом, выдает 0, если не было ошибок. Чтобы применить эту функцию, нужно  поместить  директиву {$I- } (отключение контроля ошибок ввода/вывода.)

Program F1;

  Const n=100;

  Var i,a : Integer;

      f   : File Of Integer;

Begin

  WriteLn('Создание таблицы квадратов');

  WriteLn('  и запись в файл Prim.Dat');

  Assign(f,'Prim.Dat');

  Rewrite(f);   { запись таблицы в файл }

  For i:=1 To n Do Begin

    a:=i*i; Write(f,i,a)

  End;

  Close(f);

End.

 

27.текстовый файл. Функции и процедуры работы с текстовыми файлами. Текстовый файл - это файл,  состоящий из  компонентов, являющихся строками. Длина строки динамически меняется от 0 до 255. Каждая  строка завершается признаком конца строки - символами с кодами 10 и 13, которые означают перевод строки и возврат курсора. В конце  текстового файла записывается символ с кодом 26 (символ ^Z). По умолчанию в операторах Write и Writeln выбираются стандартные текстовые файлы INPUT и OUTPUT, так что записи  Writeln(OUTPUT,значение)  и Writeln (значение) эквивалентны. Файлы могут быть компонентами структурированных типов. Файлы могут быть только  глобальными  переменными. Не допускаются указатели на файл. Файлы могут быть параметрами-переменными, но не параметрами по значению - как и в стандартном Паскале. Формат описания текстовых файлов:      Var <имя переменной>: Text; Стандартный идентификатор Text зарезервирован и не может  быть  использован в других целях. Типы файлов Text и File Of Char не  эквивалентны. Текстовые  файлы предназначены для записи и чтения переменных типа string[n]. Для работы с текстовым файлом необходимо:

1) Ввести файловую переменную  текстового типа.

2) Связать логическое имя файла  (имя переменной) с физическим  именем файла с помощью процедуры Assign().

3) Открыть файл: если для чтения, то процедурой reset(f), если для записи нового файла, то rewrite(f).

4) Обработать файл, используя стандартные процедуры и функции  работы с текстовыми файлами.

5) Закрыть файл с помощью процедуры  close(f).

 В именах текстовых файлов  часто в расширении ставят .TXT и  .DOC  , например LP09.Txt и т.д.

Процедуры работы с текстовыми файлами. Здесь f:text; Ch: char; Str - строка.

Assign(f,Str); - связывание физического имени,  содержащимся  в строке Str, с логическим именем f.

Rewrite(f); открытие для создания нового текстового файла.

Reset(f); открытие уже существующего текстового файла.

Close(f); закрытие файла.

Readln(f,Str); чтение из файла f текущей строки и запись ее в Str.

Writeln(f,Str); запись строки Str в файл f.

Read(f,Ch); чтение текущего символа.

Write(f,Ch); запись символа в файл f.

Функции работы с текстовыми файлами.

Eof(f); возвращает true, если конец файла.

Eoln(f); возвращает true, если  указатель файла достиг  маркера конца строки.

Процедура Writeln(f) записывает в файл "пустую строку", а процедура Readln(f) пропускает очередную строку.

Program TF1;

   Var namfil : String[14]; { строка для имени файла }

       St     : String[80]; { информационная строка }

       f      : Text;

Begin

   Write('Введите имя файла:'); Readln(namfil);

   Writeln('Вводите строки ');

   Writeln('Пустая строка - прекратить ввод в файл ');

   Assign(f,namfil);        { Связываем f физическим именем }

   Rewrite(f);              { Открываем новый файл }

   Repeat                   { Повторить }

      Readln(St);           { вводим строку }

      Writeln(f,St)         { записываем в файл }

   Until St='';             { если st - пуста, то выход из цикла }

   Close(f);                { закрываем файл }

   Writeln('Файл создан')

End.