Re: Xâu ký tự (String) trong Pascal

by ngocthu2005 Fri Jul 19, 2019 7:39 am

Code:: uses crt; var n,i,j,value,code:longint; s:string; kt:boolean; //''''''''''''''''''''''''''// begin clrscr; writeln('nhap xau'); readln(s); for i:=length(s) downto 1 do begin if s[i]=#32 then delete(s,i,1) else if s[i] in['A'..'Z','a'..'z'] then delete(s,i,1); end; if (n<=2) then kt:=false else begin kt:=true; for i:=2 to trunc(sqrt(length(s))) do if n mod i=0 then begin kt:=false; exit; end;end; writeln(s); if kt = true then writeln('la so nt') else writeln('ko la so nt'); readln; end.

by Phong Fri Jul 19, 2019 7:39 am

Code:: program bt; uses crt; var st:string;i,value,code:integer;kt:boolean; begin clrscr; write('Nhap xau: ');readln(st); for i:=length(st) downto 1 do begin if st[i]=#32 then delete(st,i,1); if st[i] in (['A'..'Z','a'..'z']) then delete(st,i,1); end; for i:=1 to length(st) do write(St[i]); val(st,value,code); if code=0 then if value<2 then kt:=false else begin KT:=TRUE; for i:=2 to TRUNC(SQRT(VALUE)) do if value mod i=0 then begin kt:=false;break;end; end; if kt=true then write(' la so nguyen to') else write(' khong la so nguyen to'); readln; end.

by OMG Fri Jul 19, 2019 7:40 am

Code:: uses crt; var x:string; i,n,k:longint; begin clrscr; write('nhap xau:');readln(x); for i:=length(x) downto 1 do if x[i] in['a'..'z','A'..'Z',#32] then delete(x,i,1); writeln(x); val(x,n,k); if (n<>1) and (n<>0) then write(x,' khong la so nguyen to') else begin if k=0 then for i:=2 to n div 2 do if n mod i=0 then begin write(x,' khong phai so nguyen to');k:=1;break end; if k<>1 then write(x,' la so nguyen to') end; readln end.

by ngocthu2005 Fri Jul 19, 2019 9:19 am

Code:: program kiem_tra_xau_doi_xung; uses crt; var s, s1: string; i:integer; begin clrscr; writeln('Nhap vao xau s: '); readln(s); for i:=length(s) downto 1 do s1:=s1+s[i]; if (s1=s) then writeln('Xau doi xung') else writeln('Xau khong doi xung'); readln; end.

by Phong Fri Jul 19, 2019 9:19 am

Code:: program bt; uses crt; var st,s1:string;i:integer;kt:boolean; begin clrscr; write('nhap xau: ');readln(st); for i:=length(st) downto 1 do s1:=s1+st[i]; if s1=st then write('xau doi xung') else begin write('Xau khong doi xung, dao nguoc'); for i:=length(st) downto 1 do write(st[i]);end; readln; end.

by ngocthu2005 Fri Jul 19, 2019 9:20 am

Code:: uses crt; var s:string;i,k,j:integer; begin clrscr; writeln('nhap xau ky tu'); readln(s); for i:=1 to length(s) do if s[i]=s[i+1] then inc(k); if k=0 then writeln('ko co ki tu nao trung ke nhau') else writeln('co',k,' ki tu bang nhau'); for j:=1 to length(s) do if s[j]=s[j+1] then delete(s,j,1); writeln('xoa cac ky tu trung nhau'); writeln(s); readln; end.

by Phong Fri Jul 19, 2019 9:21 am

Code:: program bt; uses crt; var i,k:integer;st:string; begin clrscr; write('Nhap xau: ');readln(st); k:=0; for i:=1 to length(st)-1 do if st[i]=st[i+1] then k:=k+2; if k=0 then write('Khong co ki tu ke nhau ma nhu nhau') else write('Co ',k,' ki tu ke nhau ma nhu nhau');writeln; for i:=length(st) downto 1 do if st[i]=st[i-1] then delete(st,i,1); write('Ket qua sau khi xoa cac ki tu ke nhau: ',st); readln end.

by Phong Fri Jul 19, 2019 9:32 am

Code:: program bt; uses crt; var i,n,j:integer; a:array[1..100] of string;tg:string; begin clrscr; write('Nhap so HS: ');readln(n); for i:=1 to n do begin write('Nhap ten HS thu ',i,': ');readln(a[i]);end; for i:=1 to n-1 do for j:=i+1 to n do if length(a[i])>length(a[j]) then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; write('Ket qua: '); for i:=1 to n do writeln(a[i]); readln; end.

by ngocthu2005 Fri Jul 19, 2019 9:33 am

Code:: program bt; uses crt; var i,n,j:integer; a:array[1..100] of string;tg:string; begin clrscr; write('Nhap so HS: ');readln(n); for i:=1 to n do begin write('Nhap ten HS thu ',i,': ');readln(a[i]);end; for i:=1 to n-1 do for j:=i+1 to n do if length(a[i])>length(a[j]) then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; write('Ket qua: '); for i:=1 to n do writeln(a[i]); readln; end.

by OMG Fri Jul 19, 2019 9:47 am

Code:: uses crt; var s:string; i,k,kt:longint; begin clrscr; write('nhap xau:');readln(s); write('nhap k:');readln(k); kt:=1; for i:=1 to length(s) do if s[i]=s[i+1] then begin kt:=kt+1; if kt=k then begin writeln('co ',k,' ki tu ke nhau');break end end; if kt<>k then writeln('khong co ',k,' ki tu ke nhau'); for i:=length(s) downto 1 do if s[i]=s[i-1] then delete(s,i,1); write(s); readln end.

by OMG Fri Jul 19, 2019 9:47 am

Code:: uses crt; var i,k,j,kt:longint; x:string; begin clrscr; write('nhap xau:');readln(x); if length(x) mod 2=0 then begin write('xau tren khong doi xung');kt:=0 end else begin for i:=1 to length(x) do begin if x[i]=x[length(x)-i+1] then kt:=kt+1 end; if kt=length(x) then write('xau doi xung') else begin writeln('xau khong doi xung'); for i:=length(x) downto 1 do write(x[i]) end; end; readln end.

by OMG Fri Jul 19, 2019 9:48 am

Code:: uses crt; var x:array[1..100] of string; i,j,n:longint;tg:string; begin clrscr; write('nhap so ten:');readln(n); for i:=1 to n do begin write('ten ',i,':');readln(x[i]) end; for i:=1 to n do for j:=1 to i do if length(x[i])<length(x[j]) then begin tg:=x[i];x[i]:=x[j];x[j]:=tg end; for i:=1 to n do writeln(x[i]); readln end.

by ngocthu2005 Wed Jul 24, 2019 9:47 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by Phong Wed Jul 24, 2019 9:47 am

Code:: uses crt; var x:array[1..100] of string; i,j,n:longint;tg:string; begin clrscr; write('nhap so ten:');readln(n); for i:=1 to n do begin write('ten ',i,':');readln(x[i]) end; for i:=1 to n do for j:=1 to i do if length(x[i])<length(x[j]) then begin tg:=x[i];x[i]:=x[j];x[j]:=tg end; for i:=1 to n do writeln(x[i]); readln end.

by ngocthu2005 Wed Jul 24, 2019 9:47 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by ngocthu2005 Wed Jul 24, 2019 9:47 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by Phong Wed Jul 24, 2019 9:47 am

Code:: uses crt; var x:array[1..100] of string; i,j,n:longint;tg:string; begin clrscr; write('nhap so ten:');readln(n); for i:=1 to n do begin write('ten ',i,':');readln(x[i]) end; for i:=1 to n do for j:=1 to i do if length(x[i])<length(x[j]) then begin tg:=x[i];x[i]:=x[j];x[j]:=tg end; for i:=1 to n do writeln(x[i]); readln end.

by ngocthu2005 Wed Jul 24, 2019 9:47 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by Phong Wed Jul 24, 2019 9:48 am

Code:: uses crt; var x:array[1..100] of string; i,j,n:longint;tg:string; begin clrscr; write('nhap so ten:');readln(n); for i:=1 to n do begin write('ten ',i,':');readln(x[i]) end; for i:=1 to n do for j:=1 to i do if length(x[i])<length(x[j]) then begin tg:=x[i];x[i]:=x[j];x[j]:=tg end; for i:=1 to n do writeln(x[i]); readln end.

by ngocthu2005 Wed Jul 24, 2019 9:48 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by ngocthu2005 Wed Jul 24, 2019 9:48 am

Code:: uses crt; var n:longint; //'''''''''''''''''''''''''''''''''''''''''// function f(x:longint):longint; var a,b,c:longint; begin a:=1;b:=1;c:=0; while c<=x do begin c:=a+b; a:=b; b:=c; end; f:=a; end; //'''''''''''''''''''''''''''''// begin clrscr; writeln('n'); readln(n); write(f(n),' '); n:=n-f(n); while n>0 do begin write(f(n),' '); n:=n-f(n); end; readln; end.

by giaman Wed Aug 07, 2019 8:45 am

by OMG Wed Aug 07, 2019 8:49 am

by OMG Wed Aug 07, 2019 8:49 am

by OMG Wed Aug 07, 2019 8:49 am

by Sponsored content