Các câu hỏi tương tự
Cho chương trình sau:Program C_trinh_con;Var d: char; X1: string;Procedure Xoa (a: char ; var Xt:string); Var j: byte; Begin j : pos (a, Xt); while j 0 do begin delete(Xt, j, 1); j : pos(a, Xt); end; End;Begin X1:’SEPTEMBER’; d : ‘E’; Xoa (d, X1);End.a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Đọc tiếp
Cho chương trình sau:
Program C_trinh_con;
Var d: char;
X1: string;
Procedure Xoa (a: char ; var Xt:string);
Var j: byte;
Begin
j := pos (a, Xt);
while j < > 0 do
begin
delete(Xt, j, 1);
j := pos(a, Xt);
end;
End;
Begin
X1:=’SEPTEMBER’;
d := ‘E’;
Xoa (d, X1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:Program C_trinh_con;Var d: char; X1: string;Procedure Xoa (a: char ; var Xt:string); Var j: byte; Begin j : pos (a, Xt); while j 0 do begin delete(Xt, j, 1); j : pos(a, Xt); end; End;Begin X1:’SUCCESSFUL’; d : ‘S’; Xoa (d, X1); End.a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Đọc tiếp
Cho chương trình sau:
Program C_trinh_con;
Var d: char;
X1: string;
Procedure Xoa (a: char ; var Xt:string);
Var j: byte;
Begin
j := pos (a, Xt);
while j < > 0 do
begin
delete(Xt, j, 1);
j := pos(a, Xt);
end;
End;
Begin
X1:=’SUCCESSFUL’;
d := ‘S’;
Xoa (d, X1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: 
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:Program Baitap;Var S1, S2 : string;Procedure Xu_li_xau(a:string; var St:string); Var i: byte; Begin i : pos (a, St); while i 0 do begin delete(St, i, 4); i : pos(a, St); end; End;Begin S1 : ‘sen trang, sen hong; S2 : ‘sen’; Xu_li_xau(S2,S1); End.a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Đọc tiếp
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘sen trang, sen hong;
S2 := ‘sen’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:Program Baitap;Var S1, S2 : string;Procedure Xu_li_xau(a:string; var St:string); Var i: byte; Begin i : pos (a, St); while i 0 do begin delete(St, i, 4); i : pos(a, St); end; End;Begin S1 : ‘hoc nua, hoc mai; S2 : ‘hoc’; Xu_li_xau(S2,S1); End.a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Đọc tiếp
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘hoc nua, hoc mai;
S2 := ‘hoc’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
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.
Câu 41: Khai báo mảng nào sau đây đúng?
A. Var day_A :Array[1..,,10] of byte;
B. Var day_A :Array[1..10] of type ;
C. Var day_A :Array[a..k] of char;
D. Type day_A :Array[1..10] of byte;
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?
A. m := -4 ;
B. n := 3 ;
C. x := 6.5 ;
D. y := ‘10.5’ ;
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?
A. m := -4 ;
B. n := 3.5 ;
C. x := 6.5 ;
D. y := +10.5 ;
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?
A. m := -4.5 ;
B. n := 3 ;
C. x := 6.5 ;
D. y := +10.5 ;
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai?
A. x := TRUE ;
B. n := 3 ;
C. m := -4 ;
D. y := +10.5 ;