xác định bài toán, mô tả thuật toán và viết chương trình: a) So sánh 2 số thực (a ≠b) b) Thông báo số lớn hơn trong 2 số thực a và b (a ≠b) nhanh nhất

xác định bài toán, mô tả thuật toán và viết chương trình:
a) So sánh 2 số thực (a ≠b)
b) Thông báo số lớn hơn trong 2 số thực a và b (a ≠b)
nhanh nhất ”hay nhất”

0 bình luận về “xác định bài toán, mô tả thuật toán và viết chương trình: a) So sánh 2 số thực (a ≠b) b) Thông báo số lớn hơn trong 2 số thực a và b (a ≠b) nhanh nhất”

  1. a)  

    Input: a,b

    Output: So sánh

    Bước 1: Nhập hai số thực a và b

    Bước 2:

    2.1: Nếu a>b thì xuất ra màn hình a>b

    2.2: Nếu a<b thì xuất ra màn hình a<b

    Bước 3: Kết thúc chương trình

    Program NN;
    Uses crt;
    Var a,b: real;
    Begin
            Clrscr;
            Write(‘Nhap a,b: ‘); Readln(a,b);
            If a>b then Write(a:0:2,’ > ‘,b:0:2)
            Else if b>a then Write(a:0:2,’ < ‘,b:0:2);
            Readln
    End.

    b)

    Input:  a và b

    Output: Số lớn hơn

    Bước 1: Nhập hai số thực a và b

    Bước 2:

    2.1: Nếu a>b thì xuất ra màn hình a

    2.2: Nếu a<b thì xuất ra màn hình b

    Bước 3: Kết thúc chương trình

    Program NN;
    Uses crt;
    Var a,b: real;
    Begin
            Clrscr;
            Write(‘Nhap a,b: ‘); Readln(a,b);
            If a>b then Write(a:0:2)
            Else if b>a then Write(b:0:2);
            Readln
    End.

    Bình luận
  2. a,

    Input : 2 số a và b

    Output : So sánh a và b

    Thuật toán

    b1 : Nếu a > b in a lớn hơn b

           ngược lại thì in b lớn hơn a

    b2 : In kết quả và kết thúc chương trình

     Chuong trinh

    program az;

    uses Crt;

    var a,b : real;

    begin

    clrscr;

    Write(‘Nhap 2 so a va b : ‘); readln(a,b);

    If (a > b) then Write(a,’lon hon’,b) else Write(b,’lon hon’,a);

    readln

    end.

    b,

    Input : 2 số a và b

    Output : Số lớn nhất

    Thuật toán

    b1 : Nếu a > b in a là số lớn hơn

           ngược lại thì in b là số lớn hơn

    b2 : In kết quả và kết thúc chương trình

    Chuong trinh

    program az;

    uses Crt;

    var a,b : real;

    begin

    clrscr;

    Write(‘Nhap 2 so a va b : ‘); readln(a,b);

    If (a > b) then Write(a,’la so lon hon’) else Write(b,’ la so lon hon’);

    readln

    end.

    Bình luận

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