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 | 
 

 đề tự luyện 1 -6

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 đề: đề tự luyện 1 -6   1/3/2017, 08:48

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: đề tự luyện 1 -6   1/3/2017, 09:17

Đề 3 bài 2:.
Code:
uses crt;
var i,j,n,k,t,a,b,c:integer;
    f:text;
function fb(n:integer):boolean;
var i,t,a,b,c,j:integer;
begin
a:=1;b:=0;c:=0;
while a<n do
      begin
          c:=a+b;
          b:=a;
          a:=c;
      end;
if a=n then fb:=true else fb:=false;
end;
{-}
begin
clrscr;
assign(f,'fibo.inp');
rewrite(f);
write('nhap so:');readln(n);
write(f,n);
close(f);
assign(f,'fibo.out');
rewrite(f);
for i:=n downto 1 do if (fb(i)=true) and (a+i<=n) then
    begin
        write(f,i);
        a:=a+i;
        if a<>n then write(f,'+');
    end;
close(f);
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: đề tự luyện 1 -6   1/3/2017, 09:34

Đề 3 Bài 1
Code:
uses crt;
var a:array[1..100,1..100] of integer;
    i,j,k,m,n,min,max,x,y,b:integer;
begin
clrscr;
write('Nhap so dong:');readln(m);
write('Nhap co cot:');readln(n);
for i:=1 to m do for j:=1 to n do
begin
    write('a[',i,',',j,']:');readln(a[i,j]);
end;
for i:=1 to m do
begin
    for j:=1 to n do write(a[i,j]:3);writeln;
end;
b:=0;
for i:=1 to m do
begin
    min:=a[i,1];
    for j:=1 to n do if min>a[i,j] then
    begin
          min:=a[i,j];    x:=j;
    end;
    max:=a[1,x];
    for k:=1 to m do if max<a[k,x] then
    begin
          max:=a[k,x];    y:=k;
    end;
    if max=min then
    begin
          writeln('(',y,',',x,')');
          b:=b+1;
    end;
end;
if b=0 then writeln('KO co');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề tự luyện 1 -6   

Về Đầu Trang Go down
 
đề tự luyện 1 -6
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Luyện Giọng Hát Căn Bản (Phần I)
» Rèn luyện trí thông minh mỗi ngày ( Bắt đầu từ 11/11/11 )
» [DreamWorks Animation - 2010] How to train your dragon
» Những toa thuốc "TRƯỜNG SINH BẤT LÃO"
» Bí kíp luyện rồng - Cressida Cowell

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