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 | 
 

 đề pdg nha trang 2010

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 đề: đề pdg nha trang 2010   21/2/2017, 08:13

Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề pdg nha trang 2010   21/2/2017, 08:27

Bài 1:
Code:
uses crt;
var a:array[1..100] of integer;
    n,b,c,d,z,i,j,min:integer;
begin
clrscr;
randomize;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do a[i]:=random(100);
for i:=1 to n do write(a[i]:3);
writeln;
write('nhap phan tu z:');readln(z);
min:=abs(a[1]-z);
for i:=1 to n do if abs(a[i]-z)<min then min:=abs(a[i]-z);
for i:=1 to n do if abs(a[i]-z)=min then write(a[i],' la phan tu gan nhat');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề pdg nha trang 2010   21/2/2017, 10:28

Baì 3:
Code:
uses crt;
var st,st2:string;
    a:array[1..100] of integer;
    i,n,j,k:integer;
begin
clrscr;
write('nhap so :');readln(st);
k:=0;
for i:=1 to length(st) do
    begin
        if i*2-1>length(st) then k:=i*2-1-length(st) else k:=i*2-1;
        a[k]:=ord(st[i])-48;
    end;
for i:=length(st) downto 1 do write(a[i]);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề pdg nha trang 2010   

Về Đầu Trang Go down
 
đề pdg nha trang 2010
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [MF/DVDrip] The Warrior's Way (Con Đường Chiến Binh) (2010)
» [MF/DVDrip] Bi, Đừng Sợ (Bi, Don't Be Afraid) (2010)
» Phụ kiện, đồ trang sức
» Mạng nhện lơ lửng treo trần nhà
» Đậu hũ xào hành, lá lốt

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 :: Các bộ đề thi-
Chuyển đến