Bài tập  /  Bài đang cần trả lời

Giải bài có thưởng!

Viết tên các CTC; viết các tham số hình thức

----- Nội dung dịch tự động từ ảnh -----
. 2.1.3.1:4.1.5.16.1.7.1. 8 1.9.1 10. 1 11. 1 12. 113. 1 14. 1 15.1 ·16. 1.
18.
var sl, s2: str79;
stop: boolean;
procedure CatDan(sl: str79; var s2: str79);
begin
s2:= copy (sl, 2,length(sl)-1)+sl[1];
end;
procedure CanGiua (var s: str79);
var i, n: integer;
begin
n:= length(s);
n:= (80-n) div 2;
for i: 1 to n do s:=
'+s;
end;
begin
clrscr;
write('Nhap xau sl: '); readln(sl);
CanGiua (s1);
clrscr;
stop:= false;
while not (stop) do
begin
gotoxy (1, 12): ( Chuyen con tro den dau dong 12+)
write(sl);
delay (500); (* Dung 500 miligiay *)
Cat Dan (sl, s2);
sl:=s2;
stop:=keypressed; (* Nhan mot phim bat ki de ket thuc*)
end;
readln
end.
- Viết tên các CTC; viết các tham số hình thức; các tham
số thực sự; lời gọi CTC; biến toàn cục; biến cục bộ.
0 trả lời
Hỏi chi tiết
204

Bạn hỏi - Lazi trả lời

Bạn muốn biết điều gì?

GỬI CÂU HỎI
Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm
Bài tập Tin học Lớp 11 mới nhất

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui Buồn Bình thường

Học ngoại ngữ với Flashcard

×
Gia sư Lazi Gia sư
×
Trợ lý ảo Trợ lý ảo