Bài giải tham khảo bài kiểm tra 1 tiết TIN hôm nay (thứ 3 ngày 22/3/2011)

Sau đây mình xin phép đưa ra bài giải bài kiểm tra 1 tiết tin hôm nay cho các bạn cùng tham khảo, dĩ nhiên đây chỉ là bài giải theo ý mình nên các bạn dù có làm khác thì cũng đừng nghĩ bài mình sai nhé, có thể tôi cũng sai thì sao???? :?:
Đề 1: Nhập thông tin của 10 học sinh (họ tên, ngày sinh, giới tính) sau đó ghi lên tệp DATA.DAT trong ổ D, thông tin của mỗi học sinh ghi trên 1 dòng (cái đề này mình cũng không nhớ rõ lắm nhưng đại khái là thía này).
Bài giải
program bai1;
uses crt;
type hs = record
hoten: string;
ngaysinh: string;
gioitinh: string;
end;
var
a: array[1..10] of hs;
i: integer;
f: text;
begin
clrscr;
assign(f,'D:\data.dat');
rewrite(f);
for i:=1 to 10 do
begin
write('Ho va ten:');
readln(a[i].hoten);
write('Ngay sinh:');
readln(a[i].ngaysinh);
write('Gioi tinh:');
readln(a[i].gioitinh);
end;
for i:=1 to 10 do
begin
write(f,'Ho va ten:',a[i].hoten);
write(f,'Ngay sinh:',a[i].ngaysinh);
write(f,'Gioi tinh:',a[i].gioitinh);
end;
close(f);
readln
end.

Đề 2: Tạo ma trận A 5*6, viết lên tệp DATA.DAT trong ổ D các phần tử là số chính phương trong mảng. (Cái này càng không rõ lắm vì mình làm đề 1)

Bài giải

program bai2;
uses crt;
var
a: array[1..5,1..6] of integer;
i,j: integer;
f: text;
begin
clrscr;
assign(f,'D:\DATA.DAT');
rewrite(f);
writeln('Tao mang A.');
for i:=1 to 5 do
for j:=1 to 6 do
begin
write('a[',i,j,']');
readln(a[i,j]);
end;
for i:=1 to 5 do
begin
for j:=1 to 6 do
write(a[i,j]:6);
writeln;
end;
for i:=1 to 5 do
for j:=1 to 6 do
if (sqr(trunc(sqrt(a[i,j]))) = a[i,j]) then writeln(f,'a[',i,j,']:',a[i,j]);
close(f);
readln
end.

2 bài này đều đã đc chạy thử trên máy và đều cho kết quả đúng.
Chúc các bạn đều làm đc bài này.
Chú ý (cái này dành riêng cho Mạnh 7): bài a đọc cho chú tuy không giống đây lắm vì a có chỉnh lại cho đẹp mắt 1 chút nhưng khi cho ra kết quả trên tệp thì chú vẫn đúng, nếu cô chỉ chấm kết quả cho trên tệp thì chú chắc chắn ăn 100% điểm,còn về chương trình chạy ra màn hình hơi mất thẩm mĩ thôi :lol: :lol: