Sai ở chỗ vị trí đặt của Uses crt; Thiếu chấm phẩy sau lệnh Writeln và sai chính tả chữ Reason
Sửa lại:
program chao;
uses crt;
begin
writeln('Chao cac ban');
readln;
end.
Sai ở chỗ vị trí đặt của Uses crt; Thiếu chấm phẩy sau lệnh Writeln và sai chính tả chữ Reason
Sửa lại:
program chao;
uses crt;
begin
writeln('Chao cac ban');
readln;
end.
1)Tìm các lỗi và thực hiện chỉnh sửa chương trình sau
Program Chuc hoc tot
Uses crt
Begin
Write (lop 8D on ao)
End
Đây là chương trình in ra màn hình 2 dòng chữ CHAO CAC BAN, thời gian in mỗi dòng cách nhau 3 giây:
Program vd1;
uses crt;
begin
clrscr; {Lau sạch màn hình}
writeln('CHAO CAC BAN'); {lệnh xuất CHAO CAC BẠN RA MÀN HÌNH}
Delay(3000); {lệnh tạm dừng thực hiện lệnh sau nó 3 giây}
writeln('CHAO CAC BAN');
readln;
end.
Dựa vào chương trình trên, viết chương trình in ra màn hình dòng chữ KHẨN CẤP nhấp nháy 3 lần!
Cần gấp lắm mn ơi huhu
Từ nào là các từ khóa trong chương trình:
A. Begin, Program, Write, Uses, Read
B. Program, Var, Begin, Uses, Const, End
C. End, Read, Var, Const, program
D. Program, Begin, End, Uses, integer
Các chương trình Pascal sau đây có hợp lệ không, tại sao?
a) Chương trình 1
begin
end.
b) Chương trình 2
begin
program CT thu;
writeln('Chao cac ban');
end.
Chỉnh lỗi
Program GPTBN ;
var a; b, Real ;
Begin
Write( Nhap he so a,b cua phuong trinh :);Readln (a;b)
if a#0 then writeln ('Phuong trinh co nghiem duy nhat x=' -b/a:0:4);
else if b=0 then writeln (' Phuong trinh co vo so nghiem ') ;
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
Giải giúp mk vs ạ mk đang cần gấp . Thank
Các chương trình Pascal sau đây có hợp lệ không, tại sao?
a) Chương trình 1
begin
end.
b) Chương trình 2
begin
program CT_thu;
writeln ( ' Chao cac ban ' );
end.
Từ nào sau đây khong phải là từ khóa của chương trình: A. Uses B. Program C. Begin D. Computer
Viết chương trình in ra màn hình 3 dòng chữ:
- Chào các bạn
- Mình tên là ...
- Mình học lớp ...
Giúp mình với ạ Tìm giá trị của X Var x : integer ; Begin X:= 3 ; If (45 mod 3) =0 then x:= x+2 ; If x > 10 then x:= x+10; End.