18-04-2011, 02:43 AM
كود :
function mathoperation(a, d: integer ; sig :string):integer;
begin
if sig = '+' then Result := a+d ;
if sig = '-' then Result := a-d ;
if sig = '*' then Result := a*d ;
end;التعديل في كتابة الشرط
If .... then
أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام