49.Примеры решения задач обработки строковых данных.

Программа обработки массива строк

program days;

uses CRT;

var

day:array[1..7] of string[10];

i,k:byte;

begin

clrscr;

day[1]:='Sunday';

day[2]:='Monday';

day[3]:='Tuesday';

day[4]:='Wednesday';

day[5]:='Thursday';

day[6]:='Friday';

day[7]:='Saturday';

for i:=1 to 7 do {Цикл для вывода дней недели}

writeln(i,' ',day[i]);

readln;

{Вывод наименования дня недели по номеру}

writeln ('vvedite N dnya');

readln (k);

writeln ('day N ', k, ' ',day[k]);

readln;

end.

Работа с простейшим паролем

Program parol;

uses CRT;

var

name:string[30];

parol:string[6];

begin

clrscr;

writeln('vvedite parol iz 6 simvolov ');

readln(parol);

writeln;

if parol='Pascal' then begin

writeln('Vvedite famil ');

readln(name);

writeln;

writeln(name,', Vam dostup razreshen!');

end

else begin

writeln('Neverniy parol! Dostup zapreshen!');

end;

readln;

end.

50.Записи.

Формат описания типа данных:

TYPE< имя типа > =RECORD

<идентификатор поля> : <тип компонент>;

…

<идентификатор поля> : <тип компонент>;

END;

VAR

<идентификатор,…> : <имя типа>;

Например,

TYPE

STR = RECORD

FAM: STRING [35];

B1, B2, B3, B4, B5: 2..5;

sB: REAL

END;

VAR

ST1, ST2, ST3, ST4: STR;

Запись STRсодержит семь компонент: фамилию студента, оценки по пяти предметам, средний балл.

Доступ к полям записи осуществляется через переменные ST1,ST2,ST3 иST4 типаSTR.

Оператор присоединения WITH

Формат оператора присоединения:

WITH< переменная типа запись >DO< оператор >;

FOR I := 1 TO 30 DO

WITH GRUPPA [I] DO

READLN (FAM, B1, B2, B3, B4, B5);

Вложение записей друг в друга:

WITH R1 DO

WITH R2 DO

WITHR3DO

…

что эквивалентно записи

WITHR1R2R3DO…

Записи с вариантами

Формат объявления записи с вариантами:

TYPE

ZAP=RECORD

CASE<поле признака >: <имя типа >OF

<константа выбора 1 > : (поле, …: тип);

< константа выбора 2 >: (поле, …: тип);

…

…

END;

Компоненты каждого варианта (идентификаторы полей и их типы) заключаются в круглые скобки

TYPE

Замечания:

- Все имена полей должны отличаться друг от друга, даже если они встречаются в разных вариантах;

- Запись может иметь только одну вариантную часть, причем вариантная часть должна размещаться в конце записи;

- Если поле, соответствующее какой-либо метке, является пустым, то оно записывается так

< метка > : ( ) ;

51.Примеры использования данных типа «запись»

1. Программа для добавления записей в файл данных о дневной температуре воздуха

Program aprec;

uses CRT;

var

DayTemp:record { дневная температура }

day:integer; { число }

month:integer; { месяц }

temper:integer; { температура }

end;

f:text; { файл с записями о дневной температуре }

begin

clrscr;

assign(f,'a:\temper.txt');

append(f); { открываем файл для добавления записи }

write('Введите в одной строке, разделяя пробелами');

writeln(' число, номер месяца и температуру');

write('->');

with DayTemp do

begin

readln(day,month,temper);

writeln(f,day,' ',month,' ',temper);

end;

close(f);

writeln('Данные добавлены');

readln;

end.

1Происходит от имени узбекского ученого IX в. Аль-Хорезми, который в своем труде "Арифметический трактат", переведенном в XII в. с арабского на латынь, изложил правила арифметических действий над числами в позиционной десятичной системе счисления. Эти правила и называ­ли алгоритмами.