Mọi người giúp mik với ạ. Mik hứa sẽ vote 5 sao
Viết phương trình pascal: Cho 1 tờ giấy có độ dài x (mm). Phải gấp đôi bao nhiêu lần để độ dài nó hơn y (m).
Input: 2 số thực x,y
Output: số lần gấp thỏa yêu cầu
VD: có x=0.1 (mm) và y=1 (m) .Nếu gấp đôi số thực x 14 lần thì x=x*2^14=1638.4(mm)>1(m).
Nếu gấp đôi x 13 lần thì x=x*2^13=819.2(mm)<1(m) nên ko phù hợp
Lưu ý: Mik cần dạng đơn giản nhất có thể. Nếu thắc mắc thì comment bên dưới ạ
Program HOIDAP247;
var x,y: real;
d: integer;
begin
write(‘Nhap x=’); readln(x);
write(‘Nhap y=’); readln(y);
y:=y*1000;
d:=0;
while y>=x do
begin
x:=x*2;
d:=d+1;
end;
write(d);
readln
end.
program oken;
uses crt;
var x,y: real;
dem: longint;
begin
clrscr;
write(‘Nhap x: ‘); readln(x);
write(‘Nhap y: ‘); readln(y);
dem:=0; y:=y*1000;
while x<=y do
begin
dem:=dem+1;
x:=x*2;
end;
writeln(‘So lan phai gap: ‘,dem);
writeln(‘Ket qua: ‘,x:0:3);
readln;
end.