Viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐT

0 bình luận về “Viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐT”

1. Program Hotboy;

   Uses crt;

   Var Toan,van,anh,tb : real;

   Begin

   Clrscr;

   Tb:=0;

   Write(‘nhao dien toan’); Readln(toan);

   Write(‘nhap diem van’); Readln(van);

   Write(”nhap diem anh’); Readln(anh);

   Tb:=(Toan+anh+van)/3;

   If (Tb >=9 ) and (Tb<10) then write(‘gioi’);

   If (7<=TTb and (Tb <=8) then write(‘kha’);

   If 5<=Tb and Tb <7 then Write(‘Tb’);

   If Tb<5 then write(‘ko đat’);

   Readln

   End.

   Bình luận

2. program bai1;

   uses crt;

   var T,V,A,Tb:real; 

   begin clrscr;

      write(‘Nhap diem ba mon Toan, Van, Anh ‘); readln(T,V,A);

        Tb:=(T+V+A)/3;

      if 9<=Tb and Tb<=10 then writeln(‘Gioi’);

      if 7<=Tb and Tb<=8 then writeln(‘Kha’);

      if 5<=Tb and Tb<7 then writeln(‘Trung binh’);

      if Tb<5 then writeln(‘Khong dat’);

   readln;

   end.

   Học tốt!

   Bình luận