Các câu hỏi tương tự
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.
Chuyển sang C++ giúp mình với ạ 1: uses crt;var a,b,i,tsc,tsl:integer;beginclrscr;write(nhap a); readln(a);write(nhap b); readln(b);if (a0) and (b0) thenbeginif ab thenbegintsc:0;tsl:0;for i:a to b doif i mod 20 then tsc:tsc+ielse tsl:tsl+i;writeln(tong cac so chan trong khoang tu ,a, toi ,b, la: ,tsc);writeln(tong cac so le trong khoang tu ,a, toi ,b, la: ,tsl);endelse writeln(vui long nhap a be hon b);endelse writeln(vui long nhap hai so duong);readln;end.
Đọc tiếp
Chuyển sang C++ giúp mình với ạ 1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.
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.
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.
Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì S1 := 'hong'; S2 := 'hoa'; i :=pos(S2, S); While i 0 do Begin Delete(S,i,2); Insert(S1,S,i); i := pos (S2,S); End;
Giả sử mảng a gồm các phần tử a[1]1, a[2]2, a[3]3, a[4]4, a[5]5.Xét đoạn chương trình sau:S : 0;For i : 1 to 5 do If a[i] mod 2 0 then S : S+a[i];Write(S);Kết quả hiện ra màn hình là: A. S6 B. 6 C. 9 D. S9
Đọc tiếp
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i := 1 to 5 do
If a[i] mod 2 = 0 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. S=6
B. 6
C. 9
D. S=9
Giả sử mảng a gồm các phần tử a[1]1, a[2]2, a[3]3, a[4]4, a[5]5.Xét đoạn chương trình sau:S : 0; For i :1 to 5 do If a[i] mod 2 1 then S : S+a[i];Write(S);Kết quả hiện ra màn hình là: A. 9 B. S6 C. 6 D. S9
Đọc tiếp
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i :=1 to 5 do
If a[i] mod 2 = 1 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. 9
B. S=6
C. 6
D. S=9