Форум программистов [Powered by Invision Power Board]

Код


// Объявление переменных: x,q - для хранения введенных значений; k - результат 
var 
x,q,k: extended; 

begin 

// Очистка окошка ResultMemo 
ResultMemo.Clear; 

// Считывание значений 
x:= StrToFloat (XEdit.Text); 
q:= StrToFloat (QEdit.Text); 

// Вывод начальных значений в окошко ResultMemo 
ResultMemo.Lines.Add('x = '+XEdit.Text); 
ResultMemo.Lines.Add('q = '+QEdit.Text); 

// Выбор функции 
case FunctionGroup.ItemIndex of 

0: 
begin 
// Проверка и выбор выражения 
if abs(x*q) >10 then 
k:= ln(abs(exp(x))+abs(q)) 
else if abs(x*q)<10 then 
k:= exp(exp(x)+q) 
else 
k:= exp(x)+q; 
end; 

1: 
begin 
// Проверка и выбор выражения 
if abs(x*q)>10 then 
k:= ln(abs(Math.Power(x,2))+abs(q)) 
else if abs(x*q)<10 then 
k:= exp(Math.Power(x,2)+q) 
else 
k:= Math.Power(x,2)+q; 
end; 

2: 
begin 
// Проверка и выбор выражения 
if abs(x*q)>10 then 
k:= ln(abs(Math.Sinh(x))+abs(q)) 
else if abs(x*q)< 10 then 
k:= exp(Math.Sinh(x)+q) 
else 
k:= Math.Sinh(x)+q; 
end; 

end;

Код


[Hint] Unit1.pas(62): Value assigned to 'k' never used
[Hint] Unit1.pas(64): Value assigned to 'k' never used
[Hint] Unit1.pas(66): Value assigned to 'k' never used
[Hint] Unit1.pas(73): Value assigned to 'k' never used
[Hint] Unit1.pas(75): Value assigned to 'k' never used
[Hint] Unit1.pas(77): Value assigned to 'k' never used
[Hint] Unit1.pas(84): Value assigned to 'k' never used
[Hint] Unit1.pas(86): Value assigned to 'k' never used
[Hint] Unit1.pas(88): Value assigned to 'k' never used

Код


...
x:= StrToFloat (XEdit.Text); 
q:= StrToFloat (QEdit.Text); 
k:= 0;
...

Цитата(floopless @ 25.9.2009, 16:51

)

В переменную k должен по идее сохраниться результат вычислений, чего не происходит..Поэтому и компилятор подсказывает что переменная k не-про-инициализирована..

Код


case FunctionGroup.ItemIndex of

0:
begin
if abs(x*q) >10 then
k:= ln(abs(exp(x))+abs(q))
else if abs(x*q)<10 then
k:= exp(exp(x)+q)
else
k:= exp(x)+q;
ResultMemo.Lines.Add('k ='+FloatToStrF(k,ffFixed,8,4));
end;