Đăng Nhập
Latest topics
Thống Kê
Hiện có 2 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 2 Khách viếng thăm Không
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ênChú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
3 posters
Trang 1 trong tổng số 1 trang
Bài tập tổng hợp
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)
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.
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
- 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.
+ 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.
Re: Bài tập tổng hợp
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.
\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
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài tập tổng hợp
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.
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
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
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;
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
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
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
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
bài 4 trên em bỏ
huynhngocanh- Cấp 1
- Tổng số bài gửi : 6
Points : 8
Reputation : 2
Join date : 23/03/2014
Re: Bài tập tổng hợp
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
*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
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
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
|
|
2/2/2016, 18:55 by crazy
» Bài 3: Câu lệnh điều kiện(if .. then ..)
17/1/2016, 20:30 by TranAi
» Bài 2: Nhập dữ liệu vào biến(Readln)
3/1/2016, 16:25 by crazy
» Bài 4: Cấu trúc rẽ nhánh(Case .. of)
29/11/2015, 18:11 by TranAi
» Bài 1: Lệnh thông báo ra màn hình(Write)
19/11/2015, 14:45 by caodao
» Hướng dẫn Ghost HDD không cần đĩa CD
12/6/2015, 16:44 by duchiep0123
» Bài tập tổng hợp
15/4/2015, 19:23 by TranAi
» Bàn ghế tre – cafe, nhà hàng giá xuất xưởng chỉ với 380k/1b
18/7/2014, 09:42 by hoaithuong
» Bài thuốc truyền đời chữa bệnh viêm gan B và xơ gan cổ trướng của lương y nức tiếng Hà thành
27/5/2014, 10:30 by hatcatvothuong