Viết thuật toán và viết chương trình :
1. Nhập tổng số giờ ,xuất ra số ra tương ứng
2. nhập tổng số giây xuất ra số giờ : phút : giây
3.nhập một số có ba chữ số xuất ra đơn vị ,chục, trăm ,Đảo Ngược
Giúp mình với ạ, mai mình nộp rùi huhuu
Viết thuật toán và viết chương trình : 1. Nhập tổng số giờ ,xuất ra số ra tương ứng 2. nhập tổng số giây xuất ra số giờ : phút : giây 3.nhập một số
By Isabelle
Bài 1:
Program NN;
Uses crt;
Var gio,giay: qword;
Begin
Clrscr;
Write(‘Nhap gio: ‘); Readln(gio);
giay:=gio*3600;
Write(‘Giay = ‘,giay);
Readln
End.
Bài 2:
Program NN;
Uses crt;
Var giay,gio,phut: qword;
Begin
Clrscr;
Write(‘Nhap giay: ‘); Readln(giay);
gio:=giay div 3600;
giay:=giay mod 3600;
phut:=giay div 60;
giay:=giay mod 60;
Write(gio,’ : ‘,phut,’ : ‘,giay);
Readln
End.
Bài 3:
Program NN;
Uses crt;
Var St: String;
Begin
Clrscr;
Write(‘Nhap so: ‘); Readln(St);
Write(St[3],St[2],St[1]);
Readln
End.
1.
In: Giờ (h).
Out: Giây (s).
MTTT:
B1: s ← h*3600.
B2: Thông báo s và KTTT.
VCT:
program ct_btpt;
uses crt;
var h, s: real;
begin
clrscr;
write(‘Nhap gio = ‘) readln(h);
s:=h*3600;
writeln(h:2:1, ‘ co so giay tuong ung la: ‘, s:2:1);
readln
end.
2.
In: Giây (s).
Out: Giờ (h), phút (p), giây (s).
MTTT:
B1: h ← s/3600
B2: p ← h*60
B3: s ← s
B4: Thông báo h, p, s và KTTT
VCT
program ct_btpt;
uses crt;
var h, p, s: real;
begin
clrscr;
write(‘Nhap giay = ‘); readln(s);
h:=s/3600;
p:=h*60;
s:=s;
writeln(s:2:1, ‘ co so gio tuong ung la: ‘, h:2:1);
writeln(s:2:1, ‘ co so phut tuong ung la: ‘, p:2:1);
writeln(‘ So giay la: ‘, s:2:1);
readln
end.
3.
In: Số có 3 chữ số (abc)
Out: Đơn vị (dv), chục (ch), trăm (tr).
MTTT:
B1: dv ← abc mod 10
B2: ch ← (abc div 10) mod 10
B3: tr ← abc div 100
B4: Thông báo dv, ch, tr và KTTT.
VCT:
program ct_btpt;
uses crt;
var dv, ch, tr: integer;
begin
clrscr;
write(‘Nhap so co ba chu so: ‘); readln(abc);
writeln(‘Chu so o hang don vi la: ‘, abc mod 10);
writeln(‘Chu so o hang chu la: ‘, (abc div 10) mod 10);
writeln(‘Chu so o hang tram la: ‘, abc div 100);
readln
end.