最近剛上Delphi,可是老師啥都沒教,就跟我們講觀念而已,就叫我們寫程式,都要自學...,所以有些問題,請大大們幫幫忙了 謝謝
這是一個計算機的問題,要寫註釋,不太懂,請幫幫忙告知一下 謝謝
數字鍵的程式碼
num1:=num1 button7.Caption;
label1.Caption:=num1;
的程式碼
begin
if op1=0 then
begin
op1:=1;
a:=strtoint(num1);
num1:=' ';
end
else
begin
b:=strtoint(num1);
num1:=' ';
op2:=1;
end;
if op2>0 then
begin
cal();
label1.Caption:=inttostr(a);
end;
end;
-的程式碼
begin
if op1=0 then
begin
op1:=2;
a:=strtoint(num1);
num1:=' ';
end
else
begin
b:=strtoint(num1);
num1:=' ';
op2:=2;
end;
if op2>0 then
begin
cal();
label1.Caption:=inttostr(a);
end;
end;
x的程式碼
begin
if op1=0 then
begin
op1:=3;
a:=strtoint(num1);
num1:=' ';
end
else
begin
b:=strtoint(num1);
num1:=' ';
op2:=3;
end;
if op2>0 then
begin
cal();
label1.Caption:=inttostr(a);
end;
end;
=的程式碼
begin
if op1=0 then
label1.Caption:='error'
else
begin
b:=strtoint(num1);
op2:=5;
cal();
end;
label1.Caption:=inttostr(a);
op1:=0;
op2:=0;
num1:=' ';
a:=0;
b:=0;
end;
清除的程式碼
begin
op1:= 0;
op2:= 0;
num1:=' ';
a:=0;
label1.Caption:='0';
end;
procedure cal();
begin
if op2>0 then
begin
if op1=1 then
begin
a:=a b;
op1:=op2;
op2:=0;
b:=0;
end
else if op1=2 then
begin
a:=a-b;
op1:=op2;
op2:=0;
b:=0;
end
else if op1=3 then
begin
a:=a*b;
op1:=op2;
op2:=0;
b:=0;
end;
end;
end;
/ 的程式碼要怎麼寫呢? 還有每個部份是什麼意思呢? 還有要自學 要 買那本書看比較好呢? 請各位大大指點一下 謝謝

老師要您寫作業, 且只是要寫註釋, 就是要您看書去瞭解語法, 怎麼要人代您寫作業呢?