Viết chương trình Pascal có khai báo và sử dụng biến

Nhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.

a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).

b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.

u 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?

Câu lệnh Đúng Sai Sửa lại

Program Chuong trinh

Var i,s : real;

Const n:=10;

Begin

Wile i <=n do;

Begin

S:=s+i

i =i+1

End.

Writeln(s)

Readln

End;

giúp mik với mình cần gấp ạ

: Để viết chương trình tính diện tích hình thang như dưới đây. Bạn Tuấn đã ghi lại chương trình ra giấy, nhưng cố tình xếp lộn xộn các lệnh và viết sai một số chỗ. Em hãy giúp bạn thay đổi lại trình tự các lệnh và sửa các chỗ sai để được chương trình viết đúng.

          Begin;

           Uses Crt;

Var a,b,h: Integer;

                   S: Real

          Program   hinhthang;

          Writeln(‘DT hinh thang la:’,S);

          Write(‘Hay nhap hai day va chieu cao=’); Readln(a,b,h)

                   S := (a+b)*h/2;

Readln;

Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp  cho đúng?

                        Tính giá trị biểu thức: 12.x – 30 + 12

              Uses CRT:

          Clrscr.

            Begin

           Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)

           Program Tinh _gia_tri_bieu_thuc;

            Var x: Real;

            Write(‘Nhap gia tri x:  ’); readln(x);

            Readln;

            End.

Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?

Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:

Program     tinh_tong;

Var         n  S: Integer

Begin

n:  0;

S = 0;

While S< 1000 do

n:= n + 1; 

                   S:= S + n

            Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);  

    Readln;

End.