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

Ѐункция 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.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
ΠšΠΎΡ€Π΅Π½ΡŒ ΠΊΠ²Π°Π΄Ρ€Π°Ρ‚Π½Ρ‹ΠΉ ΠΈΠ· числа Π² ПаскалС
ΠšΠΎΡ€Π΅Π½ΡŒ ΠΊΠ²Π°Π΄Ρ€Π°Ρ‚Π½Ρ‹ΠΉ ΠΈΠ· числа Π² ПаскалС.

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