Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ ΡΠΈΡΠ΅Π». Div, Mod.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ
ΡΠΈΡΠ΅Π». Div, Mod.
ΠΠΎΠ΄:
program Plus_Task;
//ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ div mod ΠΏΡΠΎΡΡΡΡ
ΡΠΈΡΠ΅Π» Π² ΠΠ°ΡΠΊΠ°Π»Ρ
uses crt;
var
i_Num: integer;
begin
i_Num := 2;
i_Num := 2 + i_Num; //ΡΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
Writeln('2+2 = ', i_Num);
i_Num := 7 - 4; // Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅
Writeln('7-4 = ', i_Num);
i_Num := 7 * 4; // ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅
Writeln('7*4 = ', i_Num);
i_Num := 15 div 3; // ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ div
Writeln('15 div 3 = ', i_Num);
i_Num := 56 div 5; // ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ div
Writeln('56 div 5 = ', i_Num); // ΠΏΠΎΠ»ΡΡΠΈΠΌ 11
i_Num := 56 mod 5; // ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ mod
Writeln('56 mod 5 = ', i_Num); // ΠΏΠΎΠ»ΡΡΠΈΠΌ 1
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ
ΡΠΈΡΠ΅Π» Π² (ΠΠ°ΡΠΊΠ°Π»Ρ) Pascal.
ΠΠ°ΠΊ Π½Π°ΠΉΡΠΈ ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ (ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Mod)?
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΠΏΠΎΠ΄Π΅Π»ΠΈΠΌ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ 56 Π½Π° 5. ΠΠ°ΠΊ Π² Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅. ΠΠ΅Π»ΠΈΠΌ ΡΡΠΎΠ»Π±ΠΈΠΊΠΎΠΌ:
ΠΠ°ΠΊ Π½Π°ΠΉΡΠΈ ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ (Mod), Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΡΠΎΠ»Π±ΠΈΠΊΠΎΠΌ Π² (ΠΠ°ΡΠΊΠ°Π»Ρ) Pascal.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: 11 — Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠ°ΡΡΠ½ΠΎΠ΅, 1 — ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ.
ΠΡΠΈΠ²ΠΎΠΆΡ ΡΠΎΡΠΌΡΠ»Ρ:
a=b*c+d,
Π³Π΄Π΅ a, b, c, d — ΡΠ΅Π»ΡΠ΅ ΡΠΈΡΠ»Π°. ΠΡΠΈΡΠ΅ΠΌ: a (Π΄Π΅Π»ΠΈΠΌΠΎΠ΅), b (Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ), c (Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠ°ΡΡΠ½ΠΎΠ΅ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ), d (ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ).
ΠΡΠΈΠΌΠ΅Ρ:
a=56 (Π΄Π΅Π»ΠΈΠΌΠΎΠ΅)
b=5 (Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ)
c=11 (Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠ°ΡΡΠ½ΠΎΠ΅ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ)
d=1 (ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ)
56=5*11+1
56=56 // ΠΎΡΠ²Π΅Ρ Π²Π΅ΡΠ½ΠΎ
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ:
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΡΠΎ ΡΡΡΠΎΠΊΠΎΠΉ: ΠΠ°ΠΉΡΠΈ(), Π‘ΡΠ΅Π΄(), Π‘ΡΡΠΠ»ΠΈΠ½Π°(). 1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅.
ΠΠ°ΠΊ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· Excel Π² 1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅? ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ COMObject. ΠΠ°ΡΠΈΠ°Π½Ρ 1.
Π’Π°Π±Π»ΠΈΡΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² 1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠΈ 8.0, 8.1, 8.2.
ΠΠΎΡΡΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ Π² 1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ 8.2.
ΠΠ°ΠΊ Π² ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° Π² 1Π‘:ΠΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠ΅ 8.2 Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡ?