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.
