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

 

 Đề thi Nha Trang 2010(Giải)

Go down 
Tác giảThông điệp
pqtoan
Admin



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

Đề thi Nha Trang 2010(Giải) Empty
Bài gửiTiêu đề: Đề thi Nha Trang 2010(Giải)   Đề thi Nha Trang 2010(Giải) Icon_minitime14/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
pqtoan
Admin



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

Đề thi Nha Trang 2010(Giải) Empty
Bài gửiTiêu đề: Re: Đề thi Nha Trang 2010(Giải)   Đề thi Nha Trang 2010(Giải) Icon_minitime14/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
 
Đề thi Nha Trang 2010(Giải)
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» đề pdg nha trang 2010
» Đề thi cấp Thành Phố Nha Trang 2018
» Đề thi thành phố nha trang năm 2020 2021
» Đừng để COVID làm chùn bước, hãy cùng UTS trang bị đầy đủ kiến thức du học từ hôm nay
» Trang web điều tra online giúp bạn kiếm tiền xăng mỗi tháng!

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