thuat toan va so nguyen

... '0123456789ABCDEFGHIKLMNOPQRSTUVXYZ'; Var c1,c2 ,so : Longint; n : String; Function Cosomin(S:String):Byte; Var i : Byte; ch : Char; Begin ch := '0'; For i:=1 to length(s) do If s[i]>ch then ch := s[i]; Cosomin:= ... Type A = Array[1..10000] of Byte; Var S,KQ : A; i,n,tro : Integer; Procedure Nhap; Var i : Integer; Begin Randomize; Write(&apos ;So S co bao nhieu chu...

Ngày tải lên: 29/09/2013, 12:10

... Cấu trúc dữ liệu (T.p HCM. 1997) [Thư viện] • [3] Lê Minh Trung - Bài tập cấu trúc dữ liệu va thuật toán [Thư viện] • [4] Niclaus Wirth - Algorithms + Data Structure = Programs (Prentice

Ngày tải lên: 13/04/2013, 10:08

Ngày tải lên: 17/04/2013, 15:18

... CHUYÊN Đề CáC Kỹ THUậT HIệN ĐạI TRONG CNTT TNH TON SONG SONG Ni dung: Tỡm hiu cỏc chin lc song song húa thut toỏn v ng dng song song bi toỏn tớnh tng dóy s.

Ngày tải lên: 25/04/2013, 19:04

... trình (To solve equation on set of integers). Để tìm nghiệm nguyên của phơng trình ta dùng lệnh isolve với cú pháp nh sau: [>isolve (eqns, vars); Trong đó: eqns - tập các phơng trình, vars - ... không trả lời. Xem ví dụ sau: [> isolve(x+y+z=0,{a,b,c,d}); { }, , = y a = z b = x a b [> isolve(3*x-4*y=7); { }, = x + 5 4 _Z1 = y + 2 3 _Z1 [> isolve(x+2*y+3*z=4,{a}); { }, ,...

Ngày tải lên: 23/12/2013, 19:12

... khi x −→ ∞ Vì vậy hàm e x tiến ra ∞ nhanh hơn so với hàm luỹ thừa của x. Ta đã biết hàm lnx là hàm ngược của hàm e x . Nên hàm lnx tiến ra ∞ chậm hơn so với hàm luỹ thừa dương của x. Nghĩa là ta ... số nguyên tố là vô hạn, tức p có thể rất lớn, nhưng tất cả các số nguyên tố ấy chỉ là một vài điểm so với tập các hợp số. Khi nói đến sự phân bố các số nguyên tố có một vài câu hỏi được đặt...

Ngày tải lên: 08/03/2014, 09:20

... hiểu cảm biến ở mỗi giai đoạn xử lí được thể hiện ở một màu khác nhau. Mục đích là dễ dàng kiểm so t cũng như qua sát giá trị cảm biến ở mỗi giai đoạn. Chƣơng III: ỨNG DỤNG NGUYÊN TẮC SÁNG ... các thời kì, từ việc sử dụng lửa, đến những chiếc bánh xe hính tròn. Ngày nay, sáng tạo đóng vai trò qua trọng trong nguyên cứu khoa học, cụ thể là trong tin học. Và tư duy sáng tạo trở thành

Ngày tải lên: 05/04/2014, 10:52

... dau tien vao s } assign(f,fn); reset(f); readln(f,s); i := 1; { Duyet s tim chu so dau tien } while Not LaChuSo(s[i]) do inc(i); n := 0; { Doc so trong s ghi vao n } while LaChuSo(s[i]) ... // doc toan bo dong thu nhat for (i = 0; i < strlen(s); ++i) // duyet xau s tim chu so if (LaChuSo(s[i])) break; n = 0; // khoi tri so n while (LaChuSo(s[i])) { // doc so n ... writeln(g,&...

Ngày tải lên: 17/08/2012, 08:53

... SoDao(x: integer): integer; var y: integer; begin y := 0; repeat { ghep chu so hang don cua x vao ben phai y } y := 10*y + (x mod 10); x := x div 10; { loai chu so hang don } until (x = 0); SoDao ... cac so thoa dieu kien dau bai ghi vao mang s. Output: so luong cac so tim duoc ----------------------------------------*) function Tim: integer; var x,d: integer; begin d := 0; {So luo...

Ngày tải lên: 17/08/2012, 08:54

... Console.WriteLine("\n Input " + fn); Console.WriteLine(File.ReadAllText(fn)); Console.WriteLine("\n Output " + gn); Console.WriteLine(File.ReadAllText(gn)); ... array[0..mn] of integer; var n,m: integer; { n - so luong doan, m - so doan duoc chon } d: md1; // cac doan 0 0 1 2 3 4 5 0 2 4 12 f,g: text; c: mi1; { c[i] = so luong max doan ... j := j-1; end; end; if (t...

Ngày tải lên: 17/08/2012, 08:54