Kết quả tìm kiếm

Bài 2 thì nói thuật toán thui nhé vì tận 100 chữ số nên dùng luôn biến s (string) để lưu số Thuật toán: đầu tiên cho s = x Dần dần tăng s lên 1 đơn vị rồi làm 1 function kiểm tra xem nó có đối xứng ko Thuật toán đối xứng giả sử cho xâu là đối xứng. Sau đó: for i:= 0 to (length(s) div 2) do if...

Bài 1: uses crt; var n,i,j,try:integer; a:array[1..100,1..100] of integer; function kt:boolean; var m:integer; begin kt:=true; for m:= 1 to i-1 do if a[m,j] = a[i,j] then begin kt:=false; exit; end; for m:= 1...

Thế input của bạn là gì Phải tùy theo input mới có thể có thuật toán đc. chứ

Bác Korangar này suốt ngày quảng cáo Bài 1: uses crt; var n,j:integer; q:boolean; begin clrscr; write('Nhap N: '); readln(n); q:=true; for j:= 2 to sqrt(n) do if n mod j = 0 then begin q:=false; break; end; if q then write('So do la so nguyen to') else write('So do ko la so nguyen to')...

FixPascal Đây là đường link bạn down về thử xem

Gọi F[i,j] là số lãi nhiều nhất có thể lấy được bằng cách chọn trong số công việc từ 1 ---> i với số tiền phải đầu tư lớn nhất là j. lập mảng Lak là lợi nhuận của từng công việc A là mảng để đầu tư cho mỗi công việc For i:=1 to n do for j:=0 to M do begin...

Nếu ko dùng chuỗi Bây giờ nó cho nhập vào 1 số lớn thì biết làm thế nào Ví dụ nó nhập một số lớn hơn 10 chữ số thì nên dùng xâu hơn

Cái bài đối xứng chỉ cần dx:=true; for i:=0 to length(s) div 2 do if s[i+1] <> s[length(s)-i] then begin dx:=false; break; end; if dx = true then write('Đó là số đx'); Bài 3b: Số k nhập từ bàn phím F[1]:=1; F[2]:=1; n:=2; repeat F[n+1]:=F[n] +...

Oh sorry các bạn trong cái bài in tam giác cân đó thì thay i*i-1 = 2*i-1 nhé Sorry To hoabomby: Uhm về cơ bản thì như thế này thì đủ rồi đó Còn nếu các bạn học nâng cao thì nên học những thuật toán như tham lam, vét cạn, quy hoạch động v...v

Nếu hàng cuối cùng viết hết các kí tự sao thì bạn sửa lại 1 chút thôi Còn ko phải viết hết kí tự sao ở hàng cuối cùng thì trên kia hi vọng là đúng

:p Sorry quên quên Nếu tam giác rỗng là tam giác vuông thì dễ rồi Còn nếu viết dưới dạng tam giác cân thì sẽ như sau Đầu tin cho 1 vòng for viết khoảng trắng ở đầu Quy luật là hàng i sẽ viết ra n-i khoảng trắng Còn sau sẽ viết ra kí tự sao và khoảng trắng Thì quy luật là Sau khi viết những...

Đầu tin ta lập 1 mảng A có phần tử từ 0--->255 Sau đó nhập xâu S Bắt chước dùng C xem sao: :D for (i=1;i<=length(s);i++) a[ord(s[i])]:=a[ord(s[i])]+1; for (i=0;i<=255;i++) if a[i] > 0 then write(chr(i),': ',a[i],' kí tự '); Ý nghĩa của thuật toán này là: Cho i chạy từ...

Hix mình mới học cấp 3 thui Mà cấp 3 toàn dạy pascal thôi hà Có dạy cái gì nữa đâu Mình có mấy bài muốn đưa lên cho các bạn: Bài 1: Nhập 1 xâu kí tự đếm xem trong xâu đó có bao nhiêu kí tự lặp lại Ví dụ: abbccadd12112 a: 2 kí tự b:2 kí tự c: 2 kí tự d: 2 kí tự 1: 3 kí tự 2: 2 kí tự

3/Tìm USC lớn nhất và BSC nhỏ nhất của n Đã là USC và BSC thì phải có 2 số m,n chứ Đầu tin tìm USC xong rùi BSC=m*n / USC Thuật toán tìm USC của 2 số a và b repeat tg:=b; b:=b mod a; a:=tg; until b=0; Sau đó a sẽ là ước số chung nhỏ nhất Bài 5 bạn nói đầy đủ hộ mình, mình...

Bạn chỉ cần sắp xếp dãy A xong rùi đẩy từng phần tử chẵn sang mảng chẵn, phần tử lẻ sang mảng lẻ là xong thui Đây là chương trình uses crt; var a,chan,le:array[1..100] of integer; i,j,n,tg,k:integer; begin clrscr; write('N='); readln(n); for i:=1 to n do begin...

Bạn thử nhé uses crt; var a,c:array[1..100] of integer; b:array[1..100] of boolean; i,j,n:integer; procedure tapcon(k,st,step:integer); var i,j:integer; begin for i:=st+1 to n do if not b[i] then begin b[i]:=true...

Real: là kiểu số thực Longint: là số nguyên ( hình như từ -2 tỉ ---> 2 tỉ) Integer: số nguyên ( từ -32568 ----> 32567) String: là kiểu chuỗi kí tự (max là 255 kí tự) Byte: (0-->255) Để trở thành 1 lập trình viên bạn nên biết tiếng anh và biết 1 số ngôn ngữ cơ bản như C,Pascal,.... Trang web...

Quy tắc này có bài tôi đã nói rồi mà Bác chịu khó tìm lại xem

Tớ học tại gia Tớ thấy học tại gia mua sách tự đọc mình tìm tòi được nhiều hơn.

Dùng VB khó thể hiện thuật toán hơn so với pascal Bạn cứ so sánh cái bài sudoku trong pascal với VB sẽ thấy nó dài hơn thế nào