Program Tinh_Trung_Binh; →Khai báo tên chương trình là Tinh_Trung_Binh,
Uses crt;→Khai báo thư viện.
Var n,dem:Integer;→Khai báo biến n,dem có kiểu dữ liệu là Integer.
x,tong,tb:real;→Khai báo biến x,tong, tb có kiểu dữ liệu là real.
Begin→Bắt đầu phần thân chương trình.
Clrscr;→Câu lệnh để xóa toàn bộ màn hình máy tính.
dem:=0;→Biến dem được gán giá trị bằng 0.
tong:=0;→Biến tong được gán giá trị bằng 0.
Write('Nhap so cac so can tinh n = '); Readln(n);→In ra màn hình " Nhap so cac so can tinh n = " và sau đó nhập giá trị của n.
While dem<n do→Điều kiện để lặp là dem<n.
Begin→Bắt đầu đoạn chương trình.
dem:=dem+1;→Biến dem tăng 1 giá trị.
Write('Nhap so thu ',dem,' = ');→In ra màn hình " Nhap so thu dem = ".
Readln(x); →Nhập giá trị của x và đưa con trỏ xuống dòng.
tong:=tong+x; →Biến tong được gán giá trị bằng tong cộng với x.
End;→Kết thúc đoạn chương trình.
tb:=tong/n;→Biến tb được gán giá trị bằng tong chia cho n.
Writeln('Trung binh cua ',n,' so vua nhap la; ',tb:10:3);→In ra màn hình câu lệnh Trung binh cua n so vua nhap la, tb cách vào 10 khoảng cách và làm tròn đến chữ số thập phân thứ 3. Đưa con trỏ xuống dòng.
Writeln('Nhan Enter de thoat!'); →In ra màn hình Nhan Enter de thoat! và đưa con trỏ xuống dòng.
Readln;→Dừng lại cho đến khi bấm phím Enter;
End. →Kết thúc chương trình.
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưLớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247