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...
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;...
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...
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...
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;...
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 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...
Đầ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++)...
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í...
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...
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;...
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...
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ự...
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
Dãn cách tên bằng dấu phẩy(,).
