//
you're reading...
100 bài tập Pascal cơ bản, Bài tập huấn luyện, Dùng cho cấp THCS

100 bài tập dành cho THCS – Bài 04

100 bài tập dành cho THCS

Trang này của Nguyễn Công Tác

Bấm vào các liên kết dưới đây để xem các trang liên quan:


Mục lục
Về trang trước – Bài 03
Đến trang sau – Bài 05


Bài 03:

Viết chương trình tính diện tích của tam giác có ba cạnh là a,b,c (được nhập từ bàn phím)

Hướng dẫn:
– Nhập ba cạnh của tam giác vào ba biến a,b,c.
– Nửa chu vi của tam giác p = (a+b+c)/2.
– Diện tích của tam giác: s = sqrt(p.(p-a).(p-b).(p-c)).

Phần mã sẽ được trình bày trong vùng màu xám như dưới đây:


Mẫu chương trình


Program TAM_GIAC;
uses crt;
Var a,b,c,p,S: real;
Begin
     clrscr;
     Write('Nhap canh a:');readln(a);
     Write('Nhap canh b:');readln(b);
     Write('Nhap canh c:');readln(c);
     p:=(a+b+c)/2;
     S:= sqrt(p*(p-a)*(p-b)*(p-c));
     Write('Dien tich tam giac la:',s:10:2);
     readln
end.

Nhận xét: Ở đây ta lại hai lần dùng biến trung gian p, s để chương trình sáng sủa, dễ theo dõi. sqrt là hàm có sẵn của turbo pascal. Nó cho phép tính căn bậc hai của một số không âm.


Kết quả in ra
Nhap canh a:
Nhap canh b:
Nhap canh c:
Dien tich tam giac la:


Nguồn tài liệu

Bộ phận chuyên môn Phòng GD&ĐT Quế Sơn biên soạn.


Giải thuật và lập trình – Lê Minh Hoàng
Trang bài học Pascal cơ bản
Dự phòng
Dự phòng

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Chưa có phản hồi.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Danh mục

Tháng Mười Hai 2014
M T W T F S S
« Nov   Jan »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

Clouds and sky

Toss-up

Winter Sunrise

More Photos

Thống kê

  • 95,640 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: