Tính trung bình nhân của 4 số với Pascal

Lập trình Pascal

Bài toán. Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến.

Hướng dẫn:

– Dùng một biến S có giá trị ban đầu bằng 1.

– Dùng một biến để nhập số.

– Sau khi nhập một số nhân ngay vào biến S.

– Trung bình nhân bốn số là căn bậc 4 tích của chúng (Dùng hai lần căn bậc hai).

Program TB_nhan;
uses crt;
Var a, S: real;
Begin
    clrscr;
    S:=1;
    Write('Nhap so thu nhat: '); readln(a); S:=S*a;
    Write('Nhap so thu hai: '); readln(a); S:=S*a;
    Write('Nhap so thu ba: '); readln(a); S:=S*a;
    Write('Nhap so thu tu: '); readln(a); S:=S*a;
    Write('Trung binh nhan cua bon so la:',sqrt(sqrt(s)));
    readln
End.

2 thoughts on “Tính trung bình nhân của 4 số với Pascal

  1. escape room says:

    hello there and thank you for your info – I’ve definitely picked up
    anything new from right here. I did however expertise some technical points using
    this site, as I experienced to reload the site a lot of times previous to I could get it to load correctly.
    I had been wondering if your hosting is OK? Not that I am complaining, but sluggish loading instances times will often affect your placement
    in google and could damage your high-quality score if advertising and marketing with Adwords.
    Anyway I’m adding this RSS to my email and can look out for much more of your respective
    exciting content. Make sure you update this again soon.. Lista escape room

Trả lời

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *