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.
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
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 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.
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.
Cho chương trình Pascal sau:Program chuvi_duongtron :uses crt;const pi : 3.14;var cv, r: real;Beginclrscr;write(‘nhap ban kinh r ‘); writeln(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 = ‘);
writeln(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.