Đăng Nhập

Quên mật khẩu

November 2018
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendar Calendar

Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

[ View the whole list ]


Số người truy cập cùng lúc nhiều nhất là 48 người, vào ngày 2/8/2017, 00:32
Statistics
Diễn Đàn hiện có 74 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: AlinaL92956302

Tổng số bài viết đã gửi vào diễn đàn là 107 in 53 subjects

Bài tập tổng hợp

Go down

Bài tập tổng hợp

Bài gửi by Admin on 17/5/2014, 16:15

Bài 1: Viết chương trình nhập từ bàn phím 3 số thực. Hãy kiểm tra xem 3 số đó có phải là:
     a) Ba cạnh của một tam giác không?
     b) Nếu là 3 cạnh của một tam giác, hãy kiểm tra xem đó là tam giác gì?(tam giác vuông, tam giác cân hay tam giác đều)
     Gợi ý:
         - Hai câu a và b làm cùng một bài
         - Câu a: Áp dụng định lí: Tổng 2 cạnh bất kỳ luôn lớn hơn một cạnh
         - Câu b:
                 + Điều kiện để là tam giác vuông có thể áp dụng định lí đảo Py-ta-go: Bình phương độ dài một cạnh bằng tổng các bình phương độ dài 2 cạnh còn lại(chẳng hạn: a^2=b^2+c^2)   (Chỉ một biểu thức thỏa mãn điều đó)
                 + Điều kiện để là tam giác cân: có 2 cạnh bằng nhau
                 + Điều kiện để là tam giác đều: có 3 cạnh băng nhau

Bài 2: Viết chương trình nhập Giờ : Phút : Giây(hh:mm:ss) từ bàn phím. Cộng thêm một số giây nhập vào và in kết quả dưới dạng hh : mm : ss
     Gợi ý:
     + Cach 1: 
         - Nhập số giờ, phút, giây
         - Nhập số giây thêm
         - Đổi số giờ, phút, giây ban đầu ra giây, rồi cộng với số giây thêm ta được số giây kết quả.
         - Đổi số giây kết quả đó ra dạng: giờ, phút, giây
         - In kết quả dạng: giờ : phút : giây
     VD:   Nhập: 2:40:35 (tức là 9635 giây)
             Nhập số giây thêm: 100 giây  
             Kết quả: 2:42:15
     + Cach 2: 

         - Tìm số giây: nếu giây+thêm<60 thì cộng số giây thêm vào số giây. Ngược lại đổi giây+thêm ra phút thêm, giây.

         - Tìm số phút: nếu phút +phút thêm<60 thì cộng số phút thêm vào. Ngược lại đổi phút+phút thêm ra giờ thêm, phút.
         - Tìm số giờ: giờ+giờ thêm

Bài 3: Viết chương trinh tính tích của 20 số tự nhiện đầu tiên.
Bài 4: Nhập vào một số nguyên dương n, sau đó đếm tứ 1 đến n xem có bao nhiêu số chia hết cho 7.
     VD: n = 30, kết quả số chia hết cho 7 la: 3(vì có: 7, 14, 28)


Được sửa bởi Admin ngày 19/5/2014, 22:00; sửa lần 2.

Admin
Admin

Tổng số bài gửi : 59
Points : 171
Reputation : 3
Join date : 06/10/2013
Age : 35
Đến từ : Cà Mau

Xem lý lịch thành viên http://phamhoe.forumvi.com

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by TranAi on 17/5/2014, 18:45

