Kết quả 1 đến 3 của 3

Chủ đề: Bài pascal hay..

  1. #1
    Đệ tử ĐDT Member
    Ngày tham gia
    27 Mar 2009
    Đang ở
    Học viện ma thuật
    Tuổi
    31
    Bài viết
    130
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    49

    Mặc định Bài pascal hay..

    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

  2. #2
    Nhập môn đồ đệ ĐDT Member
    Ngày tham gia
    04 Sep 2010
    Bài viết
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    45

    Mặc định Re: Bài pascal hay..

    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.

  3. #3
    Tu luyện đệ tử ĐDT Member xoxodetoan's Avatar
    Ngày tham gia
    06 Jan 2010
    Bài viết
    228
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    47

    Mặc định Re: Bài pascal hay..

    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.

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)

Đánh dấu

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •