Đề: Viết CT nhập vào tên cho tất cả HS trong trường. Việc nhập dừng lại khi tên nhập vào là “STOP”. *Dùng biến mảng

0 bình luận về “Đề: Viết CT nhập vào tên cho tất cả HS trong trường. Việc nhập dừng lại khi tên nhập vào là “STOP”. *Dùng biến mảng”

1. program ten_hocsinh;

   uses crt;

   var A:array[1..1000] of string;

         i,n:integer;

   begin

        clrscr;

        n:=0;

        repeat

             n:=n+1;

             write(‘Nhap ten ban thu ‘,n,’: ‘);   readln(A[n]);

        until A[n]=’STOP’;

        writeln(‘Danh sach ten hoc sinh la: ‘);

        for i:=1 to n do

             writeln(‘Ten ban thu ‘,i,’: ‘,A[i]);

        readln;

   end.

   Bình luận

2. uses crt;
   var i:longint; a:array[1..100000]of string;
   begin
   clrscr;
      i:=0;
      repeat
         inc(i);
         Write(‘Nhap diem cua ban thu ‘,i,’: ‘);readln(a[i]);
      until a[i]=’STOP’;
   readln
   end.

   Bình luận