Lập trình tìm tất cả các cách thay thế các dấu ? bởi các phép tính +, -, *, / trong biểu thức dưới đây sao cho biểu thức có giá trị bằg 35:
((((1 ? 2) ? 3) ? 4) ? 5) ?6
Uses crt; Var s:string; procedure dq(a:string;b:real;c:integer); Var x:string; Begin If (length(a)=20)and(b=35) then Begin Delete(a,length(a),1); Writeln(a); end else If c<7 then Begin str(c,x); dq(a+'+'+x+')',b+c,c+1); dq(a+'*'+x+')',b*c,c+1); dq(a+'/'+x+')',b/c,c+1); dq(a+'-'+x+')',b-c,c+1); end; end; Begin s:='((((1'; dq(s,1,2); readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Thầy ơi cho em xin chương trình bài này
Trả lờiXóaUses crt;
Trả lờiXóaVar s:string;
procedure dq(a:string;b:real;c:integer);
Var x:string;
Begin
If (length(a)=20)and(b=35) then Begin Delete(a,length(a),1); Writeln(a); end else
If c<7 then
Begin
str(c,x);
dq(a+'+'+x+')',b+c,c+1);
dq(a+'*'+x+')',b*c,c+1);
dq(a+'/'+x+')',b/c,c+1);
dq(a+'-'+x+')',b-c,c+1);
end;
end;
Begin
s:='((((1';
dq(s,1,2);
readln;
end.