Bài tập Pascal_Phần 4

... := Nut1; Nut1 := Tam1; Write(' Nhap nua khong ? (c/k) '); Readln(Ch); Until UpCase(Ch)= 'K'; Tam1 := Nut1; Nut1 := Nil; Repeat Tam2 := Tam1^.Next; Tam1^.Next := Nut1; Nut1 := Tam1; Tam1 := Tam2; ... '); For i: =1 To n Do For j: =1 To i Do Begin For i1:= i +1 To n Do For j1: =1 To j -1 Do If a[i,j]=a[i1,j1] Then Writeln(a[i,j],' = ',i,' ^3 ',' + ',j,' ^3 ',' = ', i1,' ^3 ',' + ',j1,' ^3')...

Ngày tải lên: 10/05/2015, 08:00

... Writeln; a:= 124 ; b:= 12; Writeln(a:3,' DIV ',b :2, ' = ',a DIV b); 40 Writeln(a:3,' MOD ',b :2, ' = ',a MOD b); c:= 12; d: =22 ; Writeln(c :2, ' AND ',d :2, ' = ',c AND d); Writeln(c :2, ' OR ',d :2, ' = ',c OR ... - 3*R) Div + R; Y2 := Y1 + R; Kc := R Div 5; X1 := (MaxX - 6*R -2* Kc) Div + R; X2 := X1 + Kc + 2* R; 32 X3 := X2 + Kc + 2* R; X4 := X1 + R + (Kc Div 2) ; X5 := X2 + R + (Kc...

Ngày tải lên: 10/05/2015, 08:00

... kt_ngay; CONST Ngay = [1 31 ]; Thang = [1 12]; Th31ngay: Set of byte = [1 ,3, 5,7,8,10,12]; BaoLoi : Array[1 3] Of String [30 ] =('-Ban nhap sai ngay, thang', '-Thang khong co 31 ','-thang khong co nay'); ... ba: '); Readln(ch3); ng3:=[ch1,ch2,ch3]; Ba:=ng1 * ng2 * ng3; Hai:=(ng1*ng2-ng3) + (ng2*ng3-ng1) + (ng3*ng1-ng2); Mot:=ng1 + ng2 +ng3; Writeln; Writeln('*Cac noi ma ca nguoi deu chon:...

Ngày tải lên: 10/05/2015, 08:00

... Var Tam:Real; Begin Tam:=Int((m- 14. 0)/12.0); Julian:=d-32075.0+ Int( 146 1.0*(y +48 00.0+Tam) /4. 0+ Int(367.0*(m-2.0-Tam*12.0)/12.0)Int(3.0*Int(y +49 00.00+Tam)/100.0) /4. 0) End; (* *) BEGIN {$R+} ... Write('-Nhap so thu tu : '); Readln(so4); max:=so1; min:=so1; If max < so2 Then max:=so2 Else min:=so2; If max < so3 Then max:=so3 Else min:=so3; If max < so4 Then max:=so4; Writeln; Writeln...

Ngày tải lên: 10/05/2015, 08:00

... Writeln(f,Replicate(#2 05, 58)); Flush(f); Close(f); END 256 /Minh hoạ tập tin thiết bị KDB: Program Tap_tin_Kbd; Uses Crt,Turbo3; Var a: Array[1 20] Of String[ 15] ; Item,Wide,i,j: Integer; Choose : String [5] ; ... 15 Do With M[k] Do Begin X := CenterX +Round(Radius*Sin(2*k*pi/ 15) ); Y := CenterY + AdjAsp(Round(Radius*Cos(2*k*pi/ 15) )); End; Circle(CenterX,CenterY,Radius); For i := T...

Ngày tải lên: 10/05/2015, 08:00

... sánh cách giải với cách giải ví dụ 4) Tính định thức D= a1 x x a2 x x x x an Giải : Định thức tính phương pháp biểu diễn định thức thành tổng định thức Trước hết ta viết định thức ... định thức, sau n lần tách ta có định thức D tổng 2n định thức cấp n Cột thứ i định thức cột loại (1) loại (2) cột thứ i định thức ban đầu D Chia 2n định thức thành dạng sau: Dạng 1: B...

Ngày tải lên: 04/08/2012, 14:24

... 15) Tìm hạng ma trận:   A=  5     Giải   d1↔d2 A −−→  −−  5    d2→−2d1+d2  − − − −  −−−→  d3→−3d1+d3  ... 0 1 2 0 0 0 2  −3   −2  −5 0     0 Vậy rank A = 16) Tìm hạng ma trận:     A=    1 1 1 1 1 1 1         Giải:    đổi dòng  A −− −  − −→       d3→2d2+d3  − − ...  0  0  1 1 −1 −1 −1   0   0 −6   0 0  0 0 Vậy rank A...

Ngày tải lên: 04/08/2012, 14:24

... : ϕ(a) = fa , đồng cấu (d) Tìm Kerϕ với ϕ đồng cấu nói câu c Tìm tất đồng cấu: (a) Từ nhóm cyclic cấp n đến (b) Từ nhóm cyclic cấp 24 đến nhóm cyclic cấp (c) Từ nhóm cyclic cấp đến nhóm cyclic ... tự lí giải điều nhận xét này! Và thay cho việc tìm số đồng cấu ϕ ta tìm xem có cách cho ϕ(1) cách hợp lí Giải: Nếu ϕ : (Q, +) → (Q∗ , ·) đồng cấu ϕ(1) = a Khi với số tự nhiên n > ta...

Ngày tải lên: 04/08/2012, 14:24

... LỜI NĨI ĐẦU Sau thời gian học tập giảng đường trường đại học bách khoa Hà Nội nói chung hay khoa điện tử viễn thơng nói riêng ... chúng em xin cảm ơn thầy chủ nhiệm mơn vi xử lý tạo điều kiện thuận lợi cho chúng em hồn thành tập lớn với kiến thức lý thú Nếu có điều kiện chúng em xin phát triển thêm rơbơt với tính đặc biệt

Ngày tải lên: 04/08/2012, 14:26

Ngày tải lên: 08/08/2012, 14:13

Ngày tải lên: 08/08/2012, 15:00

Ngày tải lên: 08/08/2012, 15:03

Ngày tải lên: 09/08/2012, 23:24

Ngày tải lên: 10/08/2012, 15:46