Контрольная работа по "Информатике"

Есеп№1. А бүтін саны берілген. А саны 0-ге тең болса «нөл», 1-ге тең болса «бір», 2-ге тең болса «екі», әйтпесе «Бұл санды білмеймін»  деген сөздері экранға шығуы керек.

Procedure TForm1.Button1Click(Sender:Tobject);

Var a:integer;

Begin

a:=StrToInt(edit1.text);

If a=0 then

ShowMessage(‘нөл’)

Else

If a=1 then

ShowMessage(‘бір’)

Else

If a=2 then

ShowMessage(‘екі’)

Else

ShowMessage(‘бұл санды білмеймін’);

End.

Есеп№1. А бүтін саны берілген. А саны 0-ге тең болса «нөл», 1-ге тең болса «бір», 2-ге тең болса «екі», әйтпесе «Бұл санды білмеймін»  деген сөздері экранға шығуы керек.

Procedure TForm1.Button1Click(Sender:Tobject);

Var a:integer;

Begin

a:=StrToInt(edit1.text);

If a=0 then

ShowMessage(‘нөл’)

Else

If a=1 then

ShowMessage(‘бір’)

Else

If a=2 then

ShowMessage(‘екі’)

Else

ShowMessage(‘бұл санды білмеймін’);

End.

Есеп№2. a,b,c қабырғалары берілген. Осы қабырғалардан үшбұрыш құруға бола ма? Егер болса, бағдарлама «Үшбұрыш құрайды», әйтпесе «Үшбұрыш болмайды» деген жауап беру керек.

Procedure TForm1.Button1Click(Sender:Tobject);

Var a,b,c:integer;

Begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=StrToInt(edit3.text);

If a+b>c then if a+c>b then if b+c>a then edit4.text:=‘Үшбұрыш құрайды’

Else edit4.text:=‘Үшбұрыш болмайды’ else edit4.text:=‘Үшбұрыш болмайды’

Else edit4.text:=‘Үшбұрыш болмайды’

End.

Есеп№2. a,b,c қабырғалары берілген. Осы қабырғалардан үшбұрыш құруға бола ма? Егер болса, бағдарлама «Үшбұрыш құрайды», әйтпесе «Үшбұрыш болмайды» деген жауап беру керек.

Procedure TForm1.Button1Click(Sender:Tobject);

Var a,b,c:integer;

Begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=StrToInt(edit3.text);