Viết chương trình nhập điểm trung bình của học sinh cho đến khi tb >= 80 thì thông báo lên màn hình “giỏi”

0 bình luận về “Viết chương trình nhập điểm trung bình của học sinh cho đến khi tb >= 80 thì thông báo lên màn hình “giỏi””

1. program gioi;

   uses crt;

   var diem:real;

   begin

          clrscr;

          repeat

                 write(‘Nhap diem trung binh’);  readln(diem);

                 if diem>=80 then write(‘Gioi’)

                        else write(‘Chua dat’);

          until diem>=80;

          readln

   end.

   Bình luận

2. Program Diem_Trung_Binh;

   Uses crt;

   Var tb: real;

   Begin

   Clrscr;

   Write(‘Ban hay nhap diem trung binh : ‘);

   Readln(tb);

   End;

   Until (tb>0) and (tb<100);

   If (TB >= 80) then write(‘hoc luc gioi’) else

   Writeln (‘Khong dat’);

   Readln;

   End;

   End.

   Em test thử trên pc đi nhé

   Lỗi chỗ nào nói chị 

   Bình luận