Помогите найти ошибку "Работа с файлами (Pascal)"

[Pro_overrseer]

Задание ниже.
В чём ошибка?

program Z1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var a, b,t, y, bt, at: real;
begin
{Vvod dannx}
Write ('Vvedite a, b');
Readln (a,b);
{vochislenie resultata }
y:= a*t*t;
if t<1 then y:=1
else y:= a*t*t*ln(t);
if t>2 then y:= exp(at)*cos(bt)
else y:= a*t*t*ln(t);
{print}
Writeln ('a=' , a: 8:3, 'b=' , b:8:3);
Writeln ('Result: y=', y:8:3);
Writeln ('End program.');
Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ViktorR]

Ошибка в том, что переменная t у Вас не инициализированна.
Из задания видно, что t может принимать некоторый диапазон значений.
Введи некоторое начальное и конечное значения для t, а так же некоторый шаг.
Организуй цикл, в котором t будет меняться от начального значения до конечного с заданным шагом. Типа:

read(tbeg, tend, dt);
t := tbeg;
while (t <= tend) do begin
   <операторы для вычисления функции> 
   <операторы для вывода полученных значений>
   t := t + dt;
end;

Как-то так, ...

[Pro_overrseer]

А куда этот кусок вставлять, не могли бы вы мне полностью написать, а то я так плохо понял.

[ViktorR]

Вроде так:

program Z1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var a, b,t, y, bt, at: real;
begin
{Vvod dannx}
Write ('Vvedite a, b');
Readln (a,b);
Writeln ('a=' , a: 8:3, 'b=' , b:8:3);
read(tbeg, tend, dt);
t := tbeg;
while (t <= tend) do begin
   if t<1 then
       y:=1
   else
      if ((t >= 1) AND (t <= 2)) then
         y:= a*t*t*ln(t);
      else
         y:= exp(a*t)*cos(b*t);
 {print}
Writeln ('Result: t = ', t, '  y= ', y:8:3);
   t := t + dt;
end;
Writeln ('End program.');
Readln;
end.

Но... Проверь, так как я не могу проверить.


Как-то так, ...