Chuyển đến nội dung chính

Bài tập 2: Bài tập mảng dữ liệu, 21/09/2016


Bài tập 2: Bài tập mảng dữ liệu
lớp 9a có số học sinh là N, nhập điểm môn tin học cho tất cả các học sinh trong lớp, thực hiện
a.  Tìm điểm  cao nhất  trong lớp

b.  Tìm số lượng các bạn có điểm lớn hơn 5

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

Tam giác số (Pascal)

TAM GIÁC SỐ  (Câu 4. Hội thi Tin Học Trẻ Phú Yên lần thứ XIX - năm 2016)                              7                          3       8                      8      1       0                   2     7        4       4                 4    5      2       6       5 Cho một tam giác gồm các số nguyên không âm (xem hình trên). Hãy viết chương trình tính tổng lớn nhất của các số nằm trên lộ trình từ đỉnh xuống: - Tại mỗi bước đi, lộ trình có thể đi xuống phía bên trái hoặc xuống phía bên phải. - Số hàng trong tam giác lớn hơn...
2 nhận xét
Đọc thêm

SỐ CHÍNH PHƯƠNG (PASCAL)

SỐ CHÍNH PHƯƠNG (PASCAL) Số chính phương là số  mà nó là căn bậc 2 của một số nguyên nào đó. ví dụ: 4,9,16,25,.... là các số chính phương;  có nhiều cách để xác định một số có phải là số có phải số chính phương hay không; cách đơn giản nhất  ta dùng lệnh if (sqr (round(sqrt(A))))=A then write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong'); Ghi chú: sqrt : hàm tính căn bậc 2 sqr: hàm tính bình phương round: hàm làm tròn số - Cách khác' if frac(sqrt(A))=0 then  write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong');
Đăng nhận xét
Đọc thêm

VÒNG LẶP KHÔNG XÁC ĐỊNH WHILE..DO; REPEAT .. UNTIL

VÒNG LẶP KHÔNG XÁC ĐỊNH  WHILE..DO; REPEAT .. UNTIL - Vòng lặp While..do While <điều kiện > Do  <câu lệnh>; Câu lệnh sau do được thực hiện khi điều kiện được thỏa mãn (điều kiện =true); vòng lặp kết thúc khi điều kiện không thỏa (điều kiện =false) - Vòng lặp Repeat .. until; Repeat <câu lệnh>; Until <điều kiện>; Lặp lại câu lệnh cho đến khi nào  thỏa mãn điều kiện  (điều kiện =true) thì dừng lại;  Bài tập: Nhập vào một số nguyên A thỏa mãn (0<A<100), Tính tổng các số nguyên từ 1 đến A (S=1+2+...+A). Vận dụng câu lệnh While .. do uses crt; var A,I:  Integer; S:longint; begin          a:=0;          while not ((a>0) and (a<100)) do          begin          write('Nhap gia tri cua A:'); read(A);           end;          s:=0...
1 nhận xét
Đọc thêm