Viết chương trình con
Sử dụng thủ tục để nhập dử liệu điểm hai môn toán văn.
In ra điểm hai môn toán văn ; điểm trung bình hai môn
Viết chương trình con
Sử dụng thủ tục để nhập dử liệu điểm hai môn toán văn.
In ra điểm hai môn toán văn ; điểm trung bình hai môn
program phuongt;
uses crt;
var t, v: real;
procedure nhap;
begin
writeln(‘Diem toan: ‘, t:3:1);
writeln(‘Diem van: ‘, v:3:1);
end;
function tong: real;
begin
tong:=t+v;
write(‘Diem trung binh hai mon: ‘, tong:3:1);
end;
begin
clrscr;
write(‘Nhap diem toan: ‘); readln(t);
write(‘Nhap diem van: ‘); readln(v);
nhap;
tong;
readln
end.