- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình tính: a] Diện tích hình chữ nhật, chu vi hình chữ nhật
b] Chu vi và diện tích tam giác
Các câu hỏi tương tự
Với thời đại công nghệ 4.0 các em học sinh không chỉ giải quyết những bài toán tính diện tích hình chữ nhật, chu vi hình chữ nhật trên sách vở. Mà các em còn được làm quen với máy tính ngay từ nhỏ, học cách viết chương trình tính diện tích hình chữ nhật, chu vi hình chữ nhật. Rất nhiều em học sinh chỉ mới lớp 3 đã thông thạo với máy tính, cách viết chương trình. Nhưng bên cạnh đó, cũng có nhiều em đang khó khăn trong vấn đề viết chương trình tính diện tích, chu vi hình chữ nhật. Do vậy, để giúp các em hiểu sâu về vấn đề này và viết chương trình dễ dàng thì cùng đón xem bài viết dưới đây nhé.
Tổng quan về ngôn ngữ lập trình pascal
Pascal là một ngôn ngữ lập trình trên máy tính thuộc dạng mệnh lệnh và thủ tục, rất thích hợp đối với kiểu lập trình cấu trúc, và cấu trúc dữ liệu. Ngôn ngữ lập trình này được đặt theo tên một nhà toán học, triết gia và cũng là nhà vật lý học người pháp.
Bất kỳ ngôn ngữ lập trình nào cũng được xây dựng từ một số hữu hạn các ký hiệu như: begin, end, var, while, do, {, }, ;, … và những ký tự như a, b, c, d, … A, B, C, D, … 1, 2, 3, 4, …
Cấu trúc của một chương trình trong pascal bao gồm:
- Khai báo program
- Khai báo uses
- Khai báo label
- Khai báo const
- Khai báo type
- Khai báo var
- Khai báo những chương trình con
- Thân chương trình
Việc quan trọng nhất khi viết một chương trình bằng ngôn ngữ lập trình pascal là phải xác định chính xác được phần cốt lõi của thân chương trình thì mới dễ dàng giải quyết thành công những yêu cầu đề ra. Tiếp theo phần nhập dữ liệu ở đầu và xuất kết quả ở cuối chương trình. Phần cuối là thêm khai báo, sử dụng những biến để khai nào trong phần var, đặt tên chương trình trong phần khai báo program.
Xem thêm: Tổng hợp công thức tổ hợp, chỉnh hợp, hoán vị, xác xuất, và nhị thức Newton
Cách viết chương trình tính diện tích hình chữ nhật, chu vi hình chữ nhật
Ví dụ: Hãy viết chương trình tính diện tích hình chữ nhật, chu vi hình chữ nhật có chiều dài là a và chiều rộng là b.
Lời giải
program Hinh_Chu_Nhat;
uses crt;
var a,b,S,P: integer;
begin
writeln[‘Nhap_chieu_dai:’];
readln[a];
writeln[‘Nhap_chieu_rong:’];
readln[b];
P:=[[a+b]*2];
S:=[a*b];
writeln[‘Chu vi la:’,P];
writeln[‘Dien tich la:’,P];
readln
end.
Như vậy, có thể thấy cách viết chương trình diện tính diện tích hình chữ nhật, và chu vi hình chữ nhật khá đơn giản đúng không. Chú ý, khi làm phải thật tỉ mỉ chỉ cần sai hoặc thiếu một dấu phẩy cũng khiến cho chương trình không chạy. Nếu như còn điều gì thắc mắc hãy để lại comment bên dưới chúng tôi sẽ giúp các em giải đáp nhanh nhất.
1 trả lời
Viết chương trình tính tổng 0+1+2+3+4.....+50 [Tin học - Lớp 8]
1 trả lời
Hãy cho biết cách hoạt động của câu lệnh for [Tin học - Lớp 8]
2 trả lời
Tại sao phải tìm kiếm và thay thế văn bản [Tin học - Lớp 6]
2 trả lời
Viết câu lệnh lặp lồng, để vẽ 5 hình tam giác [Tin học - Lớp 5]
1 trả lời
Viết chương trình tính tổng 0+1+2+3+4.....+50 [Tin học - Lớp 8]
1 trả lời
Hãy cho biết cách hoạt động của câu lệnh for [Tin học - Lớp 8]
2 trả lời
Tại sao phải tìm kiếm và thay thế văn bản [Tin học - Lớp 6]
2 trả lời
Program TINH_DIEN_TICH;
Uses crt;
Procedure HV;
Var s,a:real;
Begin
Writeln['TINH DIEN TICH HINH VUONG:'];
Write['Nhap chieu dai cua canh a = '];readln[a];
s:=a*a;
Writeln['Dien tich hinh vuong = ',s:6:2];
End;
Procedure HT;
Var s,r:real;
Begin
Writeln['TINH DIEN TICH HINH TRON:'];
Write['Nhap ban kinh R = '];readln[r];
s:=pi*r*r;
Writeln['Dien tich hinh tron = ',s:6:2];
End;
Procedure TG;
Var a, b, c,s,p:real;
Begin
Writeln['TINH DIEN TICH TAM GIAC:'];
Write['nhap a ='];readln[a];
Write ['nhap b ='];readln[b];
Write['nhap c ='];readln[c];
If [[a+b]>c]and[[b+c]>a]and[[a+c]>b] then
Begin
p:=[a+b+c]/2;
s:=sqrt[p*[p-a]*[p-b]*[p-c]];
Writeln['Chu vi tam giac:',2*p:4:2] ;
Writeln['Dien tich tam giac:',s:4:2];
End
Else
Writeln[a,', ',', ',c,' khong phai la ba canh cua tam giac'] ;
End;
Procedure CN;
Var a, b, s:real;
Begin
Writeln['TINH DIEN TICH HINH CHU NHAT:'];
Write['Nhap chieu dai a ='];readln[a];
Write['Nhap chieu rong b= '];readln[b];
s:= a*b;
Writeln['Dien tich hinh chu nhat, s= ',s:6:2];
End;
Procedure menu;
Var d:integer;
Begin
Clrscr;
Writeln['CHON MOT TRONG CAC PHUONG AN SAU:'];
Writeln['----------------------------------'];
Writeln['0: Quay ve man hinh soan thao'];
Writeln['1: Tinh dien tich hinh vuong'];
Writeln['2: Tinh dien tich hinh tron'];
Writeln['3: tinh dien tich tam giac'];
Writeln['4: Tinh dien tich hinh chu nhat'];
Writeln['===================='];
Write[' Hay chon mot phuong an: ']; readln[d];
Writeln['===================='];
Writeln;
Case d of
0: Exit;
1: HV;
2: HT;
3: TG;
4: CN;
End;
End;
Begin
menu;
Readln;
End.