ROOM mới dành cho những người mới........

[bld]

thử cái xem

var sme,scon:string;i,a,b:integer;A:array[1..225];boo:boolean;
begin 
a:=1;
for a:=1 to 225 do A[a]:=0;
for i:=1 to length(sme) do
          if sme[i] = scon[1] then 
                    begin 
                              A[a]:=i
                              a:=a+1;
                    end;
a:=0;
repeat 
          a:=a+1;
          if A[a]=0 then begin
                              writeln('không có chuỗi con');
                              break;
                         end; 
          b:=2; 
          for i:= A[a] +1 to A[a]+length(scon)-1 do 
                    if S[i]=scon [b] then 
                              begin  
                                        boo:= true;
                                        b:=b+1;
                              end
                                      else 
                              begin
                                        boo:=false;
                                        break;
                              end;
          if boo=true then write('chuoi con bắt đầu từ kí tự thứ',A[a],'của chuỗi mẹ')
until boo:=true;
readln;
end.

đây là code của bài chuỗi con chuỗi mẹ , các member có gì cứ sửa thoải mái nha!

bld sắp thi tỉnh òi , ai có ý kiến đóng góp gì cho bld thì cứ post, cứ share vậy nha!


sao cái code không có tác dụng vậy?


bld thanks cô gái nha , hiểu òi

[Mr.Bo_Aloha]

bld không có trình bày ý tưởng hay thuyết trình thuật toàn mà đưa ra 1 cai code như thế thì quả thật khó sửa quá

[bld]

về phần ý tưởng
+ tạo 1 mảng chứa vị trí các kí tự trong chuỗi mẹ giống với kí tự đầu tiên trong chuỗi con
+đối với mỗi vị trí như vậy , ta lại tiếp tục so sánh các kí tự tiếp theo của vị trí đó trong chuỗi mẹ tương ứng với từng vị trí tiếp theo trên chuỗi con , nếu tất cả đều giống nhau , in ra vị trí bắt đầu chuỗi con

nếu có sự khác nhau , đến phần tử thứ hai của mảng rồi tiếp tục so sánh

ví dụ:
chuỗi mẹ abcblde
chuỗi con bld

nhận thấy rằng các vị trí của kí tự trong chuỗi mẹ giống với kí tự đầu tiên trong chuỗi con là 2 và 4 (chữ "b") lưu 2 vị trí này trong mảng A

với A[1] = 2 ta so sánh các kí tự tiếp theocụ thể là 2 kí tự tiếp theo)
dược tính theo cong thức từ vị trí A[a+1] cho đến A[a]+length(scon)-1 trong smẹ
2 kí tự này là
là cb , cb khác với ld(2 kí tự tương ứng tiếp theo trong chuỗi con)
nên chuyển sang A[2]

với A[2] = 4 và 2 kí tự tiếp theo trong chuỗi mẹ là ld , ld giống với 2 kí tự tiếp theo trong chuỗi con là ld nên in ra vị trí chuỗi con trong chuỗi mẹ là 4;

trường hợp không có chuỗi con trong chuỗi mẹ , tránh không kiểm soát được vòng lặp repeat , sẽ kiểm tra vị trí A[a] đang dược chuẩn bị so sánh

nếu A[a] = 0 thì break ;

còn phần thuyết trình đi học về bld sẽ post sau

[timberlake]

Bài Số nguyên tố tương đường
Thuật toán:
Tìm tất cả các ước nguyên tố của số lớn rồi kiểm tra xem có phải là ước của số bé không? Tìm cho đến khi số lớn div 2. Sau đó in ra kết quả. Mình lười post lên wa' nên chỉ post thuật toán thôi. Các bạn xem dùm mình có sai sót gì ko?

Vui lòng post lên giùm tôi
Tôi là super biginner đây
cảm ơn

[=========> Bổ sung bài viết <=========]

hahahaha bài của bld in hệt bài của BO hahahah!!! hehehehehe

[=========> Bổ sung bài viết <=========]

lâu lâu mới dc gặp bld trực tiếp như thế này!! cậu bạn lớp 7 à
ê tôi có 1 bài
nhập tên 1 người sau đó chỉnh sủa lại(~ la khoảng trắng)
vd:~~~~ngO~~~~mIHn~~~quaN~~~
thành :Ngo Minh Quan

