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

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

Posts : 115
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 : 115
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
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