Viết chương trình tính $\sqrt[y]{x}$ (pascal)

2 câu trả lời

Mình sữ dùng phép toán exp() lấy logarit nepe cơ số e của số x (ex) và Ln lấy logarit của số x(e=2.71828) để tính

CT

program laycan;
var x,y:integer;
can:real;
BEGIN
write('Nhap x:');
readln(x);
write('Nhap y: ');
readln(y);

if (x < 0) and (y mod 2 =0)  then writeln('loi') else

begin

can:=exp((1/y)*ln(x));
write(can:2:2);

end;
readln;
END.

$\huge\text{$\sqrt[y]{x}$=$x^{\frac{1}{y}}$ }$

uses crt;
var x,y:longint;
begin
clrscr;
   write('Nhap x,y: ');readln(x,y);
   writeln('Ket qua: ',exp((1/y)*ln(x)):0:10);
readln
end.

Câu hỏi trong lớp Xem thêm