bai tap kieu du lieu ban ghi này

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
avatar
jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/11/1991
Tuổi : 26
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.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
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
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
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
avatar
jetlongk4
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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