Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

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ínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 Phát giấy thi

Go down 
2 posters
Tác giảThông điệp
phong




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

Phát giấy thi Empty
Bài gửiTiêu đề: Phát giấy thi   Phát giấy thi Icon_minitime11/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
nguyễn đắc thắng

nguyễn đắc thắng


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

Phát giấy thi Empty
Bài gửiTiêu đề: Re: Phát giấy thi   Phát giấy thi Icon_minitime5/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
 
Phát giấy thi
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Sinh viên Việt Nam phát triển các kỹ năng lãnh đạo với Đại học Công nghệ UTS:INSEARCH
» Diễn đàn đối thoại lãnh đạo trẻ việt – úc chính thức ra mắt tìm tài năng để phát triển các nhà lãnh đạo trẻ

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Thảo luận-
Chuyển đến