bai tap kieu du lieu ban ghi này 5 5 1

bai tap kieu du lieu ban ghi này

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

bai tap kieu du lieu ban ghi này

Bài gửi by jetlongk4 on 16/2/2011, 2:53 pm

lập trương trình thực hiện công việc sau:
nhâp vao danh sach các sinh viên gồm các thông tin sau: họ tên ,giới tính, quê quán
sau đó thưc hiện:
- in danh sách vừa nhập;
- Đếm và in ra danh sách các sinh viên có quê quán ở thái nguyên.
( sử dụng bản ghi nhá các ban: record);
xin cam on!
Razz

jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh: 04/11/1991
Tuổi: 22
Ngày đăng ký: 14/02/2011

Về Đầu Trang Go down

co gi kho dau

Bài gửi by tieuquaitu on 16/2/2011, 10:43 pm

uses crt;
type hs = record

hoten:string[30];
gioitinh:char;{nam la m,nu la f}
que;string[50];
end;
var lop:array[1..60] of hs;
n,i,dem:byte

BEGIN
write('nhap so hoc sinh:');
readln(n);
for i:=1 to n do
with lop[i] do

begin
writeln('thong tin hoc sinh thu ',i);
write('nhap ho va ten:');
readln(hoten);
write('nhap gioi tinh:');
readln(gioitinh);
write('nhap que quan:');
readln(que);
end;

clrscr;
{in toan bo}
for i:=1 to n do
begin
writeln('ban ',lop[i].hoten);
writeln('gioi tinh '.lop[i].gioitinh);
writeln('que o ',lop[i].que);
end;
dem:=0;
{in ra nhung ban o thai nguyen}
writeln('nhung ban o thai nguyen');
for i:=1 to n do

begin

if lop[i].que='thai nguyen' then

begin
dem:=dem+1;
writeln('ban ',lop[i].hoten);
writeln('gioi tinh '.lop[i].gioitinh);
end;
end;
writeln('tim thay ',dem,' ban o thai nguyen');
readln
end.

tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh: 08/07/1993
Tuổi: 20
Ngày đăng ký: 09/02/2011

Về Đầu Trang Go down

Re: bai tap kieu du lieu ban ghi này

Bài gửi by tieuquaitu on 16/2/2011, 10:44 pm

lol! lol! lol! lol! lol!
chc la khong mac loi nhieu dau
Laughing Laughing Laughing bounce bounce bounce Basketball Basketball Basketball

tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh: 08/07/1993
Tuổi: 20
Ngày đăng ký: 09/02/2011

Về Đầu Trang Go down

Re: bai tap kieu du lieu ban ghi này

Bài gửi by jetlongk4 on 18/2/2011, 10:25 am

ban oi chay rui nhug tai sao khi in ra khong dc vay test ho minh di nha

jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh: 04/11/1991
Tuổi: 22
Ngày đăng ký: 14/02/2011

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

Permissions in this forum:
Bạn không có quyền trả lời bài viết