Π€ΡΠ½ΠΊΡΠΈΡ abs() pascal.
Π€ΡΠ½ΠΊΡΠΈΡ abs() pascal.
Π€ΡΠ½ΠΊΡΠΈΡ abs() Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°.
4=abs(-4)
4=abs(4)
program Abs_Task;
// abs(x) pascal
var
i_Num: integer;
i_AbsNum: integer;
begin
//Π²Π²ΠΎΠ΄ΠΈΠΌ ΡΠΈΡΠ»ΠΎ
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ ');
ReadLn(i_Num);
i_AbsNum := abs(i_Num);
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ abs(n)
Writeln('Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ abs(n): ', i_AbsNum,
', Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠΈΡΠ»Π°: ', i_Num);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ abs(n)
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π€ΡΠ½ΠΊΡΠΈΡ Abs () Π² ΠΠ°ΡΠΊΠ°Π»Π΅.