TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

[newdiamond]

cho mình hỏi cái, mấy cái xâu này khó quá
1/ viết công thức tách 1 chuỗi con từ chuỗi bất kì được nhập từ bàn phím với yêu cầu nhập số chỉ vị trí bắt đầu tách và số kí tự cần tách.
2/Viết công thức tìm vị trí chuỗi con trong chuỗi mẹ với yêu cầu chuỗi con và chuỗi mẹ được nhập từ bàn phím
3/ Viết chương trình nhập 1 chuỗi bất kì. Đếm xem chuỗi có ban nhiêu kí tự 'n', in kết quả đếm ra màn hình.
4/ /Viết chương trình nhập 1 chuỗi bất kì. Tìm xem chuỗi có kí tự 'n' hay không, nếu có in vị trí tìm thấy ra màn hình

[auauau97]

cho mình hỏi cái, mấy cái xâu này khó quá
1/ viết công thức tách 1 chuỗi con từ chuỗi bất kì được nhập từ bàn phím với yêu cầu nhập số chỉ vị trí bắt đầu tách và số kí tự cần tách.
2/Viết công thức tìm vị trí chuỗi con trong chuỗi mẹ với yêu cầu chuỗi con và chuỗi mẹ được nhập từ bàn phím
3/ Viết chương trình nhập 1 chuỗi bất kì. Đếm xem chuỗi có ban nhiêu kí tự 'n', in kết quả đếm ra màn hình.
4/ /Viết chương trình nhập 1 chuỗi bất kì. Tìm xem chuỗi có kí tự 'n' hay không, nếu có in vị trí tìm thấy ra màn hình

câu 1 hình như là dùng hàm copy hay sao nhỉ ?
copy(st,vị trí,số kí tự)

[JeremyBelpois]

cho mọi người có bài làm : cho dãy số 1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,....
nhập vào số m,n(m<=n<=100000);
in ra tổng a[m]+...+a[n]

Thời gian chạy chương trình không lâu lắm.
For i:=1 to R do < một vài cái gì đó>(R<=447) là tồi tệ lắm rồi.
Ta có thể áp dụng các công thức dãy số lớp 11 vào tính là OK.
__________________________________________________ ___________
Bài này mình chỉ cần dùng công thức để tính ra:

program code;
var k,h:real;
    t,p,l,r:word;
    m,n,res:longint;

begin
   writeln('Nhap M: '); readln(m);
   writeln('Nhap N: '); readln(n);

   k:=(sqrt(1+8*m)-1)/2;
   t:=trunc(k);

   if k>t then t:=t+1;
   h:=(sqrt(1+8*n)-1)/2;

   p:=trunc(h);
   if h>p then p:=p+1;

   l:= t*(t+1) div 2 -m+1;

   r:=n-(p-1)*p div 2;

   res:=t*l+r*p;
   p:=p-1;

   if t<p then
   res:=res+p*(p+1)*(2*p+1) div 6-t*(t+1)*(2*t+1) div 6;
   writeln('Ket qua: ',res);
   readln;
end.

Còn với cách này thì dễ hiểu hơn, tốc độ cũng nhanh:

program code;
var di:word;
    m,n,i,res:longint;

begin
   writeln('Nhap M: '); readln(m);
   writeln('Nhap N: '); readln(n);

   di:=0;
   i:=0;
   res:=0;
   while i<m do
    begin
      di:=di+1;
      i:=i+di;
    end;
    res:=(i-m+1)*di;
    while i<=n do
     begin
        di:=di+1;
        i:=i+di;
        res:=res+di*di;
     end;
    res:=res-di*(i-n);

   writeln('Ket qua: ',res);
   readln;
end.

Theo mình thấy thì bài này còn có thể tăng giới hạn lên n<=1 tỉ chạy vẫn tốt, khai báo kiểu dữ liệu lớn hơn, nhưng đối với trình Boland Pascal hay Turbo Pascal thì thế này là đạt giới hạn rồi.

[ngoc th]

định bới thêm bài nữa nhưng thôi, cứ từ từ

[congminhlc]

cho mình xin hướng dẫn chi tiết các câu lệnh trong bài nổi bọt

[ngoc th]

for i:= 1 to n-1 do
for j := n downto i+1 do
if a[i]>a[j] then
begin trunggian := a[i]; a[i] := a[j]; a[j] := trunggian; end;
cứ cái nhẹ thì nổi lên trên, cái nặng thì chìm xuống dưới
tại mỗi vị trí i, ra duyệt tất cả các vị trí sau i để tìm ra cái nhỏ nhất trong đó rùi đổi vị trí =))

[rose in desert]

du nó ko khó nhung mình thật sự ko biết giải nó, mong các bạn giúp mình với

1/ nhập 1 sâu từ bàn phím xuất ra màn hình xâu vừa nhập
2/nhập 1 xâu từ bàn phím, xuất ra màn hình vị trí những kí tự a
3/nhập một xâu từ bàn phím, xuất ra màn hình xâu p gồm các kí tự a
4/nhập 1 xâu từ bàn phím, sau đó cho biết vị trí xuất hiên nội dung cần tìm và xuất ra xâu vừa nhập với kí tự in hoa
5/nhập xâu s , xuất ra màn hình có bao nhiêu kí tự là chữ số
6/ nhập xâu s :a/ xuất ra 5 kí tự đầu tiên
b/xuất ra 5 kí tự cuối cùng ,c xuất ra 5 kí tự cuối cùng cho biết vị trí xuất hiên trên xâu
7/nhập xâu s, xuất ra màn hình vị trí xuất hiện là kí tự chử số
8/nhập 2 xâu khác nhau xuất ra màn hình sâu p chứa cả 2 xâu đó.

[rose in desert]

dù bài tập này ko khó nhưng nó ko dể đối với mình, làm ơn giúp mình giải bài tập này với

1/ nhập 1 sâu từ bàn phím xuất ra màn hình xâu vừa nhập
2/nhập 1 xâu từ bàn phím, xuất ra màn hình vị trí những kí tự a
3/nhập một xâu từ bàn phím, xuất ra màn hình xâu p gồm các kí tự a
4/nhập 1 xâu từ bàn phím, sau đó cho biết vị trí xuất hiên nội dung cần tìm và xuất ra xâu vừa nhập với kí tự in hoa
5/nhập xâu s , xuất ra màn hình có bao nhiêu kí tự là chữ số
6/ nhập xâu s :a/ xuất ra 5 kí tự đầu tiên
b/xuất ra 5 kí tự cuối cùng ,c xuất ra 5 kí tự cuối cùng cho biết vị trí xuất hiên trên xâu
7/nhập xâu s, xuất ra màn hình vị trí xuất hiện là kí tự chử số
8/nhập 2 xâu khác nhau xuất ra màn hình sâu p chứa cả 2 xâu đó.

[ngoc th]

cái kiểu đầu bài này là kiểu hỏi - trả lời chứ gõ code làm sao?! đọc cái đầu bài chuối quá =))

[ngoc th]

QHĐ
ở toạ độ n+1 chả có đống lá nào ^^
Duyệt từ n về 1
tại vị trí i và đã tồn tại 1 đống lá ở vị trí j
xét tổng tất cả các số từ i tới j-1 : nếu lớn hơn khối lượng lá tại i-1 thì ta có thêm 1 đống lá mới tại i, ko thì xét tiếp (tất nhiên là chỉ xét trong trường hợp k>1, =1 thì xét làm gì cho khổ)
--------------------------------------------------------------------------
cái trang này chỉ giải đáp tin học 11 thôi, vác cẳ bài tập chuyên lên hỏi là làm sao!!!