Trong nhà và ngoài đường
Wednesday, 11. June 2008, 00:33:48
Cuộc sống đơn giản
Wednesday, 11. June 2008, 00:33:48
Sunday, 25. May 2008, 09:30:13
Saturday, 5. April 2008, 16:37:53
Không phải tự nhiên mà có cái cảm giác hụt hẫng như vầy, thực ra thì cũng vì nhiều lý do shock, stress, buồn...Tuesday, 1. April 2008, 17:12:01
program bang;
uses crt;
type hs=record
SBD:string[3];
ten:string[15];
Toan,Ly,Hoa,Tin,TB:real;
XL:string[3];
end;
var
XL,x:integer;
TB:real;
Lop:array[1..50] of hs;
n,i:byte;
begin
write('So HS: ');readln(n);
for i:=1 to n do
begin
writeln('Nhap so lieu HS thu ', i,':');
write('So Bao Danh: ');readln(Lop.SBD);
write('Ho va ten: ');readln(lop.ten);
write('Diem Toan: ');readln(lop.Toan);
write('Diem Ly: ');readln(lop.Ly);
write('Diem Hoa: ');readln(lop.Hoa);
write('Diem Tin: ');readln(lop.Tin);
lop.TB:=((lop.Toan*2+lop.Ly+lop.Hoa+lop.Tin)/5);
x:=0;
if lop.TB>=8 then lop.XL:='Gioi';
if lop.TB>=6.5 then lop.XL:='Kha';
if lop.TB<6.5 then lop.XL:='Yeu';
end;
begin
for i:=1 to n do
if lop.TB>=6.5 then x:=x+1;
end;
clrscr;
begin
writeln(' KET QUA HOC TAP');
writeln('SBD - Ho Ten - Toan - Ly - Hoa - Tin - Trung Binh - Xep Loai');
for i:=1 to n do
writeln(lop.SBD,lop.ten:16,lop.Toan:7:1,lop.Ly:7:1,lop.Hoa:7:1,lop.Tin:6:1,lop.TB:10:1,lop.XL:11);
end;
writeln('So hoc sinh dat loai tren TB: ',x);
readln;
end.
program canchi;
const
can:array[0..9] of string =('canh', 'tan', 'nham' , 'quy', 'giap', 'at', 'binh', 'dinh', 'mau', 'ki');
chi:array[0..11] of string = ('than', 'dau', 'Tuat', 'Hoi', 'Ti', 'Suu', 'dan', 'mao', 'thin', 'ty', 'ngo', 'mui');
var year:integer;
i,j:byte;
begin
year:=1;
while year>0 do
begin
write('duong lich: ');read(year);
if year>0 then
begin
i:=year mod 10;
j:=year mod 12;
writeln(' --> ', can, ' ' , chi[j]);
end;
end
end.
« Prev 1 2 3 4 5 6 7 8 ... 45 Next »
Showing posts 16 - 20 of 221.
anonymous
Jackky Tran writes: Chay me Vista con do nang may hon Bay` dat ...
anonymous
anonymous
anonymous
linh writes: the muon tat di thi lam the nao ha a e cam on anh ...
anonymous
anonymous
Chương trình quản trị kinh doanh của ba tớ
Blog của tui bên 360 độ
Nơi lưu trữ các themes tự làm và "chôm" được
Nơi giao lưu học hỏi cho người Long Khánh