Mn cho mình hỏi trong Pascal nếu k nhấn Alt+F5 để quan sát kết quả thì có thể thay thế bằng lệnh gì?
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
readln;
End.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
1.Lệnh Writeln(453.123:5:2); cho kết quả trên màn hình là:
A.453.123
B.453.12
C.453.1
D.453
2.Lệnh Readln là lệnh:
A.Tạm ngừng chương trình.
B. Tạm ngừng chương trình chờ nhấn phím Enter.
C.Tạm ngừng chương trình trong x/1000 giây
D.Nếu lệnh Readln đặt trước End, thì nó là lệnh dừng màn hình để xem kết quả.
3. Lệnh Writeln(453.123:5:2); cho kết quả trên màn hình là:
A. Kết quả được hiển thị trong 10 ô tính từ bên phải sang.
B. Kết quả được hiển thị trong 5 ô tính từ bên phải sang.
C. Kết quả được hiển thị trong 2 ô tính từ bên phải sang.
D. Kết quả được hiển thị trong 12 ô tính từ bên phải sang.
Trong pascal, để dịch chương trình ta sử dụng tổ hợp phím nào?
A.Ctrl + F9 B. F9 + F3 C. Alt + F9 D. Alt + F5
Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).