Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lâm Nhật Duy

Câu 1:Sử dụng ngôn ngữ lập trình Pascal để viết chương trình theo thuật toán dưới đây:

B1:T←8;n←1;

B2:Nếu T>=99 thì chuyển tới B4

B3:n←n+3;T←T*n và quay lại B2

B4:In giá trị của T,n và kết thúc

Câu 2:Sử dụng ngôn ngữ lập trình Pascal để viết chương trình nhập vào từ bàn phím(ĐTB)của n học sinh trong một lớp (1<=n<=70).In ra màn hình số lượng và tỉ lệ học sinh đạt điểm trung bình trở lên(ĐTB>=5.0)

 

 

Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:54

câu 1:
 

program AlgorithmExample;

var
  T, n: integer;

begin
  // Bước 1
  T := 8;
  n := 1;

  // Bước 2
  while T < 99 do
  begin
    // Bước 3
    n := n + 3;
    T := T * n;
  end;

  // Bước 4
  writeln('Gia tri cua T: ', T);
  writeln('Gia tri cua n: ', n);

  readln;
end.
câu 2:
 

program StudentAverage;

var
  n, countAboveAverage: integer;
  sum, average, score: real;

begin
  // Nhập số lượng học sinh
  write('Nhap so luong hoc sinh (1-70): ');
  readln(n);

  // Kiểm tra điều kiện
  if (n < 1) or (n > 70) then
  begin
    writeln('So luong hoc sinh khong hop le.');
    readln;
    halt;
  end;

  // Khởi tạo biến
  countAboveAverage := 0;
  sum := 0;

  // Nhập và tính điểm trung bình
  for var i := 1 to n do
  begin
    write('Nhap diem cua hoc sinh ', i, ': ');
    readln(score);
    sum := sum + score;

    // Kiểm tra điều kiện điểm trung bình
    if score >= 5.0 then
      countAboveAverage := countAboveAverage + 1;
  end;

  // Tính điểm trung bình
  average := sum / n;

  // In ra kết quả
  writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
  writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');

  readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.

 

 

Các câu hỏi tương tự
foxbi
Xem chi tiết
Thap Nguyen
Xem chi tiết
Mai Đình Phú
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
eeedddd
Xem chi tiết
KenShi
Xem chi tiết
Minh Ngọc
Xem chi tiết
PC Vũ
Xem chi tiết