Question

Nhập điểm môn tin học của N học sinh bằng 2 cách: sử dụng mảng và không sử dụng mảng

Answer 1

Chương trình nhập và xuất điểm dùng mảng

program nhapdiem;
uses crt;
var i:integer;
    a:array[1..100] of real;
    
    
begin
     clrscr;
     // Nhap diem
     Write('So hoc sinh can nhap : ');
     readln(n);
     writeln;
     for i:=1 to n do
       begin
          write('Nhap diem hoc sinh thu ',i,' :');
          readln(a[i]);
       end;
     
     //Xuat diem
     Write('Xuat diem hoc sinh... ');
     for i:=1 to n do
       begin
          write('Diem hoc sinh thu ',i,' la :',a[i]);
       end;
     readln;
end.

Nhập xuất không dùng mảng

Nhận xét: Nếu không dùng mảng thì ta buộc phải khai báo rất nhiều biến để lưu, gây khó khăn cho quản lý và gây mất thời gian, kém hiệu quả. Đây là một ví dụ, chẳng hạn số học sinh là 50: 

program nhapdiem;
uses crt;
var  d1,d2,d3,d4,d5,....:integer
   
   
begin
     clrscr;
     // Nhap diem
     write('Nhap diem hoc sinh thu ',1,' :');
     readln(d1);
     write('Nhap diem hoc sinh thu ',2,' :');
     readln(d2);
     write('Nhap diem hoc sinh thu ',3,' :');
     readln(d3);
     
     // và cứ thế cho đến khi nào đủ 50 thì thôi!
     write('Nhap diem hoc sinh thu ',50,' :');
     readln(d50);
     
     //Xuat diem
     writeln('Diem hoc sinh thu ',1,' la :',d1);
     writeln('Diem hoc sinh thu ',2,' la :',d2);
     writeln('Diem hoc sinh thu ',3,' la :',d3);
     
     // và cứ thế cho đến khi nào đủ 50 thì thôi!
     writeln('Diem hoc sinh thu ',50,' la :',d50);
     readln;
end.