Pascal — ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B) — ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ A Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ B. ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ ΡΠΈΡΠ΅Π». Div, Mod.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ
ΡΠΈΡΠ΅Π». Div, Mod.
ΠΠΎΠ΄: ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π’ΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ . Π¦Π΅Π»ΡΠ΅ ΠΈ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΡΠ»Π°.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π’ΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
. Π¦Π΅Π»ΡΠ΅ ΠΈ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΡΠ»Π°.
Π’ΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
Π² ΡΠ·ΡΠΊΠ°Ρ
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΊΠ°ΠΊΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ, Π² ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅, ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ. ΠΠ°ΡΠΊΠ°Π»Ρ Ρ
Π°ΡΠ°ΠΊΡΠ΅ΡΠ΅Π½ ΡΡΡΠΎΠ³ΠΎΠΉ ΡΠΈΠΏΠΈΠ·Π°ΡΠΈΠ΅ΠΉ. ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠ»ΠΎΠ²Π°.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠ»ΠΎΠ²Π°. ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠΌΠ΅Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΡ).
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠΌΠ΅Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΡ).
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π°Π΄Π°Π΅ΡΡΡ Π² ΠΠ°ΡΠΊΠ°Π»Ρ Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ?
Pascal. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π°Π΄Π°Π΅ΡΡΡ Π² ΠΠ°ΡΠΊΠ°Π»Ρ Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ?
ΠΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
Π² ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ°ΡΠΊΠ°Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°ΠΌΠΈ: read() ΠΈ readln().
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°Π΄Π°ΡΠ°: ΠΠ°Π½ΠΎ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ. ΠΡΠ»ΠΈ ΠΎΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌ, ΡΠΎ ΠΏΡΠΈΠ±Π°Π²ΠΈΡΡ ΠΊ Π½Π΅ΠΌΡ 1; Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ Π΅Π³ΠΎ. ΠΡΠ²Π΅ΡΡΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΠ°Π΄Π°ΡΠ°: ΠΠ°Π½ΠΎ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ. ΠΡΠ»ΠΈ ΠΎΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌ, ΡΠΎ ΠΏΡΠΈΠ±Π°Π²ΠΈΡΡ ΠΊ Π½Π΅ΠΌΡ 1; Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ Π΅Π³ΠΎ. ΠΡΠ²Π΅ΡΡΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ.
ΠΠΎΠ΄: ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ) ΡΡΠ½ΠΊΡΠΈΡ Random, ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Randomize.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ) ΡΡΠ½ΠΊΡΠΈΡ Random, ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Randomize.
1. ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ.
Π€ΡΠ½ΠΊΡΠΈΡ Random Π² ΠΠ°ΡΠΊΠ°Π»Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΡ
ΡΠΈΡΠ΅Π».
program Random_1;
{ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΡ Random}
var
sN: integer; {ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π»Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΡΠ΅Π²Π΄ΠΎΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π°}
begin
WriteLn('ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄Π»Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Random');
sN := Random(10) + 1; {ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» [0..9]+1, Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» [1..10]}
WriteLn('Π‘Π»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ : ', sN);
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
Readln();
end.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
ΠΡΠΎΡΡΠΎΠΉ ΠΊΠΎΠ΄ Π½Π° ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
ΠΡΠΎΡΡΠΎΠΉ ΠΊΠΎΠ΄ Π½Π° ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal). ΠΡΠΎΡΠΈΡΠ°ΡΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ°ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ »
Π‘ΠΊΠ°ΡΠ°ΡΡ Free Pascal
Π‘ΠΊΠ°ΡΠ°ΡΡ Free Pascal.
Π§ΡΠΎΠ±Ρ Π½Π°ΡΡΠΈΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ, ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΈΠ·ΡΡΠΈΡΡ Ρ
ΠΎΡΡ Π±Ρ ΠΎΠ΄ΠΈΠ½ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π ΡΡΠΎΠΌ ΠΏΠ»Π°Π½Π΅, ΠΎΡΠ΅Π½Ρ ΡΠ΄ΠΎΠ±Π΅Π½ ΡΠ·ΡΠΊ ΠΠ°ΡΠΊΠ°Π»Ρ (Pascal). ΠΠ½ ΡΡΠΈΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ. ΠΠ»Ρ Π½Π°ΡΠΈΡ
ΡΠ΅Π»Π΅ΠΉ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΊΠ°ΡΠ°ΡΡ Free Pascal. Π‘ΠΊΠ°ΡΠ°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎ ΡΡΠΎΠΉ ΡΡΡΠ»ΠΊΠ΅: Free Pascal
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ, ΠΠ°ΡΠΊΠ°Π»Ρ:
ΠΠ°ΡΠΊΠ°Π»Ρ ΡΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ char.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅, ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ
ΡΠΈΡΠ΅Π». Div, Mod.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). Π’ΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
. Π¦Π΅Π»ΡΠ΅ ΠΈ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΡΠ»Π°.
Π€ΡΠ½ΠΊΡΠΈΡ inc (A, B), dec (A, B) Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
ΠΠ°ΠΊ Π² ΠΠ°ΡΠΊΠ°Π»Π΅ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ?
ΠΠ°ΡΡΠΈΠ² Π² ΠΠ°ΡΠΊΠ°Π»Π΅ (Pascal).