Hỏi & đáp lập trình

Không hiểu sao máy tính của tớ sau khi cài lại win thì tốc độ máy chạy rất chậm ( vào cái gì cũng chậm, kick phải chuột cũng chậm...) nhưng lúc trước thì lại chạy rất nhanh, set ầm ầm... cho dù đã tìm mọi cách : quét vi rút, chống phân mảnh ổ cứng, ram ảo...v.v.. nó vẫn chạy rất " ì ạch" lúc chậm lúc nhanh
Mặc dù cấu hình mình không tệ:
Ram: 1,49G Core 3,06Ghz
PEN: IV
ai biết chỉ giúp mình cái

 

Mình là một Newbie chưa biết gì về Visual Basic nhưng đang tập tành viết một đoạn phim bằng ảnh động trên ấy, và đương nhiên, gặp khó khăn.
Cho tớ hỏi là có cách nào để đưa một Powerpoint Slideshow vào VB không?

 

Cho tớ hỏi mấy bro chút
Tớ muốn vẽ đoạn thẳng kiểu vector khi chỉnh sửa hình thì phải làm thế nào, tớ đang vẽ cái bản đồ mà vẽ kiểu pen "u" khi in ra nó ko rõ gì hết ( tơ để 1pix), hồi đó nhớ bảo vẽ kiểu vector thì có phóng lớn cỡ nào cũng ko bị bể ảnh. Bây giờ nếu chỉnh sửa lại toàn bộ nét vẽ đã làm thì có cách nào nhanh chóng ko, khi in ra vẫn rõ ko bị nhòe!!??
Mong mọi người chỉ giáo :)

 

Có ai help giùm ko ?

 

Anh em giúp tớ 2 chương trình Pascal này :

1. Tính tổng tất cả các chữ số của 1 số n nguyên dương được nhập từ bàn phím.
2. Tìm tất cả các bộ Py-ta-go từ 1 đến n (n là số nguyên dương).

 

Cho mình hỏi thuật toán nhận dạng chữ số 0-9 vẽ bằng tay với (đã chuyển thành mảng 2 chiều các phần tử 0, 1)

 

Lấy số N chia cho 10 lấy phần dư, rồi dùng biến S để cộng dồn nó vào,sau đó cập nhật lại N

Vd 4321 chia 10 lấy dư đc 1,cộng nó vào S (S lúc đầu gán S=0) , làm sao đó...để có đc số 432 rồi chia 10 lấy dư típ để đc số 2 ,cộng típ vào S....

Còn câu 2 bộ py-ta-go là gì thế, lâu quá quên mất

 

bộ các cạnh tạo thành tam giác vuông đó, vd 3,4,5 . tính kiểu a*a + b*b = c*c .

 

Cậu viết cả chương trình giúp được không ?

 

1.
var n,tong,i,j:integer;
begin
write('nhap n:');readln(n);
repeat
tong:=tong+n mod 10;
n:=n div 10;
until n=0;
writeln('tong cac chu so la:',tong);
readln;
end.

2.var n,i,j,k:integer;
begin
write('nhap n:');readln(n);
for i:=1 to n do
for j:=i+1 to n do
for k:=1 to n do if i*i+j*j=k*k then
writeln(i,' ',j,' ',k);
readln;
end.

 

Bài 1 tớ chưa học lệnh repeat...until, chỉ mới array[x..y], while, for to do với cả if thôi .

 

Thì thay = while n <> 0 do ....

 

Hỏi bên phần mềm lúc nào cũng ko có ai trả lời đành đem qua đây nhờ vậy :(

 

vào option....để tất cả các block xuống cấp thấp nhất....cài đặt thêm các plug-in xem có đc ko

 

khó lắm đấy, cái này là đề luận văn của thằng bạn mình (chỉ khác là nhận dạng tất cả các ký tự, kể cả các dấu . , : ...)
có mún liên hệ với thằng bạn mình ko, mình cho địa chỉ mail cho

 

Công việc nhận dạng rất đơn giản
1. Quy các ảnh, chữ cái, hay gì đó thành 1 vector trong 1 không gian vector.
2. Tìm vector đại diện cho các số 0->9.
3. Tìm khoảng cách giữ vector đại diện và vector so sánh...

Just J/K , thực ra phần tìm ra không gian vector là phần rất khó

 

mới search được tài liệu này, ko bít có giúp ích gì được cho bạn ko, thấy trong mục lục nó có thuật toán nhận dạng chữ viết bằng tay
link:
http://www.megaupload.com/?d=XOQA5ILE
http://www.megaupload.com/?d=GFZEWVMQ
or
http://hstpna.net/music/upmusic/Tailieu/XuLyAnhSo.rar
or
http://rapidshare.com/files/2896559/Xu_ly_anh.rar

good luck:)

 

Thanks các bạn đã giúp, bài của mình thì chỉ yêu cầu nhận các chữ số 0-9 thôi, ko đến mức tất cả các ký tự Mới năm đầu đã dính bài khoai thế này rồi

 

Có phải ĐH công nghệ K53 ko vậy :o

Mấy thuật tóan dạng này sẻach trên mạng là tốt nhất

 

sr ko có ý bắt lỗi, chỉ vì yêu thuật toán, và thích lập trình

câu 1 thiếu khởi gán tong : = 0;
câu 2 : bộ số pitago thì a, b, c ko bao giờ trùng (dễ dàng cm)
vì thế nếu cho j = i + 1 thì i đến n - 2 và j đến n - 1 là đủ , k = j + 1 -> n