Bài 1.
program c_t;
uses crt;
var a,b,c:real;
begin
clrscr;
       write('nhap 3 canh a,b,c:');readln(a,b,c);
       if (a+b<=c) and (a+c<=b) and (b+c<=a) then
       writeln('khong phai bo 3 tam giac')
       else
       begin
       if (a+b>c) and (a+c>b) and (b+c>a) then
       writeln('la bo 3 tam giac);
       if (a=b=c) then
       writeln('tam giac deu');
       if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
       writeln('tam giac vuong');
       if (a=b) or (b=c) or (a=c) then
       writeln('tam giac can')
       else writeln('tam giac thuong');
       end;
readln;
end.

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by TranAi on 17/5/2014, 19:04

bài 2
program c_t;
uses crt;
var h,p,x,g,s,t,m:longint;
begin
clrscr;
h:=0;x:=0;p:=0;g:=0;
       write('nhap so giay:');readln(s);
       h:=s div 3600;
       x:= s mod 3600;
       p:=x div 60;
       g:=x mod 60;
       writeln('Ban Dau: gio',h,'  phut',p,'  giay', g);
       begin
       h:=0;x:=0;p:=0;g:=0;
       write('nhap so giay can them la:');readln(t);
       m:=s+t;
       h:=m div 3600;
       x:=m mod 3600;
       p:=x div 60;
       g:=x mod 60;
       write('Sau Khi: gio:',h,'phut',p,'giay',g);
       end;
readln;

end.

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by TranAi on 17/5/2014, 19:12

program c_t;
uses crt;
var a,b,c:real;
begin
clrscr;
       write('nhap 3 canh a,b,c:');readln(a,b,c);
       if (a+b<=c) and (a+c<=b) and (b+c<=a) then
       writeln('khong phai bo 3 tam giac')
       else
       begin
       if (a+b>c) and (a+c>b) and (b+c>a) then
       writeln('la bo 3 tam giac');
       if (a=b) and (a=c) and (b=c) then
       writeln('tam giac deu');
       if (a*a=b*b+c*c) or (c*c=b*b+a*a) or (b*b=a*a+c*c) then
       writeln('tam giac vuong');
       if (a=b) or (b=c) or (a=c) then
       writeln('tam giac can')
 
       end;
readln;
end.

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 17/5/2014, 19:30

bài 1

program ngoc_anh;
uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap do dai 1 canh:');readln(a);
write('nhap do dai 1 canh:');readln(b);
write('nhap do dai 1 canh:');readln(c);
if (a+b>c)and(a+c>b)and(c+b<a) then
writeln('do la ba canh tam giac')
else
begin
if (a=b=c) then
writeln('la tam giac deu');
 writeln('khong phai la bo ba tam giac');
if (a*a+b*b=c*c)or(a*a+c*c=b*b)or(c*c+b*b=a*a) then
writeln('do la tam giac vuong');
if (a=b)or(c=b)or(a=c) then
write('do la tam giac can')
else
 write('la tam giac thuong');
 end;
readln;
end.

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 17/5/2014, 20:17

bài 2:

program doi;
uses crt;
var hh,mm,ss,t,tong,h1,p1,m:integer;
begin
clrscr;
write('nhap so gio:');readln(hh);
write('nhap so phut:');readln(mm);
write('nhap so giay:');readln(ss);
write('nhap so giay them:');readln(t);
h1:=hh*3600;p1:=mm*60;
tong:=h1+p1+ss+t;
hh:=tong div 3600;
mm:=(tong mod 3600) div  60;
ss:= (tong mod 3600) mod  60 ;
write('ket qua=',hh,':',mm,':',ss);
 readln;
 end.

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by Admin on 17/5/2014, 20:33

- Bài 1 của bạn Ái cần sửa lại:
      + a=b=c là không đúng cú pháp
      + Cần kiểm tra nếu là bộ 3 tam giác thì mới thực hiện kiểm tra tam giác vuông, cân , đều.
      + Khi nhập a=1, b=1, c=3. bộ 3 này không phải là bộ 3 tam giác, nhưng chương trình lại in ra nó là tam giác cân.
- Bài 2: của bạn Ái cần sửa lại:
       + nhập giờ, phút, giây chứ không phải là chỉ nhập số giây. sau đó mới nhập số giây thêm.
- Bài 1: của bạn N. Anh cần sửa lại:
       + a=b=c là không đúng cú pháp
       + Ban đầu bạn kiểm tra bộ 3 tam giác là đúng, nhưng bạn lại dùng từ khóa ngược lại(else), tức là không phải tam giác. Nếu đã không phải là tam giác thì làm sao có thể là tam giác vuông, cân, đều được.
- Cả hai bạn cần đọc kỹ yêu cầu đề bài, nên viết ra giấy nháp từng công việc trước khi lập trình.

Admin
Admin

Tổng số bài gửi : 59
Points : 171
Reputation : 3
Join date : 06/10/2013
Age : 35
Đến từ : Cà Mau

Xem lý lịch thành viên http://phamhoe.forumvi.com

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by TranAi on 19/5/2014, 20:12

bài 1.
\program c_t;
uses crt;
var a,b,c:real;
begin
clrscr;
       write('nhap 3 canh a,b,c:');readln(a,b,c);
       if (a+b<=c) or (a+c<=b) or (b+c<=a) then
       writeln('khong phai bo 3 tam giac')
       else
       begin
       if (a+b>c) and (a+c>b) and (b+c>a) then
       writeln('la bo 3 tam giac');
       if (a=b) and (b=c) and (a=c) then
       writeln('tam giac deu');
       if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
       writeln('tam giac vuong');
       if ((a=b) and (a<>c)) or ((b=c)and (b<>a)) or ((a=c)and (b<>c)) then
       writeln('tam giac can');
       end;
readln;
end.

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 19/5/2014, 21:50

bài 3:
program tinh;
uses crt;
var tich,i:longint;
begin
clrscr;
tich:=1;
for i:=1 to 20 do
tich:=tich*i;
write('tich=',tich);
readln;

end.

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 19/5/2014, 22:21

bài 4

program tim;
uses crt;
var dem,dem:=0;
write('nhap so cuoi cung:');readln(n);
for i:=1 to n do
if i mod 7=0 then
dem:=dem+1;
write('trong do co', dem ,'chia het cho 7');
readln;
end.
i,n:integer;
begin
clrscr;

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 19/5/2014, 22:22

huynhngocanh đã viết:bài 4

program tim;
uses crt;
var dem,i,n:integer;
begin
clrscr;
dem:=0;
write('nhap so cuoi cung:');readln(n);
for i:=1 to n do
if i mod 7=0 then
dem:=dem+1;
write('trong do co', dem ,'chia het cho 7');
readln;
end.

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by huynhngocanh on 19/5/2014, 22:23

bài 4 trên em bỏ

huynhngocanh
Cấp 1
Cấp 1

Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by TranAi on 15/4/2015, 19:23

Câu 1. Viết chương trình nhập vào số nguyên N (n<=15000), kiểm tra và in ra màn hình:
*Số N có chia hết cho 4.
* N có bao nhiêu số.
* Tổng các chữ số của N là bao nhiêu.
* Số đảo ngược của N.
Câu 2:Viết chương trình nhập một số nguyên kiểm tra xem nó có phải là số nguyên tố không.
câu 3: Viết chương trình nhập vào 3 số bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh của tam giac không, nếu không thì in ra màn hình ('khong phai la ba canh cua mot tam giac'), Ngược lại thì in ra diện tích, chu vi cua tam giác ra màn hình

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập tổng hợp

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết