Viết chương trình pascal thực hiện các yêu cầu sau: Nhập các môn văn, toán, tiếng anh Tính trung bình cộng các môn vừa nhập Xếp loại học sinh Sắ

0 bình luận về “Viết chương trình pascal thực hiện các yêu cầu sau: Nhập các môn văn, toán, tiếng anh Tính trung bình cộng các môn vừa nhập Xếp loại học sinh Sắ”

1. uses crt;
   var  a,b,c,tam:real;n:array[1..100]of real;i,j:longint;
   begin
   clrscr;
   write(‘ANh:’);readln(a);
   write(‘van:’);readln(b);
   write(‘toan:’);readln(c);
   if((a+b+c)/3>=8)then writeln(‘Gioi’)else if((a+b+c)/3>=6.5)then writeln(‘Kha’)else
   if((a+b+c)/3>=3.5)then writeln(‘Trung binh’)else writeln(‘Yeu’);
   n[1]:=a;
   n[2]:=b;
   n[3]:=c;
   for i:=1 to 3 do
   for j:=i to 3 do
   if(n[i]<n[j])then
   begin
   tam:=n[i];
   n[i]:=n[j];
   n[j]:=tam;
   end;
   for i:=1 to 3 do write(n[i],’ ‘:8);
   readln;
   end.

   Trả lời