5) a) Viết ct in ra màn hình bảng cửu chương của số N trong khoảng từ 1->9. N được nhập từ bàn phím b) Viết ct tính tổng T = 1+ 1/2 +1/3 +…+ 1/1

0 bình luận về “5) a) Viết ct in ra màn hình bảng cửu chương của số N trong khoảng từ 1->9. N được nhập từ bàn phím b) Viết ct tính tổng T = 1+ 1/2 +1/3 +…+ 1/1”

1. a)

   program a;

   uses crt;

   var i,N:integer;

      write(‘Nhap so N: ‘); readln(N);

      writeln(‘Bang nhan ‘,N,’ la: ‘);

      for i:=1 to 10 do

        writeln(N,’ x ‘i:2,’ = ‘N*i:3);

   readln;

   end.

   b)

   program b;

   uses crt;

   var T:real;

         i:integer;

   begin clrscr;

        T:=0;

      for i:=1 to 100 do

        T:=T+(1/i);

      writeln(‘Tong T la: ‘,T:4:2);

   readln;

   end.

   c) Ví dụ về khai báo biến mảng:

         var  A:array[1..100] of integer;

         var Diem:array[1..41] of real;

   Học tốt!

   Bình luận

2. 5

   a)

   program ct;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

     writeln(‘bang cuu chuong’,n);

     writeln;

     for i:=1 to 10 do writeln(n,’x’,i:2,’=’,n*i:3);

   readln

   end.

   b)

   program ct;

   uses crt;

   var i:integer; S:real;

   begin

   clrscr;

     S:=0;

         for i:=1 to 100 do S:=S+1/i;

      writeln(‘tong T=’,S);

   readln

   end.

   c) VD:

   var chieucao:array[1..50] of real;

   var B:array[1..100] of integer;

   Bình luận