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. *
1. Em hãy viết từ khóa đầu tiên (viết chữ thường) của phần thân chương trì
2.Em hãy viết lệnh xuống dòng (tạo 1 dòng trống) ở màn hình đen (viết chữ thường)
3.Em hãy viết lệnh dừng màn hình (đen) trong 15 giây (viết chữ thường)
Đâ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
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
Lệnh print() dùng để
A. Không đưa con trỏ xuống đầu dòng tiếp theo
B. Đưa con trỏ xuống đầu dòng tiếp theo
C. Bỏ trong dấu ngoặc đơn
D. Bỏ trong dấu ngoặc kép
1. Viết thủ tục kiem_tra chứa các dòng lệnh đưa ra màn hình các dòng:
Xin chao cac em hoc sinh lop 11a
Rat vui khi lam quen voi cac em
Chuc cac em mot ngay that hanh phuc!
Trong chương trình chính gọi thủ tục kiem_tra.
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
Em hãy viết một đoạn văn dài từ 12 dòng trở lên kể về một tiết học online, trong đoạn văn đó có sử dụng dấu ngoặc đơn, dấu hai chấm, dấu ngoặc kép (xuống dòng gạch đầu dòng ghi rõ tác dụng của mỗi dấu câu đó). - Câu 1 thêm: Tìm 1 câu ghép có trong đoạn văn em viết, xác định thành phần câu và quan hệ ý nghĩa giữa các vế câu của câu ghép đó.
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Câu 2:
uses crt;
const fi='kq.out'
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chan la: ',t/dem:4:2);
readln;
end.
Em chọn chữ nào trong ngoặc đơn để điền vào chỗ trống?
Em hãy phân biệt ch/tr, dấu hỏi/dấu ngã khi viết.
a)
- (chở, trò) : trò chuyện, che chở
- (trắng, chăm) : trắng tinh, chăm chỉ
b)
- (gổ, gỗ) : cây gỗ, gây gổ
- (mỡ, mở) : màu mỡ, cửa mở
