Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B) — ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ A Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ B.
Π€ΡΠ½ΠΊΡΠΈΡ dec (A, B) — ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ A Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ B.
ΠΠΎΠ΄:
program Inc_dec_Task;
//ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° inc, dec Π² ΠΠ°ΡΠΊΠ°Π»Π΅
var
i_Num1, i_Num2: integer;
begin
i_Num1 := 10;
i_Num2 := 3;
Writeln('ΠΡΠ»ΠΎ i_Num1: ', i_Num1);
Writeln('ΠΡΠ»ΠΎ i_Num2: ', i_Num2);
Writeln('Π€ΡΠ½ΠΊΡΠΈΡ: inc(i_Num1,i_Num2)');
Inc(i_Num1, i_Num2); // ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num1: ', i_Num1, ' ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅');
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num2: ', i_Num2);
Writeln('Π€ΡΠ½ΠΊΡΠΈΡ: dec(i_Num1,4)');
Dec(i_Num1, 4); //ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΠ΅
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num1: ', i_Num1, ' ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΠ΅');
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num2: ', i_Num2);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
ΠΡΠΎΡΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ. Π ΡΡΠΎ ΡΠ»ΡΡΠ°Π΅, ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ B ΡΠ°Π²Π½ΠΎ 1.
Π ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ A ΡΠ½Π°ΡΠ°Π»Π° ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΠΌ Π½Π° 1, Π° ΠΏΠΎΡΠΎΠΌ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΠΌ Π½Π° 1.
ΠΠΎΠ΄:
program Inc_dec_1_Task;
//ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° inc, dec Π² ΠΠ°ΡΠΊΠ°Π»Π΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ 1
var
i_Num1: integer;
begin
i_Num1 := 10;
Writeln('ΠΡΠ»ΠΎ i_Num1: ', i_Num1);
Writeln('Π€ΡΠ½ΠΊΡΠΈΡ: inc(i_Num1)');
Inc(i_Num1); // ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ Π½Π° 1
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num1: ', i_Num1, ' ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ Π½Π° 1');
Writeln('Π€ΡΠ½ΠΊΡΠΈΡ: dec(i_Num1)');
Dec(i_Num1); //ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΠ΅ Π½Π° 1
Writeln('Π‘ΡΠ°Π»ΠΎ i_Num1: ', i_Num1, ' ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΠ΅ Π½Π° 1');
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π€ΡΠ½ΠΊΡΠΈΡ inc (A), dec (A) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal), Π±Π΅Π· Π²ΡΠΎΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΠ°Π²Π½Π° 1 (Π΅Π΄ΠΈΠ½ΠΈΡΠ΅).