Viết chương trình đổi chữ thường thành chữ hoa trong pascal

Tất cảToánVật lýHóa họcSinc họcNgữ vănTiếng anhLịch sửĐịa lýTin họcCông nghệGiáo dục công dânTiếng anh thí điểmĐạo đứcTự nhiên với xã hộiKhoa họcLịch sử và Địa lýTiếng việtKhoa học trường đoản cú nhiênÂm nhạcMỹ thuật

Bạn đang xem: Viết chương trình đổi chữ thường thành chữ hoa trong pascal

*

Viết công tác bé đưa các từ viết thường thanh lịch viết hoa. (trong pascal)

Vd: pascal quý phái PASCAL



Program Doi_Sang_Chu_Hoa; Var S , SH: String; i : Byte; Begin Write("Nhap vao mot chuoi chu thuong : "); Readln(S); SH := ""; chế tác xâu trống rỗng SH For i := 1 to lớn Length(S) vày SH := UpCase(S; Write("Chuoi da doi sang chu hoa: ",SH); Readln; End.

các bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang trọng chữ hoa


Xem thêm: Người Tuổi Kỷ Mùi Hợp Xe Màu Gì, Tuổi Kỷ Mùi 1979 Mua Xe Màu Gì Hợp Phong Thủy


Program Chuoi_In_Hoa;Uses Crt;Var i:integer;st:string;

BeginClrscr;Writeln(‘DOI CHUOI SANG CHUOI HOA’);Write(‘Nhap ho ten:’);readln(st); st<1>:=upcase(st<1>);For i:=1 to lớn length(St) doIf st=’ ‘ then st:=upcase(st); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);For i:=1 to length(St) vì chưng st:=upcase(st);Writeln(‘Ho ten sau khoản thời gian doi lan 2 la: ‘,st);

Readln;

End.


*

Lập trình pascal "Viết công tác tra cứu học sinh co điểm vừa phải cao nhất lớp"ai góp hộ em với cảm ơn những !


1. viết công tác con tính diện tích hình vuông vắn tất cả cạnh a là số ngulặng ? ( sử dụng hàm hoặc thủ tục)

2. viết chương trình nhỏ tính diện tích S tam giác , lúc biết độ lâu năm 3 cạnh a,b,c là số nguyên ? s=sqrt (p(p-a)(p-b)(p-c)) p=(a+b+c)/2

3.Viết công tác bé hân oán đổi quý hiếm của 2 đổi mới số ngulặng a ,b?

4.Viết chương trình nhỏ tính chu vi hình trụ nội tiếp tam giác mọi , biết cạnh của tam giác là a ( số ngulặng ) ? r= asqrt(3)/6.

giúp em với ạ