Контрольная работа: Системное программирование

implementation

{$R *.DFM}

procedure Tforma.okClick(Sender: TObject);

begin

if rbone.checked then

x:=3

else if rbtwo.Checked then

x:=0

else if rbthree.checked then

x:=0;

if rbfour.Checked then

y:=0

else if rbfive.Checked then

y:=4

else if rbsix.Checked then

y:=0;

if rbseven.Checked then

z:=0

else if rbeight.Checked then

z:=5

else if rbnine.Checked then

z:=0;

w:=x+y+z;

lbtext.Caption:='Вашаоценка '+inttostr(w)+' балловиз 12 баллов';

end;

end.

ВЫВОД: в ходе работы, я получил навыки проектирования и разработки приложений с использованием различных компонентов Delphi.