viết chương trình tìm tất cả các cách thay dấu ? bởi các phép tính +,-,*,/ sao cho biểu thức dưới đây có nghiệm đúng...
((((1?2)?3)?4)?5)?6=36
Đấy chỉ là 1 trường hợp cụ thể..ai có thể code bài toán tổng quát thì post lên nhé
viết chương trình tìm tất cả các cách thay dấu ? bởi các phép tính +,-,*,/ sao cho biểu thức dưới đây có nghiệm đúng...
((((1?2)?3)?4)?5)?6=36
Đấy chỉ là 1 trường hợp cụ thể..ai có thể code bài toán tổng quát thì post lên nhé
Thay vì spam 10 bài hãy viết 1 bài có ý nghĩa bạn nhé
Đọc không thanks uổng công người post
Thanks không đọc mất nghĩa chữ thanks
Code:uses wincrt; var i1,i2,i3,i4,i5,a,b,c,d,e,f,g:integer; s,dau:string; function tinh(i:integer;a,b:real):real; var t:real; begin case i of 1: t:=a+b; 2: t:=a*b; 3: t:=a-b; 4: t:=a/b; end; tinh:=t; end; begin clrscr; writeln('Code: Vo Doi - hamrong.net'); writeln('Phuong trinh tong quat: (((((a?b)?c)?d)?e)?f)=g'); write('Nhap a, b, c, d, e, f, g: '); readln(a,b,c,d,e,f,g); dau:='+*-/'; for i1:=1 to 4 do for i2:=1 to 4 do for i3:=1 to 4 do for i4:=1 to 4 do for i5:=1 to 4 do if tinh(i5,tinh(i4,tinh(i3,tinh(i2,tinh(i1,a,b),c),d),e),f)=g then writeln('(((((',a,dau[i1],b,')',dau[i2],c,')',dau[i3],d,')',dau[i4],e,')',dau[i5],f,')=',g); readln; end.
Lần sửa cuối bởi MegaShares, ngày 25-11-2010 lúc 07:06 PM.
Bây giờ đọc mới thấy bài pascal hay phết!
Lần sửa cuối bởi xoxodetoan, ngày 08-12-2010 lúc 09:05 PM.
Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)
Đánh dấu