Bo mở sgk 11 trang 105 sẻ có dáp án chính xát

[=========> Bổ sung bài viết <=========]

ừh! Biết rồi, cảm ơn Bo nhé. Dây là bài giải hai số nguyên tố tương đương của cogaihalan

uses crt;
label L1,L2;
var a,b,i,j:integer;
begin
clrscr;
L1:
write('nhap a=');readln(a);
write('nhap b=');readln(b);
for i:=1 to a do
begin
if a mod i=0 then
begin
for j:=2 to i-1 do
if i mod j=0 then goto L2;
L2:
end;
end;
if b mod i=0 then
write(a,' va ',b,' nguyen to tuong duong')
else write(a,' va ',b,' ko la nguyen to tuong duong');
readln
end.

coi dùm có sai ko nhé!

Mình Hiểu nhưng vì chương trinh gk11 k0 có đề cập đến câu lệnh goto() hay gotojump(), ko biết còn cách nào <> 0?????????? if có thì post up nha
Cảm ơn

[bld]

hello ,timberlake

for i:=2 to sốlớn do 
     begin 
          if solon mod i = 0 then u:=u+[i]{u:=[]};
          if i in u then 
                         begin 
                              while (a<= sqrt(i)) and (i mod a <>0) do
                                   a:=a +1 ; 
                              if a> sqrt(i) then uc:=uc+[i] ;
                         end;
     end;
for i:= 2 to sónhỏ div 2 do 
     if (i in uc) and (sonhỏ mod i =0)
                then  
                    begin
                         writeln(i){in ra các ước ngtố chung} 
                         m:=m+1;
                    end;
if m=0 then writeln('khong ngto tuong duong');

đây là code in ra các số ngtố tương đương ,cách này không dùng goto hay jump gì hết ,có gì thì góp ý ha!
còn có gì khó hiểu thì bld nói luôn thuật toán:
tìm các ước của số lớn ( u )
trong các ước đó kiểm tra và lọc ra các ước ngtố ( uc )
kiểm tra số nhỏ chia hết cho số nào trong uc thì in ra ,
nếu không thì viết ko ngtố tương đuơng

bài mới nè

viết ctrình in dãy fibonaci , tính lũy thừa x mũ y ,
(bạn nào biết CTC rồi thì đệ quy nha ),
các member không biết đệ quy thì giải bình thường càng hay !

[cogaihalan123]

Chào bạn timberlake.
Về cấu trúc lệnh goto, cogaihalan nói sơ qua như sau:
Cú pháp: GOTO Lab;
Trong đó Lab là một nhãn dc khai báo như sau:
Label Lab;(khai báo trước Var nha)
Nhãn là một tên như tên biến hoặc là một số nguyên từ 0 đến 9999. Khi gặp lệnh GOTO Lab, máy nhảy không điều kiện đến thực hiện câu lệnh sau nhãn Lab. Lệnh GOTO chỉ cho phép nhảy từ vị trí này sang vị trí khác trong cùng một thân hàm, thủ tục; cho phép nhảy từ trong một vòng lặp ra ngoài; không cho phép nhảy từ ngoài vào trong một vòng lặp, thủ tục, hàm, khối lệnh.
bld ơi, fibonaci là j`?
Còn đề nào nữa ko bld?

[thuyphong]

Tớ viết được rồi, nhưng cách viết đệ quy thì chưa biết. Có bạn nào dạy cho tớ nhé

[Trần Lê Minh]

Tui cũng gà lắm. Cho tui tham gia với

[dndung08vn]

Chào các bạn, mình tham gia với, đang học pascal nên thu thập tài liệu và bài tập của pascal và lập trình C dành cho người mới bắt đầu học lập trình đây.

Kho ebook rất nhiều tài liệu link đây

[cogaihalan123]

Chào thuyphong, Trần Lê Minh, dnung8vn
Cứ tham gia tự do, thoải mái, có bài nào hay cứ post, có j` ko hiểu cứ hỏi, cùng giúp nhau cùng tiến bộ. Trần Lê Minh và ndung08vn có thể lật mấy trang đầu, có mấy cái đề (giải rồi, siêng thì tự giải lại, ko siêng thì ngâm kíu mấy bài giải). Chờ chừng nữa Bo và bld post đề mới lên.