Контрольная работа по "Информатике"
Автор: Vinara99 • Февраль 19, 2019 • Контрольная работа • 250 Слов (1 Страниц) • 430 Просмотры
Есеп№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);
...