pascalabcnet/InstallerSamples/!MainFeatures/01_First/AssignExt.pas

18 lines
347 B
ObjectPascal
Raw Normal View History

// Присваивания += -= *= /=
2015-05-14 22:35:07 +03:00
var
i: integer;
r: real;
begin
i := 1;
writeln('i := 1; i = ',i);
i += 2; // Увеличение на 2
2015-05-14 22:35:07 +03:00
writeln('i += 2; i = ',i);
i *= 3; // Умножение на 3
2015-05-14 22:35:07 +03:00
writeln('i *= 3; i = ',i);
writeln;
r := 6;
writeln('r := 6; r = ',r);
r /= 2;
writeln('r /= 2; r = ',r);
end.