profile="http://gmpg.org/xfn/11"> Ѐункция inc (A, B), dec (A, B) Π² ПаскалС (Pascal). | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Ѐункция 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)
Ѐункция 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)
Ѐункция inc (A), dec (A) Π² ПаскалС (Pascal), Π±Π΅Π· Π²Ρ‚ΠΎΡ€ΠΎΠΉ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Ρ€Π°Π²Π½Π° 1 (Π΅Π΄ΠΈΠ½ΠΈΡ†Π΅).

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.