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

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

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

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
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
    Bài
    212
    Cảm ơn
    123
    Điểm
    401/54 bài viết
    VR power
    0

    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
    Bài
    1.072
    Cảm ơn
    139
    Điểm
    330/263 bài viết
    VR power
    0

    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
    Bài
    212
    Cảm ơn
    123
    Điểm
    401/54 bài viết
    VR power
    0

    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
    51
    Cảm ơn
    16
    Điểm
    7/5 bài viết
    VR power
    0

    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
    11
    Cảm ơn
    3
    Điểm
    3/3 bài viết
    VR power
    0

    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.028
    Cảm ơn
    1.229
    Điểm
    351/254 bài viết
    VR power
    7

    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
  •