Dưới đây là một chương trình viết trong Pascal: program CT_dau_tien; uses crt; begin writeln(‘ Chao cac ban’); readln; end. *
Program là từ khóa;
Program là tên;
CT_dau_tien là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
begin là tên;
writeln là từ khóa;
writeln là tên;
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
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. *
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.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses= crt;
const pi = 3.14;
var: dt, r: real;
clrscr;
write(‘nhap ban kinh r = ‘);
readln(r);
dt = pi*sqr(r);
writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);
readln
End.
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
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.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu 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.
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.
4. Câu hỏi phát triển bài tập:
4.1. Liệt kê các từ tiếng anh có trong bài tập “phepcong.pas”? Các từ đó dịch nghĩa là gì? (vd: begin – bắt đầu, ….)
4.2. Hãy tìm hiểu xem trong ngôn ngữ pascal các từ tiếng anh trên là gì? Được dùng như thế nào?
dưới đây là bài "phepcong.pas" nha
Program Test;
Uses Crt;Var a,b,tong:integer;Beginclrscr;writeln(' ---- Cong hai so nguyen ---');write(' - Nhap so nguyen a = '); readln(a);write(' - Nhap so nguyen b = '); readln(b);tong:=a+b;writeln(' - Tong a + b = ',tong);readlnEnd.giúp minh vs mai nop oyprogram là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
writeln là xuất
readln(a) là nhập vào
tong:=a+b có nghĩa là phép gán biến tong cho a+b;
writeln('-Tong a+b=',tong) là xuất kết quả của biến tong
readln có nghĩa là lệnh chờ
end là kết thúc