Π€ΡΠ½ΠΊΡΠΈΡ sqrt() pascal.
Π€ΡΠ½ΠΊΡΠΈΡ sqrt() pascal.
ΠΠΎΡΠ΅Π½Ρ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΈΠ· ΡΠΈΡΠ»Π°.
program Sqrt_Task;
// sqrt(n) pascal
var
w_Num, L: word;
r_Num: real;
begin
//Π²Π²ΠΎΠ΄ΠΈΠΌ ΡΠΈΡΠ»ΠΎ Π΄Π»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° read
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ ');
Read(w_Num);
r_Num := sqrt(w_Num);
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ sqrt(n)
Writeln('Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ sqrt(n): ', r_Num: 8: 2,
', ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΊΠΎΡΠ΅Π½Ρ ΠΈΠ·: ', w_Num);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ sqrt(n)
repeat
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ 1 (Π΅Π΄ΠΈΠ½ΠΈΡΠ°) ΠΏΠΎΡΠΎΠΌ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn(L);
until L = 1;
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠΎΡΠ΅Π½Ρ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΈΠ· ΡΠΈΡΠ»Π° Π² ΠΠ°ΡΠΊΠ°Π»Π΅.