Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Bóc hộp Wiko Getaway giá rẻ, dáng đẹp và Selfie thì cực Chất

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Mời anh em tham gia Vn-zoom support team

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tin tức công nghệ sản phẩm mới
kết quả từ 1 tới 6 trên 6
  1. #1
    utit_9x's Avatar
    utit_9x vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2010
    Đến từ
    Hanoi, Vietnam, Vietnam
    Bài
    237
    VZD
    1.192
    Cảm ơn
    123
    Điểm
    410/61 bài viết

    Default Tính diện tích tam giác bằng He-Rong

    Code:
    var
    a,b,c,S,p: real;
    begin
    writeln('Hay nhap vao 3 canh cua tam giac: ');
    read(a,b,c);
    p:=(a+b+c)/2;
    S:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Dien tich tam giac = ',S);
    readln;
    end.
    Mình check bằng Free Pascal 2.6 thì ko xuất hiện lỗi nhưng kết quả ko hiện ra màn hình . Ai giúp với? tks

  2. #2
    2111002778's Avatar
    2111002778 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    May 2012
    Đến từ
    HCM
    Bài
    1.133
    VZD
    472
    Cảm ơn
    159
    Điểm
    346/272 bài viết

    Default

    Trích utit_9x View Post
    Code:
    var
    a,b,c,S,p: real;
    begin
    writeln('Hay nhap vao 3 canh cua tam giac: ');
    read(a,b,c);
    p:=(a+b+c)/2;
    S:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Dien tich tam giac = ',S);
    readln;
    end.
    Mình check bằng Free Pascal 2.6 thì ko xuất hiện lỗi nhưng kết quả ko hiện ra màn hình . Ai giúp với? tks
    passcal này có cần lệnh dừng màn hình giống như là C++ ko ta , mình k rõ , tại nếu k ra kết quả thì mình nghĩ là do chưa có lệnh đó

  3. Có 1 thành viên cảm ơn 2111002778 cho bài viết này:
    utit_9x (06-09-2012)

  4. #3
    utit_9x's Avatar
    utit_9x vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2010
    Đến từ
    Hanoi, Vietnam, Vietnam
    Bài
    237
    VZD
    1.192
    Cảm ơn
    123
    Điểm
    410/61 bài viết

    Default

    Trích 2111002778 View Post
    passcal này có cần lệnh dừng màn hình giống như là C++ ko ta , mình k rõ , tại nếu k ra kết quả thì mình nghĩ là do chưa có lệnh đó
    readln; là lệnh dừng màn hình mak ko biết pascal của mình chắc cũng ko bị lỗi tại viết cái khác chạy đk

  5. #4
    Blackdiamond94's Avatar
    Blackdiamond94 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jun 2011
    Bài
    49
    VZD
    344
    Cảm ơn
    16
    Điểm
    7/5 bài viết

    Default

    có vấn đề với pascal rồi, bạn lập trình đúng mà

  6. Có 1 thành viên cảm ơn Blackdiamond94 cho bài viết này:
    utit_9x (06-09-2012)

  7. #5
    devilluv's Avatar
    devilluv vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jul 2010
    Bài
    12
    VZD
    143
    Cảm ơn
    4
    Điểm
    3/3 bài viết

    Default

    thử thay real bằng các tập số khác đi xem có được không

  8. Có 1 thành viên cảm ơn devilluv cho bài viết này:
    utit_9x (06-09-2012)

  9. #6
    2219263's Avatar
    2219263 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Jun 2009
    Bài
    1.051
    VZD
    3.574
    Cảm ơn
    1.268
    Điểm
    358/258 bài viết

    Default

    alt + f5 để xem kết quả, nếu không có thì có lỗi.
    bạn thử tách câu lện nhập a,b,c ra riêng coi.
    mà mình thấy chạy turbo chắc ra kết quả đó, free mình trường mình dùng chẳng bao giờ ra kết quả hết!

  10. Có 1 thành viên cảm ơn 2219263 cho bài viết này:
    utit_9x (06-09-2012)

 

 

Quyền sử dụng

  • 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ể tự sửa bài viết của mình
  •