Вопрос 14:

версия для печати скачать Оператор выбора CASE. Позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит ключ выбора — переменная целого или символьного типа, или выражение любого порядкового типа (кроме REAL и STRING). Оператор Модуль Назначение Пример CASE SYSTEM Предназначен для выбора одного из нескольких возможных продолжений программы. Форма записи: CASE <ключ_выбора> OF <константа_выбора> : <оператор> ELSE <оператор> END; ключ_выбора — ключ выбора (порядковый тип или CHAR); константа_выбора — константа того же типа, что и ключ_выбора; оператор — произвольные операторы. VAR C:CHAR; X,Y:INTEGER; BEGIN ... READLN(C); CASE C OF '+': X:=X+Y; '–': X:=X–Y; END; ... END. Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затемв последовательности <констант_выбора> отыскивается такая, которая соответствует <ключу_выбора>, и выполняется<оператор>, который находится за соответствующей <константой_выбора>. Если в списке не будет найдена надлежащая константа, управление передаётся операторам, стоящим за словом ELSE. Часть ELSE <оператор> можно опускать. Тогда при отсутствии в списке нужной константы ничего не произойдёт, и оператор выбора завершит свою работу. Любому из операторов списка выбора может предшествовать не одна, а несколько констант выбора, разделённых запятыми. Пример программы. Program Oper_Vybora; Var X, Y : Real; C : Char; BEGIN Write('Введите два числа: '); Readln(X,Y); Write('Введите математическое действие: '); Readln(C); Case C Of '+' : Begin X:=X+Y; Writeln('Складываю...'); End; '-' : X:=X-Y; '*' : X:=X*Y; '/' : X:=X/Y; End; Writeln('Результат = ',X:12:4); END.

Вопрос 15:

Турбо Паскаль поддерживает три файловых типа:

• текстовые файлы;

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

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

Доступ к файлу в программе происходит с помощью переменных файлового типа. Переменную файлового типа описывают одним из трех способов:

file of тип - типизированный файл (указан тип компоненты); text - текстовый файл; file - нетипизированный файл.

Примеры описания файловых переменных:

var

f1: file of char;

f2: file of integer;

f3: file;

t: text;

 

Текстовый файл - это совокупность строк, разделенных метками конца строки. Сам файл заканчивается меткой конца файла. Доступ к каждой строке возможен лишь последовательно, начиная с первой. Одновременная запись и чтение запрещены.

Чтение из текстового файла:

Read(f, список переменных);

ReadLn(f, список переменных);

Процедуры читают информацию из файла f в переменные. Способ чтения зависит от типа переменных, стоящих в списке. В переменную char помещаются символы из файла. В числовую переменную: пропускаются символы-разделители, начальные пробелы и считывается значение числа до появления следующего разделителя. В переменную типа string помещается количество символов, равное длине строки, но только в том случае, если раньше не встретились символы конца строки или конца файла. Отличие ReadLn от Read в том, что в нем после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки. Если список переменных отсутствует, то процедура ReadLn(f) пропускает строку при чтении текстового файла.

Запись в текстовый файл:

Write(f, список переменных);

WriteLn(f, список переменных);

Процедуры записывают информацию в текстовый файл. Способ записи зависит от типа переменных в списке (как и при выводе на экран). Учитывается формат вывода. WriteLn от Write отличается тем, что после записи всех значений из переменных записывает еще и метку конца строки (формируется законченная строка файла).

Добавление информации к концу файла:

Append(f)

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

 Файловая переменная " f " описывается оператором Var f: Text;

В программе файловая переменная " f " связывается с именем файла на диске, оператором:

Assign(f, 'Name_f');

где Name_f - имя файла.

Например, переменная "f" связывается с файлом "file. dat" оператором Assign(f, 'file. dat'); если файл находится в текущем каталоге, иначе к нему указывает дорожка, например: 'C:\Pascal\Work\file.dat'. Связывание файловой переменной "f" с именем файла на диске аналогично присвоению "f" значения.

Для записи данных в файл его необходимо открыть оператором: