[Pascal] Viết chương trình tính điểm trung bình và xếp hạng

Thảo luận trong 'Pascal' bắt đầu bởi Trần Văn Cường, 19/6/16.

  1. Trần Văn Cường

    Trần Văn Cường I love CNTT Thành viên BQT Thành viên BQT

    Tham gia ngày:
    8/11/15
    Bài viết:
    3,693
    Đã được thích:
    43
    Điểm thành tích:
    48
    Giới tính:
    Nam
    Nghề nghiệp:
    Sinh Viên
    Nơi ở:
    Quảng Ninh thân yêu!
    Web:

    [Pascal] Viết chương trình tính điểm trung bình và xếp hạng

    Ngôn ngữ lập trình pascal

    CODE:
    Select All
    Program Diem_Trung_binh;
    Uses Crt;
    Var
       
    Ten:String[24];
       
    Van,Toan,Ly,tb:Real;
    Begin
       Clrscr
    ;
       
    Writeln('TINH DIEM TRUNG BINH VA XEP HANG');
       
    Writeln('--------------------------------');
       
    Write('-Cho biet ho ten: ');
       
    Readln(Ten);
       
    Write('-Cho biet diem mon Van: ');
       
    Readln(Van);
       
    Write('-Cho biet diem mon Toan: ');
       
    Readln(Toan);
       
    Write('-Cho biet diem mon Ly: ');
       
    Readln(Ly);
       
    Tb:=((Van*2)+(Toan*2)+ly)/5;
       If 
    tb 5 Then
          Begin
             Writeln
    ('+Hoc sinh: ',Ten);
             
    Writeln('+Diem trung binh = ',Tb:4:1);
             
    Writeln('+Xep hang: Hoc luc kem');
          
    End
       
    Else if Tb 7 Then
          Begin
             Writeln
    ('+Hoc sinh: ',Ten);
             
    Writeln('+Diem trung binh = ',Tb:4:1);
             
    Writeln('+Xep hang: Hoc luc trung binh');
          
    End
       
    Else if Tb 9 Then
          Begin
             Writeln
    ('+Hoc sinh: ',Ten);
             
    Writeln('+Diem trung binh = ',Tb:4:1);
             
    Writeln('+Xep hang: Hoc luc Kha');
          
    End
          
    Else
              
    Begin
                Writeln
    ('+Hoc sinh: ',Ten);
                
    Writeln('+Diem trung binh = ',Tb:4:1);
                
    Writeln('+Xep hang: Hoc luc Gioi');
             
    End;
       
    Writeln;
       
    Writeln('    Bam phim <Enter> de ket thuc');
       
    Readln;
    End.
     

    Bình Luận Bằng Facebook

    data-href="https://cnttqn.com/threads/pascal-viet-chuong-trinh-tinh-diem-trung-binh-va-xep-hang.2223.html"