Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Minh Lệ
Xem chi tiết

Trình tự: A-B-C

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
7 tháng 8 2023 lúc 0:39

Tham khảo: Em kéo thả các lệnh như hình vào vùng lập trình thì khi bấm vào Em hãy tạo chương trình để khi nháy chuột vào, nhân vật mèo hiển thị lần lượt hai bóng nói giới thiệu: tên, sở thích của em, nhân vật mèo sẽ nói Tên em là Lan trong 2 giây và nói Em thích học lập trình Scratch trong 2 giây.

loading...

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
7 tháng 8 2023 lúc 0:37

Tham khảo:

loading...

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
7 tháng 8 2023 lúc 0:34

Em chọn nhân vật và lập trình theo mẫu.

loading...

Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 21:24

Chương trình 1 có lỗi cú pháp, câu lệnh 2, 3 không khớp nối với câu lệnh 1, 4.

Chương trình 2 có lỗi logic, a = b thuộc trường hợp a > b sai nên chương trình đưa ra thông báo sai khi nhập hai số a, b bằng nhau.

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
6 tháng 8 2023 lúc 21:33

Tham khảo:

loading...

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
26 tháng 11 2023 lúc 14:52

loading...

Em thực hiện kéo thả các lệnh theo mẫu sau.

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
7 tháng 8 2023 lúc 0:40

Nhân vật Mèo có hoạt động đúng như kịch bản.

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
26 tháng 11 2023 lúc 14:52

Kéo thả lệnh theo mẫu:

Nguyễn Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 9:21

Cách 1: Có sử dụng chương trình con

uses crt;

var st:string;

{------------chuong-trinh-con-------------------}

function doi(st1:string):string;

var i,d:integer;

begin

d:=length(st1);

for i:=1 to d do 

  st1[i]:=upcase(st1[i]);

doi:=st1;

end;

{-------------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(doi(st));

readln;

end.

Cách 2: Không sử dụng chương trình con

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  st[i]:=upcase(st[i]);

writeln(st);

readln;

end.