Kieu xau (tiet 1)

Ngày tải lên: 01/07/2014, 13:00

... hi9j %<=8>-?>-?,>)> 5678.!9 156:$; CE\N  Kiu xâu (tit 1) Trang 4   begin if ... =D%!]'*n%+#%l&  :@  h  %a %$%*  +i%  ? (%(h4&   4  0  7...

Ngày tải lên: 02/07/2014, 06:00

Ngày tải lên: 03/06/2013, 01:26

... vao xau S: ’); readln(S); Write(‘Nhap vao xau S: ’); readln(S); For For i:= 1 i:= 1 To To length(S) length(S) Do Do upcase(S[i]); upcase(S[i]); Write( Xau da chuyen:’,S); Write( Xau ... ’abc’ Insert(St1,St2,5) Insert(St1,St2,5) St2 = ’ef’ abc ef St2 =‘ ’ St1:= ’abc’ Insert(St1,St2 ,1) Insert(St1,St2 ,1) St2 = ’ef’ St2 =‘ ’ abc ef KIỂM TRA BÀI CŨ ĐẶT VẤN ĐỀ NỘI DUNG BÀI MỚ...

Ngày tải lên: 28/05/2014, 17:53

... s1, xuất kết quả ra màn hình. - Đoạn chương trình Program Xulixau ; Var s1,s2 : String ; i : Byte ; Begin Write('Nhap xau s1 : ') ; - Gọi học sinh đọc đề bài và phân tích nội dung ... định số trong xâu s1. - Chú ý lắng nghe và ghi chép lại. 4 Readln(s1) ; s2 := '' ; For i := 1 to length(s1) do If ('0'<=s1[i]) and (s1[i]<='9') then ....

Ngày tải lên: 01/07/2014, 01:00

... – Đại học Sư phạm Huế Giáo án thực tập số 3 write(‘Nhap vao xau s1: ‘); readln(s1); s2:=’’; for i:=1 to length(s1) do if (‘0’<s1[i]) and (s1[i]<’9’) then s2:=s2+s1[i]; write ... write('Nhap xau: '); readln(a); i:=1; { repeat if a[i]=' ' then delete(a,i ,1) else i:=i+1; until i>length(a); } while i<=length(a) do if a[i]=' ' then d...

Ngày tải lên: 02/07/2014, 06:00

Ngày tải lên: 04/06/2013, 01:26

Ngày tải lên: 02/07/2013, 01:26

Ngày tải lên: 07/07/2013, 01:25

Ngày tải lên: 27/09/2013, 07:10