Сын жасаңдар
.
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-сурет. Визуалды ортадағы
программа коды​

3648    1   25.01.2021 13:06    0