2.Cho biết ý nghĩa các câu lệnh trong chương trình sau:

Progam HINH_VUONG;
uses crt;
Var canh:real;
Begin
   clrssr;
   Write(‘nhap do dai canh:’);readln(canh);
   Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);
   Writeln(‘Dien tich hinh vuong la:’canh*canh:10:2);
   readln
end.

Em hãy viết (gõ vào) lệnh đúng, chỗ dấu ….. (VIẾT CHỮ THƯỜNG)trong đoạn chương trình sau để viết ra màn hình 3 từ “chao cac ban” (không có dấu ngoặc kép)con trỏ xuống dòng mới sau khi viết. Program chao ; Uses crt ; Begin Clrscr ; ……………; End. *

Câu trả lời của bạn

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).

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.

Em hãy viết(gõ vào) phần trả lời từ khóa đúng để bổ sung vào chỗ (viết chữ thường) còn thiếu, chỗ dấu … trong đoạn lệnh sau: Program baitap ; Uses crt ; …… Clrscr ; Writeln(‘Pascal’); 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.

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.