Санның коды берілген).
2-мысал негізінде «Санның үлкені» тақырыбында жоба жұмы-
if max <b then max:=b;
if max <c then max:=C;
4.32-сурет. Модульдік ортадағы
TM-
wоні .
ен-
ген
Практикалық жұмыс
IH
№ 1- тапсырма
да
р-
га
сын жасаңдар.
а
yar a, B, C, max: integer;
begin
readln (a, , c);
max:=a;
procedure TForm1.
Button1Click(Sender: TObject);
var a,b,c, max:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
C:=StrToInt(edit3.text);
max:=a;
if max <b then max:=b;
if max < c then max:=c;
edit4.text:=IntToStr(max);
writeln(max);
end.
end; ;
4.33-сурет. Визуалды ортадағы
программа коды
программа коды​

Maksat3232123 Maksat3232123    2   25.01.2021 12:57    1

Другие вопросы по теме Информатика