Обработка символов в языке Turbo Pascal

Задание:

В начальном тексте применить числовые записи в виде 01.10.77 или 00.17.56 (что может означать 1 число 10 месяца 77 года или 00 часов 17 мин. 56 сек.). Составить программу, которая сокращенную запись в тексте заменяла бы полной. Результат вывести на печать.

Выбор алгоритма решения задачи:

В данной работе необходимо объявить две переменные, в какие мы будем вносить дату и время. А затем разбить их на составляющие.

Описание решения задачи:

Данную задачу можно решить следующим способом: объявляем две переменные DATE, TIME. И с помощью функции Copy получаем то, что нам необходимо (Copy (STR, n1, n2) – выделяет из сроки подсроку.

Схема алгоритма решения задачи

Текст программы:

program lab;
label 1;
var
i,s,sum,sum_gl:byte;
m:set of char;
date,time:string;
Begin
Writeln('vvesty DATE (01.01.00)');
readln(date);                                  {ввод даты}
Writeln('vvesty TIME (01.17.56)');
readln(time);                      {ввод времени}
Writeln('-------------DATE---------------');
Writeln('Day: ',Copy(date,1,2));                {копирование текста с первой по вторую}
Writeln('Month: ',Copy(date,4,2));            {копирование текста с четвертой пятую}
Writeln('Year: ',Copy(date,7,2));               {копирование текста с седьмой по восьмую}
Writeln('-------------TIME---------------');
Writeln('Hour: ',Copy(time,1,2));              {копирование текста с первой по вторую}
Writeln('Minute: ',Copy(time,4,2));                       {копирование текста с четвертой пятую}
Writeln('Second: ',Copy(time,7,2));                       {копирование текста с седьмой по восьмую}
readln;
end.

Результати роботи програми: