Câu 1:viết chương trình sử dụng câu lệnh lặp for…do để tính tổng của 5 số thực x1,x2,…x5 và các số thực được nhập từ bàn phím. Câu 2: viết chương

Câu 1:viết chương trình sử dụng câu lệnh lặp for…do để tính tổng của 5 số thực x1,x2,…x5 và các số thực được nhập từ bàn phím.
Câu 2: viết chương trình sử dụng câu lệnh lặp while….do để tính tổng của 5 số thực x1,x2…..x5 và các số thực được nhập từ bàn phím

0 bình luận về “Câu 1:viết chương trình sử dụng câu lệnh lặp for…do để tính tổng của 5 số thực x1,x2,…x5 và các số thực được nhập từ bàn phím. Câu 2: viết chương”

  1. Câu 1 :

    Program BT_1;
    Var i: longint;
        t : real;
        a : array [1..100] of real;
    Begin
    t := 0;
    For i := 1 to 5 do 
    Begin
    Write (‘A[‘,i,’]= ‘);Readln(a[i]);
    t := t + a[i];
    end;
    Write (‘TOng cua 5 so thuc do la : ‘,t : 2:4);
    end.

    Câu 2 : 

    Program BT_2;
    Var i: longint;
        t : real;
        a : array [1..100] of real;
    Begin
    t := 0;
    while i <> 5 do
    Begin
    i := i + 1;
    Write (‘A[‘,i,’]= ‘);Readln(a[i]);
    t := t + a[i];
    end;
    Write (‘Tong cua 5 so thuc do la : ‘,t : 2:4);
    end.

    Bình luận
  2. Câu 1:

    program Cau_1;

    uses crt;

    var i: byte;

          x,T: real;

    Begin

             clrscr;

             for i:=1 to 5 do

             begin

                      write(‘Nhap so thuc thu ‘,i,’: ‘); readln(x);

                      T:=T+x;

             end;

             write(‘T = ‘,T:2:2);

             readln

    End.

    Câu 2:

    program Cau_2;

    uses crt;

    var i: byte;

          x,T: real;

    Begin

             clrscr;

             i:=1;

             while i<=5 do

             begin

                      write(‘Nhap so thuc thu ‘,i,’: ‘); readln(x);

                      T:=T+x;

                      i:=i+1;

             end;

             write(‘T = ‘,T:2:2);

             readln

    End.

    Bình luận

Viết một bình luận