Размещено 4 года назад по предмету
Информатика
от dinanurmanova005
сын жасаңдар . 2 - мысал негізінде « Санның үлкені » тақырыбында жоба жұмы- var a , B , C , max : integer ; if max < b then max : = b ; if max < c then max : = C ; 4.32 - сурет . Модульдік ортадағы гкен- Практикалық жұмыс санның Ылған санның коды берілген). елген йтын Энда дер- № 1- тапсырма арға Ына сін- begin readln (a, B, с); max:=a; writeln(max); де procedure TForml. Button1Click(Sender: TObject); var a,b,c,max:integer; begin a:=StrToInt(edit1.text); b:=Str'ToInt(edit2.text); C:=StrToInt(edit3.text); max:=a; if max <b then max:=b; if max <c then max:=c; edit4.text:=IntToStr(max); SIN.L. HVLƏSUVEVS end. end; программа коды 4.33-сурет. Визуалды ортадағы программа коды