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ố

0 bình luận về “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ố”

1. 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.

   Bình luận

2. 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. 

   Bình luận