Các câu hỏi tương tự
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.
Viết chương trình:Nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là số có trong xâu.Var a: string; I,dem: integer;Begin Readln(a); Dem:0; For i:1 to length(a) do If (‘0’a[i]) and (a[i]’9’) then dem:dem+1; Writeln(dem); Readln End.
Đọc tiếp
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
cho chương trình: program vd ; var a,b,c:integer; begin readln(a,b,c); writeln((a+b)/2:2:0,a+b+c,(a*b)); end
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:readln(x,y); IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y2 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=2 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x2 và y3 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=2 và y=3 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y); IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y2 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=2 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x0 và y0 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=0 và y=0 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y3 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=3 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho chương trình Pascal sau:Program chuvi_duongtron:uses crt;const pi 3,14; var cv, r: real;Begin clrscr; write(nhap ban kinh r ); readln(r); cv: 2*pi*r; writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’); readlnHãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program chuvi_duongtron:
uses crt;
const pi = 3,14;
var cv, r: real;
Begin
clrscr;
write(nhap ban kinh r = );
readln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.