...

View Full Version : Delphi calc code need help



boneful
10-03-2011, 04:52 PM
Hi, I am new here :) Need help
here is my code FULL CODE HERE! (http://paste.ideaslabs.com/show/OJ17OQW1Fh), but function y=10^x doesnt work right! well it works great while x = (0,1,2,3,4....) but when x is negative (-1,-2,-3) it doesnt work. I have been trying to fix it for a while now :)

i hope u will help my :)

if process_action='y=10^x' then

begin

if strtoint(edit1.text) >; 0 then
begin
calculated_value:=1;
m:=10;
for i:=1 to strtoint(edit1.text) do
calculated_value:=calculated_value*m;
end;
if strtoint(edit1.text) <; 0 then
begin
x:= strtoint(edit1.text) *-1;

calculated_value:=1/n;
n:=1;
m:=10;
for i:=1 to x do
n:=n*m;
end;
end;



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum