Блок-схема калькулятора

[SeregaIRK]

Написал калькулятор (подобие виндового) на курсовик , а блок-схему ваще не умею делать ! Помогите господа программеры ! Заранее спасибо!

[IT-man]

Fceditor в помощь!!!

[SeregaIRK]

Скачал , надо всё равно делать ! Ума не приложу как ? На обычные проги делал ! Тут просто большая блок-схема !

[pavel42]

кинь код )

[IT-man]

тогда прямая дорога сюда

[SeregaIRK]

Да времени совсем нет. Мож кто делал ? Буду очень благодарен !

[pavel42]

ты кинь код калькулятора...

[SeregaIRK]

Исходник здоровый ! Делал 1,5 года назад !Всё работает на счётчиках ! Если тока на один знак и квадраты, степени скинуть могу !

[pavel42]

я как понял тебе нужна блок схема именно твоей программы которую ты написал ???

[SeregaIRK]

{........КНОПКА +.........}

procedure TForm1.plusClick(Sender: TObject);
label p1,pp1;

var chp:extended;
    strp:string[22];

begin

strp:='';

chp:=strtofloat(edit1.Text);
if chp=0 then edit1.Text:='0';

strp:=edit1.Text;
np:=length(strp);

pi:=0;
while pi<=np do begin
pi:=pi+1;
if strp[np]=',' then begin delete(strp,np,1); np:=length(strp);
edit1.text:=strp; end;
if strp[pi]=',' then begin  copy(strp,pi,np);
if (copy(strp,pi,np))='' then goto pp1;
if strtofloat(copy(strp,pi,np))=0 then begin np:=length(strp);
delete(strp,pi,np); np:=length(strp);
edit1.Text:=strp; end; end;
end;
pp1:

sqrk:=0;
sqrtk:=0;
drk:=0;

kpz:=1;
kkp:=kkp+1;

kp2:=kp2+1;

krk:=0;

if ((kmz=1)or(kuz=1)or(kdz=1))and(kk=0) then begin km:=0; ku:=0; kd:=0;
end;
if (kr>=1)and((km>=1)or(ku>=1)or(kd>=1)) then begin  km:=0; ku:=0;
kd:=0; end;

kmz:=0; kuz:=0; kdz:=0;

if km=1 then begin ch4:=strtofloat(edit1.Text);
ch1:=ch1-ch4; edit1.Text:=floattostr(ch1); end;
if km>1 then begin ch4:=strtofloat(edit1.Text);
ch1:=chr-ch4; edit1.Text:=floattostr(ch1); end;

if ku=1 then begin ch4:=strtofloat(edit1.Text);
ch1:=ch1*ch4; edit1.Text:=floattostr(ch1); end;
if ku>1 then begin ch4:=strtofloat(edit1.Text);
ch1:=chr*ch4; edit1.Text:=floattostr(ch1); end;

if kd=1 then begin ch4:=strtofloat(edit1.Text);
if (ch4=0)or(ch1=0) then begin edit1.Text:='0'; goto p1; end;
ch1:=ch1/ch4; edit1.Text:=floattostr(ch1); end;
if kd>1 then begin ch4:=strtofloat(edit1.Text);
if (ch4=0)or(chr=0) then begin edit1.Text:='0'; goto p1; end;
ch1:=chr/ch4; edit1.Text:=floattostr(ch1); end;

kr:=0; km:=0; ku:=0; kd:=0;

if (kp>=1)and(kk=0) then goto p1;
kk:=0;

kpk:=1;

if kp1=1 then begin kp:=0; kp1:=0; ch1:=strtofloat(edit1.Text); end;
kp:=kp+1;

if kp=4 then kp:=3;
case kp of
1 : ch1:=strtofloat(edit1.Text);
2 : chr:=ch1+strtofloat(edit1.text);
3 : chr:=chr+strtofloat(edit1.Text);
end;

if kp>=2 then edit1.Text:=floattostr(chr);

p1:
ch1:=strtofloat(edit1.text);
end;


{...........КНОПКА =.......... }
procedure TForm1.ravnoClick(Sender: TObject);
label r1,r2,rr1;
var chrr:extended;
    strr:string[22];

begin

if ((kk>=1)and(((kp2=0)and(km2=0)and(ku2=0)and(kd2=0))or
((sqrtk>=1)or(sqrk>=1)or(drk>=1)))) then begin

strr:='';

chrr:=strtofloat(edit1.Text);
if chrr=0 then edit1.Text:='0';

strr:=edit1.Text;
nr:=length(strr);

ri:=0;
while ri<=nr do begin
ri:=ri+1;
if strr[nr]=',' then begin delete(strr,nr,1); nr:=length(strr);
edit1.text:=strr; end;
if strr[ri]=',' then begin  copy(strr,ri,nr);
if (copy(strr,ri,nr))='' then goto rr1;
if strtofloat(copy(strr,ri,nr))=0 then begin nr:=length(strr);
delete(strr,ri,nr); nr:=length(strr);
edit1.Text:=strr; end; end;
end;
rr1:

kp2:=0; km2:=0; ku2:=0; kd2:=0; goto r2; end;
if kp>1 then kp:=1;
if km>1 then km:=1;
if ku>1 then ku:=1;
if kd>1 then kd:=1;

kr:=kr+1;
krk:=1;


kp1:=1; km1:=1; ku1:=1; kd1:=1;

ch2:=strtofloat(edit1.Text);
if kr>=2 then kr:=2;

                        case kr of

1 : begin kr:=1;
{+} if kp=1 then begin  chr:=ch1+ch2; ch7:=ch2; end else
{-} if km=1 then begin  chr:=ch1-ch2; ch7:=ch2; end else
{*} if ku=1 then begin  chr:=ch1*ch2; ch7:=ch2; end else
{/} if kd=1 then begin if ch2=0 then goto r1; chr:=ch1/ch2;
ch7:=ch2; end; end;
2 : begin kr:=2;
{+ +} if kp=1 then begin chr:=ch7+chr; kp:=1; end
else
{- -} if km=1 then begin chr:=chr-ch7; km:=1; end
else
{* *} if ku=1 then begin chr:=ch7*chr; ku:=1; end
else
{/ /} if kd=1 then begin if chr=0 then goto r1;
chr:=chr/ch7; kd:=1; end
end;

end;
r1:
edit1.Text:=floattostr(chr);
r2:
end;


{......КНОПКА КОРЕНЬ......}
procedure TForm1.sqrtClick(Sender: TObject);
label k1,k2;
begin

kpk:=0;
kmk:=0;
kuk:=0;
kdk:=0;

sqrtk:=sqrtk+1;
ch10:=strtofloat(edit1.Text);
if edit1.Text='0' then goto k1;
if ch10>0 then goto k2 else
if ch10=0 then begin edit1.Text:='0'; goto k1; end;
k2:
chsqrt:=strtofloat(edit1.Text);
ch7:=exp(1/2*ln(chsqrt));
edit1.Text:=floattostr(ch7);
k1:
end;