Xâu ký tự (String) trong Pascal
+7
ngocthu2005
AILINH
hnint
Cao Hải Dương
Nguyễn Văn Biên
huydang2003
Admin
11 posters
Trang 3 trong tổng số 4 trang
Trang 3 trong tổng số 4 trang • 1, 2, 3, 4
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
Re: Xâu ký tự (String) trong Pascal
- 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.
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
Re: Xâu ký tự (String) trong Pascal
- 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.
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
Phong- Năng động
- Posts : 75
Points : 85
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
Re: Xâu ký tự (String) trong Pascal
- 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.
ngocthu2005- Năng động
- Posts : 53
Points : 53
Reputation : 0
Join date : 17/06/2019
Age : 18
giaman- Nhiệt tình
- Posts : 25
Points : 25
Reputation : 0
Join date : 21/06/2019
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
OMG- Teen cá tính
- Posts : 80
Points : 88
Reputation : 0
Join date : 17/06/2019
Age : 18
Location : Bình Định Province
Trang 3 trong tổng số 4 trang • 1, 2, 3, 4
Trang 3 trong tổng số 4 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|