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 | 
 

 Đề thi Nha Trang 2010(Giải)

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



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Đề thi Nha Trang 2010(Giải)   14/10/2016, 08:42

Bài 1:Nhập dãy số nguyên ngẫu nhiên và một số nguyên bất kì.Xuất ra số trong dãy gần với số đó nhất.
uses crt;
var a:array[1..100] of integer;
n,z,i,min,x:integer;
begin
clrscr;
randomize;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do a[i]:=random(50);
writeln('Day so nguyen:');
for i:=1 to n do write(a[i]:5);writeln;
write('Nhap so nguyen bat ki:');readln(z);
min:=abs(a[1]-z);x:=a[1];
for i:=1 to n do if abs(a[i]-z)<min then
begin
min:=abs(a[i]-z);
x:=a[i];
end;
writeln('So gan ',z,' nhat la:',x);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: Đề thi Nha Trang 2010(Giải)   14/10/2016, 08:44

Bài 2:Nhập số chữ số k,xem có số Kapreka có k chữ số trong hệ thập phân ko?Nếu có xuât ra số đó.
uses crt;
var a:string;
k,i,j,code,z:integer;
b,c,x,y,so:longint;
{-}
procedure dc(var a,b:char);
var i:char;
begin
i:=a;a:=b;b:=i;
end;
{-}
begin
clrscr;
write('Nhap so chu so:');readln(k);
b:=1;z:=0;
for i:=1 to k-1 do b:=b*10;c:=b*10-1;
writeln('Cac so Kapreka co ',k,' chu so trong he thap phan la:');
for so:=b to c do
begin
str(so,a);
for i:=1 to length(a)-1 do for j:=i+1 to length(a) do if a[i]<a[j] then dc(a[i],a[j]);
val(a,x,code);
for i:=1 to length(a)-1 do for j:=i+1 to length(a) do if a[i]>a[j] then dc(a[i],a[j]);
val(a,y,code);
if x-y=so then
begin
writeln(so);
z:=z+1;
end;
end;
if z=0 then writeln('Ko co so Kapreka co ',k,' chu so trong he thap phan');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Đề thi Nha Trang 2010(Giải)
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Nghệ thuật trang trí món ăn
» [MF/DVDrip] The Warrior's Way (Con Đường Chiến Binh) (2010)
» [MF/DVDrip] Bi, Đừng Sợ (Bi, Don't Be Afraid) (2010)
» Tử Vi Canh Dần 2010
» TRANG THƠ CHẾ LAN VIÊN

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 :: Bài tập :: Bài tập cơ bản-
Chuyển đến