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
K
Khách
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.
29 tháng 4 2018
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
30 tháng 4 2018
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
6 tháng 5 2018
là nút lệnh có hình cái xô đổ màu xuống đó bn!!!
chuc bn học tốt...
NN
2
22 tháng 4 2018
Đặ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é :))
23 tháng 4 2018
Đặ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.