Пример программы «Автомобильные коды регионов» на Паскаль

автомобильные коды регионов на Паскаль

Простой пример программы «Автомобильные коды регионов» на Паскаль (Pascal ABC.NET). В примере осуществляется  взаимодействие  с  текстовым файлом. В файле хранятся автомобильные коды регионов. Если исходный файл не существует, то срабатывает исключение (try — except) и создается новый текстовый файл с кодами. В примере используются свои процедуры.

Код на Pascal ABC.NET выглядит так:

[code]
Program Kodes;

type cod = record
id : String[2];
Name : String[61];
end;

Var
F:Text;
C:cod;
_tmp:String;

procedure NewF(const &F:Text);
begin
Rewrite(F,’code.txt’);
WriteLn(F,’01 Республика Адыгея’);
WriteLn(F,’01 Республика Башкортостан’);
WriteLn(F,’03 Республика Бурятия’);
WriteLn(F,’04 Республика Алтай (Горный Алтай)’);
WriteLn(F,’102 Республика Башкортостан’);
Close(F);
end;

procedure PrintAll(const &F:Text; const &C:cod);
begin
Assign(F,’code.txt’);
Reset(F);
While not EOF(F) do
begin
ReadLn(F,C.id,C.Name);
WriteLn(C.id,C.Name);
end;
Close(F);
end;

Begin
While (_tmp<>’exit’) do
begin
Write(‘Вывод: все — all, поиск — строка, выход — exit:’);
Readln(_tmp);
if (_tmp=’all’) then
try
PrintAll(F,C);
except
WriteLn(‘Файл не найден!!! Создан новый файл.’);
NewF(F);
end;
end;
End.
[/code]

Процедура PrintAll выводит все коды, NewF создает новый файл с кодами. Цикл While (_tmp<>’exit’) не дает вводит что попало.

1 Star2 Stars3 Stars4 Stars5 Stars (2 голосов, средний:5,00 из 5)
Вы можете пропустить чтение записи и оставить комментарий. Размещение ссылок запрещено.
Оставить комментарий