input điểm KTTX1,KTTX2,KTTX3 và  điểm KTGK

output điểm trung bình môn

b1 nhập điểm KTTX1,KTTX2,KTTX3 và  điểm KTGK

b2 

diemtb←$\frac{(KTTX1+KTTX2+KTTX3+KTGK)}{4}$ 

b3 xuất diemtbm

uses crt;

var kttx1,kttx2,kttx3,ktgk,diemtbm:real;

begin

clrscr;

write('diem kttx1: ');readln(kttx1);

write('diem kttx2: ');readln(kttx2);

write('diem kttx3: ');readln(kttx3);

write('diem ktgk: ');readln(ktgk);

diemtbm:=(kttx1+kttx2+kttx3+ktgk)/4;

writeln('diem trung binh mon: ',diemtbm:5:2);

readln;

end.

`khoadang09`

**Xác định bài toán:

INPUT:Điểm KTTX1,điểm KTTX2,điểm KTTX3, điểm KTGK và điểm Thi của môn tin hk1

OUTPUT:Điểm trung bình môn tin hk1

**Mô tả thuật toán(ở dưới)

**Chương trình:

Program baitap;

Uses crt;

Var KTTX1,KTTX2,KTTX3,KTGK,Thi,TB:real;

Begin

Clrscr;

Write('Nhap lan luot cac diem KTTX:');

Readln(KTTX1,KTTX2,KTTX3);

Write('Nhap diem KTGK:');

Readln(KTGK);

Write('Nhap diem thi:');

Readln(Thi);

TB:=(KTTX1+KTTX2+KTTX3+KTGK*2+Thi*3)/8;

Writeln('Diem trung binh:', TB:3:2);

Readln

End.