Các câu hỏi tương tự
Cho biến thực x đã được gán giá trị 12.41235. Sau khi thực hiện câu lệnh Writeln(‘x=’ ,x:5:2); thì giá trị của biến x được in ra màn hình là:
A. 12.41
B. 12
C. x=12.41
D. x=12
Cho đoạn chương trình sau:
readln(x);
y := (x+2)*x – 5 ;
writeln(‘gia tri cua y = ’, y);
Nếu nhập x = 2 thì có những thông tin gì ở ngoài màn hình?
A. gia tri y la:3
B. y=3
C. gia tri cua y=3
D. 3
Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?
A. 20
B. x+y
C. 10
D. 30
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Sửa lỗi cú pháp cho chương trình sau nếu có Program KT HK1 Const g:= 9.8; Var h, v:read; Begin Writeln('Nhap h=) Readln(N); V= sqrt(2*g* h); Writeln( V = ', v); End. b. Cho biết giá trị của v sau khi thực hiện chương trình đã sửa với h = 20.
Program thi_hk2; Var a,b,c : real; Procedure vidu (x: integer; y,x: real ):real; Var tong: real; Begin x:= x+1; y:= y-x; z:=z+y; tong:=x+y+z; Writeln(x,’ ’,b,’ ‘,z,’ ‘,tong); End; BEGIN a:=3; b:=4; c:=5; vidu(a,b,c); Wreadln End. a.trong chương trình trên có lỗi, hãy sửa lỗi để chương trình chạy được ? B. Hãy xác định tham số hình thức trong chương trình trên