Bài 1:
Viết chương trình tính tiền điện: biết rằng chỉ số mới và cũ được nhập từ bàn phím
Viết chương trình tính tiền điện: biết rằng chỉ số mới và cũ được nhập từ bàn phím
Và biết rằng giá điện được tính như sau:
Số Kw tiêu thụ
|
Đơn giá
(đồng)/Kw
|
Từ 100 Kw trở xuống
|
550
|
Từ 101è150
|
1100
|
Từ 151è200
|
1600
|
Trên 200
|
2300
|
Yêu cầu: Tính và in ra số tiền phải trả
Ví dụ:
Th1:
Chi số cũ =40
Chỉ số mới =90
Số tiền phải trả: 27500
Th2:
Chỉ số cũ =40
Chỉ số mới =150
Số tiền phải trả: 66000
Bài 2:
Phú Ông cho Bờm một số que gỗ và đố Bờm chọn được 3 que để xếp thành một hình tam giác. Bờm chỉ biết độ dài 3 que gỗ mình sẽ lấy chứ không được xếp thử trước.
Yêu cầu: Nhập độ dài 3 que gỗ từ bàn phím hãy giúp Bờm kiểm tra xem 3 que gỗ vừa nhập có
xếp được thành tam giác hay không?
Ví dụ:
vd1: độ dài 3 que gỗ lần lượt là 3, 4, 5 thì thông báo xếp được
vd2: độ dài 3 que gỗ lần lượt là 3, 4, 9 thì thông báo không xếp được
Bài 3: (*)
Mặt của đồng hồ điện tử thể
hiện 3 số tương ứng giờ (h), phút (p) và giây (s) của thời điểm hiện tại. Cứ sau mỗi giây giá trị
của bộ ba số h, p và s này sẽ thay đổi thành 3 số h1, p1 và s1 tương ứng với
thời điểm mới
Yêu cầu: nhập ba số h, p và s từ bàn phím hãy tìm và in ra màn hình 3 số h1, p1 và
s1.
.jpg)
Ví dụ: ba số h, p, s lần lượt là 12, 16, 26 tương ứng với 12 giờ 16 phút và 26 giây. sau thời gian 1 giây thì 3 số h1, p1, s1 sẽ là 12, 16, 27
Một số ví dụ khác
H
|
P
|
S
|
H1
|
P1
|
S1
|
5
|
30
|
59
|
5
|
31
|
0
|
5
|
59
|
59
|
6
|
0
|
0
|
Bài 4: Tuổi của mẹ hiện nay là a và tuổi của
con là b. Em hãy viết chương trình kiểm tra xem tuổi của mẹ có gấp
đôi tuổi con không ? Nếu đúng thì thông báo ‘ hien nay tuoi me gap doi
tuoi con’, trong trường hợp ngược lại hãy tính số năm c mà trước đó hoặc sau đó
tuổi mẹ gấp đôi tuổi con và đưa ra thông báo : ‘truoc day c nam tuoi me
gap doi tuoi con’ hoặc ‘sau c nam nua tuoi me gap doi tuoi con’. Với a, b nhập từ bàn phím (a>b+18)
Ví dụ:
|
a
|
b
|
Kết quả
|
|
48
|
24
|
hien nay
tuoi me gap doi tuoi con
|
|
23
|
3
|
sau 17 nam nua tuoi me gap doi tuoi con
|
|
70
|
40
|
truoc day 10 nam tuoi me gap doi tuoi con
|
program b1;
Trả lờiXóauses crt;
var
csm,csc,x:integer;
begin
write('nhap chi so cu =');
readln(csc);
write('nhap chi so moi =');
readln(csm);
x:=csm-csc;
if x<=100 then
write('so tien phai tra =',x*550);
if (x>=101) and (x<=150) then
write('so tien phai tra =',100*550+(x-100)*1100);
if (x>=151) and (x<=200) then
write('so tien phai tra =',100*550+50*1100+(x-150)*1600);
if x>200 then
write('so tien phai tra =',100*550+50*1100+200*1600+(x-200)*2300);
readln
end.
Giải thích
csm: chỉ số mới
csc: chỉ số cũ
x: số tiền phải trả
Cho em sửa lại
Xóax: lượng điện tiêu thụ
duong
Xóaif cuoi sao 200*1600 lai dung thay?
phai la 50*1600
Rất tốt. Điểm 10 cho bạn Thanh Huyền
Trả lờiXóabài 3:
Trả lờiXóauses crt;
var h,p,s,s1,p1,h1:integer;
begin
clrscr;
write('nhap h:=');
readln(h);
write('nhap p:=');
readln(p);
write('nhap s');
readln(s);
s1:=s+1;
if s1=60 then writeln('s"=0')
else writeln('s":=',s1);
if s1=60 then p1:=p+1
else p1:=p;
if p1=60 then writeln('p"=0')
else writeln('p":=',p1);
if p1=60 then h1:=h+1
else h1:=h;
if p1=60 then writeln('h":=',h1)
else writeln('h":=',h);
readln
end.
giải thích s1:s"
Xóap1:p"
h1:h"
điểm 10 cho bạn Phát.
Trả lờiXóaduong
Trả lờiXóavar
h,p,s,h1,p1,s1:integer;
begin
write('nhap gio : '); readln(h);
write('nhap phut : '); readln(p);
write('nhap giay : '); readln(s);
s1:=s+1;
if s+1=60 then writeln('giay: o') else writeln('giay',s1);
if s+1=60 then p1:=p+1 else p1:=p;
if p1=60 then writeln(' phut: 0') else writeln(' phut:', p1);
if p+1=60 then h1:=h+1 else h1:=h;
if p+1=60 then writeln(' gio :',h1) else writeln('gio :',h);
readln;
end.
giai thich
Trả lờiXóas= giay (nhap)
p= phut (nhap)
h= gio (nhap)
s1= giay (ra)
p1= phut (ra)
h1= gio (ra)
Nhận xét này đã bị tác giả xóa.
Trả lờiXóabai2
Trả lờiXóavar
a,b,c:longint;
begin
write('nhap do dai que go 1:'); readln(a);
write('nhap do dai que go 2:'); readln(b);
write('nhap do dai que go 3:'); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then write('xep duoc')
else
write('khong xep duoc');
readln;
end.