giúp mình với hứa vote 5 sao và hay nhất
cho vd về khai báo xâu và cho biết các thao tác xử lý xâu
0 bình luận về “giúp mình với hứa vote 5 sao và hay nhất cho vd về khai báo xâu và cho biết các thao tác xử lý xâu”
uses crt; var m: array[1..100] of integer; n,i,max,j,t,scp: integer; begin clrscr; write (‘nhap n: ‘); readln (n); for i:=1 to n do begin write (‘nhap m[‘,i,’]: ‘); readln (m[i]); if max<=abs(m[i]) then max:=abs(m[i]); end; for i:=1 to n-1 do for j:=i+1 to n do if m[i]<m[j] then begin t:=m[i]; m[i]:=m[j]; m[j]:=t; end; write (‘day sau khi sap xep giam dan: ‘); for i:=1 to n do write (m[i],’ ‘); writeln; writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max); write (‘cac so chinh phuong trong day: ‘); for i:=1 to n do begin scp:=trunc(sqrt(m[i])); if sqr(scp)=m[i] then write (m[i],’ ‘); end; readlnend.
uses crt;
var m: array[1..100] of integer;
n,i,max,j,t,scp: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if max<=abs(m[i]) then max:=abs(m[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i]<m[j] then
begin
t:=m[i];
m[i]:=m[j];
m[j]:=t;
end;
write (‘day sau khi sap xep giam dan: ‘);
for i:=1 to n do write (m[i],’ ‘);
writeln;
writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
write (‘cac so chinh phuong trong day: ‘);
for i:=1 to n do
begin
scp:=trunc(sqrt(m[i]));
if sqr(scp)=m[i] then
write (m[i],’ ‘);
end;
readlnend.
vd:
var st:string;
nếu bình thường thì độ dài lớn nhất của xâu là 255 kí tự. Ta cũng có thể thay đổi độ dài của xâu. Vd:
var st:string[5];
đó là khai báo xâu có độ dài lớn nhất là 5 kí tự
Các thao tác xử lí xâu:
+gán: vd: st:=’Viet nam’;
+phép so sánh: vd:
s1:=’Ba’;
s2:=’Con’;
xâu nào có kí tự đầu tiên trong mã ASCII lớn hơn thì lớn hơn
=>s1<s2;
+hàm length
vd: st:=’Viet Nam’;
=>length(st)=8(vì có 8 kí tự);
và có rất nhiều hàm, thủ tục xử lí khác, khi nào bạn học tới thì thầy cô sẽ giảng cho bạn chi tiết hơn.
Chúc bạn học tốt!