thì cái đó là giới hạn chữ số thập phân thôi bạn
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
2.Cho biết ý nghĩa các câu lệnh trong chương trình sau:
Progam HINH_VUONG;
uses crt;
Var canh:real;
Begin
clrssr;
Write(‘nhap do dai canh:’);readln(canh);
Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);
Writeln(‘Dien tich hinh vuong la:’canh*canh:10:2);
readln
end.
Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng:
program dientich;
Const Pi:=3.1416;
var cv,dt : integer ;
r : real;
begin
r:=5.5;
cv:=2*pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv)
writeln ('dien tich la',dt)
readln
end.
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
Đối với từng đoạn chương trình Pascal sau đây hãy cho biết có bao nhiêu vòng lặp và lệnh writeln (s) in ra màn hình giá trị của s là bao nhiêu?
S:=20; n:=0;
While S>5 do
Begin
n:=n+3;
S:=S-n;
End;
Writeln(S);
Xem chi tiết
viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy
mảng a là 6 8 5 2 7.Sau khi đoạn chương trình sau được thực hiện,giá trị của S bằng bao nhiêu?s:=0;n:=0;for i:=2 to 5 do while (a[i] mod i0) do i:= i+1; if a[i]=n then writeln a[i];
Câu 1: Hãy điền vào chỗ trống để được một chương trình đúng:
Program tinh_tich;
Var i: integer;
s: ………….;
Begin
s:= ……..;
for i:= 1 to 10 … s:= s*1/i;
writeln ('tich ',……...);
readln;
End.