Viết chương trình nhập số báo danh điểm toán văn anh sau đó in ra màn hình dạng
PHIẾU BÁO ĐIỂM
Số báo danh
Điểm toán
Điểm văn
Điểm ảnh
Tổng số điểm
Bạn đã trúng tuyển (nếu tổng điểm>20)
Bạn không trúng tuyển(nếu tổng điểm<20)
Giúp tui vs mai ktra r
Viết chương trình nhập số báo danh điểm toán văn anh sau đó in ra màn hình dạng PHIẾU BÁO ĐIỂM Số báo da
By Iris
program bai_giai;
uses crt;
var sbd:string;
dt,dv,da,t:real;
begin
clrscr;
writeln(‘PHIEU BAO DIEM’);
write(‘So bao danh: ‘); readln(sbd);
write(‘Diem toan: ‘); readln(dt);
write(‘Diem van: ‘); readln(dv);
write(‘Diem anh: ‘); readln(da);
t:=dt+dv+da;
writeln(‘Tong so diem: ‘,t:0:2);
if t>20 then write(‘Ban da trung tuyen’)
else write(‘Ban khong trung tuyen’);
readln;
end.
Test: hình
program phuongt;
uses crt;
var sbd: string;
t, v, a, s: real;
begin
clrscr;
write(‘Nhap so bao danh: ‘); readln(sbd);
write(‘Nhap diem toan: ‘); readln(t);
write(‘Nhap diem van: ‘); readln(v);
write(‘Nhap diem anh: ‘); readln(a);
s:=t+v+a;
writeln(‘ ———– PHIEU BAO DIEM ————-‘);
writeln(‘So bao danh: ‘, sbd);
writeln(‘Diem toan: ‘, t);
writeln(‘Diem van: ‘, v);
writeln(‘Diem anh: ‘, a);
writeln(‘Tong so diem: ‘, s);
if s>20 then write(‘Ban da trung tuyen’);
if s<20 then write(‘Ban khong trung tuyen’);
readln
end.