Mình thì làm trâu bò kiểu này ra cơ mà tốc độ với n lớn chắc ko cao
Uses crt;
Const MAX=100;
Type
mang=array[1..MAX] of integer;
Var
a: array[1..MAX,1..MAX] of integer;
temp,last :...
Type: Posts; User: auauau97; Keyword(s):
Mình thì làm trâu bò kiểu này ra cơ mà tốc độ với n lớn chắc ko cao
Uses crt;
Const MAX=100;
Type
mang=array[1..MAX] of integer;
Var
a: array[1..MAX,1..MAX] of integer;
temp,last :...
Thi năm nay cho dùng free pascal không nhỉ :D, năm mình thi được chọn free pascal với turbo pascal :), nhanh thật cũng 3 năm rồi
Lâu lắm rồi mới cm lại ở ddth :D, bài này trước mình làm trâu bò như cách ở page 1, giờ khôn hơn rồi, post lại bài mới, cách này nhanh hơn dùng đệ quy :), thời gian khoảng 1s thôi
Uses crt;
Var
...
Bác không đọc kĩ #1 à, bác chủ thớt bảo là
Tiếp theo mới là điều đáng nói đó là trong chương trình của bạn chẳng có tí tẹo nào về chia cho 0 cả mà vẫn lỗi như bình thường hoặc cùng lắm là chỉ có...
bạn thử dùng dosbox kết hợp với turbo pascal này xem, chạy được đồ họa đó:
http://www.mediafire.com/?3b16qij9m5w2llk
mình nghĩ là thế này, đây là code tìm số âm lớn và số dương nhỏ nhất
Uses crt;
Var
a:array[1..100] of longint;
n,i,max,min:longint;
BEGIN
Clrscr;
Write('Nhap so phan tu cua...
các bạn lần sau cho code vào thẻ code cho dễ nhìn nhé, cứ cho đại lên thì trong khó hiểu lắm
hoặc là bạn ấy cũng có thể dùng sinh cũng được, nhưng theo mình biết thì sinh không phổ biến = quay lui nhỉ ?
câu 1 hình như là dùng hàm copy hay sao nhỉ ?
copy(st,vị trí,số kí tự)
for duyệt thì chắc không tới 1s đâu, mất thời gian in ra là chủ yếu thôi :D
lớn nhất là 100000 thôi mà