karenshii
23-04-2011, 15:34
Bài 2: Lập một bản ghi chứa danh sách các ngày lễ, ngày nghỉ trong năm. Bản ghi gồm có ngày, tháng, tên ngày lễ, ngày được nghỉ. Tính tổng các ngày lễ và ngày nghỉ trong năm và từng quí.
Chú ý: sử dụng chương trình con để viết chương trình
program pascal;
type ngayle=record
ten:string;
thoigian:string;
songayngi:integer;
end;
arr=array[1..20] of ngayle;
var a:arr;
procedure ngayngi(b:arr);
var n:string; s,i:integer;
begin
i:=0; s:=0;
repeat
write('Ten ngay le :'); readln(b[i].ten);
write('Thoi gian :'); readln(b[i].thoigian);
write('So ngay duoc ngi :'); readln(b[i].songayngi);
i:=i+1;
s:=s+b[i].songayngi;
writeln('ban co muon ket thuc ? Y/N '); readln(n);
until n='Y' ;
writeln('Tong so ngay le la :',i);
writeln('Tong so ngay duoc ngi la :',s);
readln;
End;
BEGIN
ngayngi(a);
END.
Mình làm như thế tính đi tính lại ! chả thấy sai sót gì ! nhưng sao lúc chạy cái "số ngày được ngỉ " nó cứ to đùng ! Chả khớp gì cả !
Chú ý: sử dụng chương trình con để viết chương trình
program pascal;
type ngayle=record
ten:string;
thoigian:string;
songayngi:integer;
end;
arr=array[1..20] of ngayle;
var a:arr;
procedure ngayngi(b:arr);
var n:string; s,i:integer;
begin
i:=0; s:=0;
repeat
write('Ten ngay le :'); readln(b[i].ten);
write('Thoi gian :'); readln(b[i].thoigian);
write('So ngay duoc ngi :'); readln(b[i].songayngi);
i:=i+1;
s:=s+b[i].songayngi;
writeln('ban co muon ket thuc ? Y/N '); readln(n);
until n='Y' ;
writeln('Tong so ngay le la :',i);
writeln('Tong so ngay duoc ngi la :',s);
readln;
End;
BEGIN
ngayngi(a);
END.
Mình làm như thế tính đi tính lại ! chả thấy sai sót gì ! nhưng sao lúc chạy cái "số ngày được ngỉ " nó cứ to đùng ! Chả khớp gì cả !