Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Phát giấy thi

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
phong



Posts : 12
Danh tiếng : 2
Join date : 07/12/2014

Bài gửiTiêu đề: Phát giấy thi   11/1/2015, 15:22

Trong kỳ thi tốt nghiệp THCS, mỗi phòng thi đều có 24 thí sinh được xếp vào 6 dãy bàn, mỗi dãy có 4 thí sinh. Có 24 tờ giấy nháp với ba loại màu Xanh, Đỏ, Tím sẽ được phát cho 24 thí sinh trong phòng thi.

Hãy viết chương trình giúp cho Giám thị phát giấy nháp sao cho mỗi thí sinh sử dụng một màu giấy nháp không trùng với màu của các bạn ngồi ở vị trí trước, sau, trái, phải đối với thí sinh đó.

1) Yêu cầu: in ra màn hình tất cả sơ đồ phát giấy nháp có thể được.

2) Tổng số giấy nháp mỗi loại được sử dụng.
Admin giup voi, dang can gap' hi hi
Về Đầu Trang Go down
Xem lý lịch thành viên
nguyễn đắc thắng

avatar

Posts : 12
Danh tiếng : 0
Join date : 04/10/2015
Age : 15

Bài gửiTiêu đề: Re: Phát giấy thi   5/10/2015, 16:56

bài 1 - cấp trường 3
uses crt;
var a:array[1..100]of integer;
n,i,j,tam,x,dem,e:integer;
begin clrscr;
write('nhap day so nguyen:');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if a[i]<a[j] then begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('sau khi sx:');
for i:= 1 to n do
writeln(a[i]:5);
write('nhap phan tu x:');readln(x);
for i:=1 to n do
if x=a[i] then
begin
dem:=dem+1;
end;
write('so lan xuat hien:',dem);
writeln;
writeln('so pt<=',x,':');
for i:= 1to n do
if a[i]<=x then write(a[i]:5);
writeln;
writeln('so pt>',x,':');
for i:=1 to n do
if a[i]>x then write(a[i]:5);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Phát giấy thi
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Thảo luận-
Chuyển đến