Программа

FUNCTION GetX(T:real):real; { Функция вычисления X }
  Begin
    if T<=0.5 { Сравнение аргумента с граничным значением }
    then GetX:=Cos(2*Pi*T) { Определение значения функции при T<=0.5 }
    else GetX:=4*T-3       { Определение значения функции при T>0.5 }
  End;
FUNCTION GetY(T:real):real; { Функция вычисления X }
  Begin
    if T<=0.5 { Сравнение аргумента с граничным значением }
    then GetY:=Sin(2*Pi*T) { Определение значения функции при T<=0.5 }
    else GetY:=0           { Определение значения функции при T>0.5 }
  End;
VAR Tstart,Tfinish:real; { Начальное и конечное значения аргумента }
    T:real; { Аргумент }
    Step:real; { Шаг изменения аргумента }
    i:integer; { Счетчик }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите начальное значение параметра t '); { Вывод приглашения }
  ReadLn(Tstart); { Ввод начального значения параметра }
  Write('Введите конечное значение параметра t '); { Вывод приглашения }
  ReadLn(Tfinish); { Ввод конечного значения параметра }
  Write('Введите шаг параметра t '); { Вывод приглашения }
  ReadLn(Step); { Ввод шага параметра }
  WriteLn; { Пропуск строки }
  { Вывод шапки таблицы: }
  WriteLn('+---------------------------+');
  WriteLn('|   t   |    x    |    y    |');
  WriteLn('+---------------------------+');
  { Цикл табулирования функции: }
  for i:=0 to Round((Tfinish-Tstart)/step) do
  begin
    T:=Tstart+i*Step; { Вычисление параметра }
    WriteLn('|  ',T:4:2,' | ',GetX(T):6:3,'  | ',GetY(T):6:3,'  |')
  end;
  Write('+---------------------------+') {Закрытие таблицы }
END.