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 | 
 

 Giải các bài toán ứng dụng cấu trúc điều kiện

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

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Giải các bài toán ứng dụng cấu trúc điều kiện   16/11/2014, 13:45

Bài 1: Nhập vào 3 số. Sắp xếp tăng và giảm.
Bài giải:
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
     if a>b then
 begin
     tam:=a;
     a:=b;
     b:=tam;
 end;
end;
(*****)
begin
clrscr;
      write('Nhap so 1:');readln(a);
      write('Nhap so 2:');readln(b);
      write('Nhap so 3:');readln(c);
      x:=a;
      y:=b;
      z:=c;
      writeln('Sap xep tang:');
      if a>b then sx(a,b);
      if b>c then sx(b,c);
      if a>b then sx(a,b);
      writeln(a,'<',b,'<',c);
      writeln('Sap xep giam:');
      if x>y then sx(x,y);
      if y>z then sx(y,z);
      if x>y then sx(x,y);
      writeln(z,'>',y,'>',x);
readln;
end.

Bài 2: Viết chương trình nhập 2 số a và b và kiểm tra xem a có phải là ước của b hay không và ngược lại.
Bài giải:
uses crt;
var a,b:integer;
begin
clrscr;
     write('Nhap so thu nhat:');readln(a);
     write('Nhap so thu hai:');readln(b);
     if a mod b = 0 then writeln(b,' la uoc cua ',a,'.')
        else writeln(b,' ko la uoc cua ',a,' .');
     if b mod a = 0 then writeln(a,' la uoc cua ',b,' .')
        else writeln(a,' ko la uoc cua ',b,' .');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
leesinu2014



Posts : 3
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Giải các bài toán ứng dụng cấu trúc điều kiện   16/11/2014, 14:50

sao gui it bai tap the
Về Đầu Trang Go down
Xem lý lịch thành viên
huynhhan952@yahoo.com



Posts : 3
Danh tiếng : 0
Join date : 16/11/2014
Age : 17
Location : việt nam

Bài gửiTiêu đề: Re: Giải các bài toán ứng dụng cấu trúc điều kiện   16/11/2014, 15:39

bài 1 :
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
if a>b then
begin
tam:=a;
a:=b;
b:=tam;
end;
end;
(*****)
begin
clrscr;
write('Nhap so 1:');readln(a);
write('Nhap so 2:');readln(b);
write('Nhap so 3:');readln(c);
x:=a;
y:=b;
z:=c;
writeln('Sap xep tang:');
if a>b then sx(a,b);
if b>c then sx(b,c);
if a>b then sx(a,b);
writeln(a,'<',b,'<',c);
writeln('Sap xep giam:');
writeln (c,'>',b,'>',a);
readln
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải các bài toán ứng dụng cấu trúc điều kiện   16/11/2014, 15:45

huynhhan952@yahoo.com đã viết:
bài 1 :
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
    if a>b then
begin
    tam:=a;
    a:=b;
    b:=tam;
end;
end;
(*****)
begin
clrscr;
     write('Nhap so 1:');readln(a);
     write('Nhap so 2:');readln(b);
     write('Nhap so 3:');readln(c);
     x:=a;
     y:=b;
     z:=c;
     writeln('Sap xep tang:');
     if a>b then sx(a,b);
     if b>c then sx(b,c);
     if a>b then sx(a,b);
     writeln(a,'<',b,'<',c);
     writeln('Sap xep giam:');
     writeln (c,'>',b,'>',a);
     readln
     end.
       
Cách giải này cho kết quả đúng và gọn hơn bài giải ở trên. Cảm ơn bạn!
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Sponsored content




Bài gửiTiêu đề: Re: Giải các bài toán ứng dụng cấu trúc điều kiện   

Về Đầu Trang Go down
 
Giải các bài toán ứng dụng cấu trúc điều kiện
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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 :: Cấu trúc điều kiện-
Chuyển đến