t28 kieu xau

Ngày tải lên: 24/10/2013, 02:11

... Write(‘nhap ho ten thu hai ’); Readln (Xau2 ); If length (Xau1 ) > length (Xau2 ) then write (Xau1 ) Else write (Xau2 ); readln End. Ví dụ ... User crt; Var Xau1 , Xau2 : string; Begin Clrscr; Write(‘nhap ho ten thu nhat ’); Readln (Xau1 ); Write(‘nhap ho ... Begin Write (‘nhap xau ’); readln (x); For i:=1 to length(x) do If x[i]= ‘ ’ then delete(x,i,1); Writeln(‘ xau khi d...

Ngày tải lên: 06/09/2012, 16:32

... st;string st;int l,i;int l,i;void main()void main(){{cout<<"cho mot xau : ";cout<<"cho mot xau : ";getline(cin,st);getline(cin,st);// đọc vào xâu st// đọc vào xâu ... }} 44Khai báo mảng xâu ký tự :Khai báo mảng xâu ký tự :string ten_mang _xau[ so_phan_tu];string ten_mang _xau[ so_phan_tu];Giả sử ta khai báo mảng xâu :Giả sử ta khai báo mảng xâu :stri...

Ngày tải lên: 05/11/2012, 11:46

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

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

... Var s1,s2:string[30]; Begin clrscr; s1:=‘ PC ‘; s2:=‘IBM486’; insert(s1,s2,4); writeln( xau s2 sau khi chen xau s1 vao la:’); writeln(s2); readln; End.

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

... tục nào? + Giới thiệu chương trình cho hs quan sát. Var i, k:byte A,b:string; Begin Write(‘nhap xau );readln(a); K:=length(a); B:=’ ‘; For i:=1 to k do If a[i]<>’’ then b:=b+a[i]; Write(‘ket

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

Ngày tải lên: 24/06/2013, 01:27

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