pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và to

pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và toán của cả lớp.in kết quả ra màn hình

0 bình luận về “pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và to”

  1. uses crt;

    var ban,i:integer;

    tb,t:real;

    van,toan:array[1..100] of byte;

    begin

    clrscr;

    t:=0;

    repeat

    begin

    write(‘nhap so ban hoc: ‘);readln(ban);

    for i:=1 to ban do

    begin

    write(‘nhap diem mon van cua ban ‘,i,’: ‘);readln(van[i]);

    write(‘nhap diem mon toan cua ban ‘,i,’: ‘);readln(toan[i]);

    tb:=(van[i]+toan[i])/2;

    writeln(‘diem trung binh cua ban ‘,i,’ la: ‘,tb:1:2);

    t:=t+tb;

    end;

    end;

    until ban>0;

    writeln(‘diem trung binh cua ca lop la: ‘, (t/ban):1:2);

    readln;

    end.

    Bình luận

Viết một bình luận