Viết chương trình con chuyển các từ viết thường sang viết hoa. (trong pascal)
Vd: pascal sang PASCAL
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Viết chương trình con chuyển các từ viết thường sang viết hoa. (trong pascal)
Vd: pascal sang PASCAL
c1
ko vì máy tính chưa lưu file
c2
del là phím xóa đằng sau
phím backspace là phím xóa đằng trước
c4 có . ko nên dùng nhiều phông chữ khác nhau trong 1 văn bản vì người đọc không thể hiểu đc
là nút lệnh có hình cái xô đổ màu xuống đó bn!!!
chuc bn học tốt...
Đặt lề:
Bước 1: Mở Word,vào File chọn Page Setup hộp thoại Page Setup xuất hiện
Bước 2: Chỉnh sửa
Bước 3: Nhấn ok để hoàn thành tác vụ.
Điều chỉnh ngắt trang:
Bước 1: Mở word , vào insert chon break hộp thoại break xuất hiện
Bước 2: Chọn page break
Bước 3: Nhấn ok để hoàn thành tác vụ
thay đổi hướng giấy:
Bước 1: Mở file > chọn Page Setup
Bước 2: Xuất hiện hộp thoại, chọn Tab Margin:
- Chọn Landscape: Để xoay khổ giấy dọc thành ngang.
- Chọn Portrait: Để xoay khổ giấy ngang thành dọc
Bước 3:nhấn ok để kết thúc tác vụ
Nhớ cho mình 1 lượt đúng nhé :))
Đặt lề:
Bước 1: Mở Word,vào File chọn Page Setup hộp thoại Page Setup xuất hiện
Bước 2: Chỉnh sửa
Bước 3: Nhấn ok để hoàn thành tác vụ.
Điều chỉnh ngắt trang:
Bước 1: Mở word , vào insert chon break hộp thoại break xuất hiện
Bước 2: Chọn page break
Bước 3: Nhấn ok để hoàn thành tác vụ
thay đổi hướng giấy:
Bước 1: Mở file > chọn Page Setup
Bước 2: Xuất hiện hộp thoại, chọn Tab Margin:
- Chọn Landscape: Để xoay khổ giấy dọc thành ngang.
- Chọn Portrait: Để xoay khổ giấy ngang thành dọc
Bước 3:nhấn ok để kết thúc tác vụ
Program Doi_Sang_Chu_Hoa;
Var S , SH: String; i : Byte;
Begin
Write('Nhap vao mot chuoi chu thuong : '); Readln(S);
SH := ''; {tạo xâu rỗng SH}
For i := 1 to Length(S) do SH[i] := UpCase(S[i];
Write('Chuoi da doi sang chu hoa: ',SH);
Readln;
End.
bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang chữ hoa
Program Chuoi_In_Hoa;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);
Readln;
End.