Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
Từ nào sau đây là từ khóa trong ngôn ngữ lập trình Pascal?
A. Program;
C. Writeln;
B. Hinh_tron;
D. A và B.
trong các từ sau từ nào là từ khóa
A program B writeln C crt D sqrt(x):
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. *
Tìm và sửa chương trình này thành một đoạn chương trình hoàn chỉnh Program NHOM_PPT Uses crt Begin Writenln ('Nhom chung minh Phan,My,Minh') Writeln ('chuc cac ban hoc tot') Readln End
program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
writeln(‘Họ tên: ……………., lớp:….’);
writeln ('Mời bạn nhập vào 2 số nguyên:');
readln(a,b);
Writeln('Bạn vừa nhập vào 2 số:',a,' - ',b);
Writeln('Tổng 2 số nguyên là:', a+b);
Write('Số lớn nhất trong 2 số là:');
if a>b then Writeln(a) else Writeln(b);
readln;
end.
Mọi người xem có sai chỗ nào ko :>
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.
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end