pascal có lời giải tin học

... r) div 2]; i := l; j := r; repeat while Val[t, i] < x Inc(i); while Val[t, j] > x Dec(j); if i

Ngày tải lên: 18/09/2013, 21:56

... Enter de ket thuc!'); Readln; END BÀI TẬP CƠ BẢN BÀI TẬP CƠ BẢN BÀI TẬP CHƯƠNG 3:CHƯƠNG TRÌNH CON Bài :Dùng thủ tục chuyển số tự nhiên n cho trước sang hệ số GIẢI Bài : Một file ghi chứa danh sách ... Trung_tuyen(a, b, c); Readln; END BÀI TẬP CƠ BẢN BÀI TẬP CƠ BẢN BÀI TẬP CHƯƠNG 7: KIỂU RECORD Bài :Giải phương trình x + y + z = 12 phạm vi số nguyên không âm với điều kiện x < GIẢI Uses...

Ngày tải lên: 15/04/2014, 15:14

... chuyên Lê Quý Đôn - Đà Nẵng Amino axit, Peptit Protein - 3000 tập có lời giải Hóa Học Hữu Cơ Peptit protein 22.37 (a) Liên kết peptit ? (b) Phân biệt peptit, oligopeptit, polipepetit protein (c) Cho ... este axit cacboxilic : -COOR -CH2OH (+HOR), nhóm disulfua : -S-S- 2-SH Trờng THPT chuyên Lê Quý Đôn - Đà Nẵng Amino axit, Peptit Protein...

Ngày tải lên: 09/07/2014, 12:20

... khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat BÀI TẬP CƠ BẢN TRANG 39 BÀI TẬP CƠ BẢN ch:=ReadKey; tap: =tap+ [ch]; ... Writeln('Cac phan tu cua tap hop la:'); For ch:='a' to 'z' If ch in tap then Write(ch,' '); Writeln; Writeln('Ban muon bo cac phan tu nao khoi tap hop:'); Repeat ch:=ReadK...

Ngày tải lên: 11/07/2014, 14:00

... 17 C D E Bài tập Hình Không Gian - Lớp 11 Chứng minh : SI ∕ ∕ AB ∕ ∕ CD Tứ giác SABI hình ? Giải a Chứng minh : MN ∕ ∕ CD : Trong tam giác SAB, ta có : MN ∕ ∕ AB Mà AB ∕ ∕ CD ( ABCD hình thang ... ) a Chứng minh MNPQ hình thang vuông b Tính diện tích hình thang theo a x M Tính x để diện tích lớn A Giải α Trang 23 Bài tập Hình Không Gian - Lớp 11 a Chứng m...

Ngày tải lên: 28/07/2014, 14:59

... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n có phải số hoàn thiện hay không? Bài tập 4.9: Viết ... kiểu Boolean để kiểm tra số nhập vào có phải số nguyên tố hay không Bài tập 3.23: Viết chương trình nhập vào số nguyên dương Hãy thông báo lên hình số có...

Ngày tải lên: 28/07/2014, 19:20

... Writeln('Tong la: ',s:6:2); Readln; End Bài 36: Giải hệ phương trình: Viết chương trình giải hệ phương trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết chương trình ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FI...

Ngày tải lên: 09/03/2015, 09:31

... 11 : Bn cú 1000 em gi ngõn hng vi lói sut 8%/thỏng Sau mi thỏng tin lói c nhp vo tớnh lói sut thỏng sau Bn mun dnh cho n s tin tng lờn l x Vy phi bao lõu GII uses crt ; var thang : Byte ... ; BEGIN Clrscr ; Write (' a = ') ; Readln( a ) ; Write (' b = ') ; Readln( b ) ; Write (' Phep tinh thuc hien la (+ - * /) : ') ; Readln( Pt ) ; If Pt = '+ Then kq := a + b ; If Pt = '- Then ... GII us...

Ngày tải lên: 12/03/2015, 13:33

... la: ',s:6:2); Readln; End Bài 36: Giải hệ phương trình: Viết chương trình giải hệ phương trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Type MT = Bài 37: Hãy viết chương trình ... vuông cấp n array[1 a Tính tổng phần tử nằm đường chéo 0,1 20] of b Tính tổng bình phương số nằm hàng chẵn integer; c Tính tổng bậc hai số không âm cột lẻ d Đếm số phần tử có gi...

Ngày tải lên: 11/04/2015, 23:33

... END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài : Bạn viết hàm Card(A) đếm số phần tử tập hợp A cho trước có kiểu Set Of 99 (* hàm đếm số phần tử tập hợp *) Uses Crt; Bài tập Pascal có lời giải ... 'z' Bài tập Pascal có lời giải 39 Thầy gửi tài liệu em xem để học (0946873510-Hồng Nam Trung-mientrung19@gmail.com) If ch in tap then Write(ch,' '); Readln; END BÀI TẬP C...

Ngày tải lên: 21/05/2015, 17:00

... ve man hinh soan thao'); Writeln('1: Tinh dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln('3: tinh dien tich tam giac'); Writeln('4: Tinh dien tich hinh chu nhat'); Writeln('===================================='); ... End; Writeln('Tong S = ',s :8: 2); Readln; End Trang n Bài 16: Tính tổng S = ∑x i i=1 Program TINH_TONG2; Uses Crt; Var i,n:integer; x,s,lt:real; Begin...

Ngày tải lên: 09/06/2015, 14:00

... C cựng thuc ng B trũn Ta cú: MOB = 90 (vỡ MB l tip tuyn) MCO = 90 (vỡ MC l tip tuyn) O M => MBO + MCO = K = 90 0 + 90 0 = 1800 MAI TH QUNH 097 6 .93 .93 . 89 & 09. 434.123.68 => T giỏc MBOC ni tip ... MAI TH QUNH 097 6 .93 .93 . 89 & 09. 434.123.68 P S M ã APO = 90 N A I G O K (Do AP l tip tuyn ca (O) P) ã AQO = 90 (Do AQ l tip tuyn ca (O) Q) ị ã APO + ã AQO ... AB AC = BC v sd ằ = sd...

Ngày tải lên: 18/06/2015, 18:53

... Tây Ninh Cho hình chóp S.ABCD có đáy ABCD hình vng cạnh a Mặt bên (SAB) tam giác vng góc với đáy Gọi H trung điểm AB Tính thể tích hình chóp S.ABCD Cho hình chóp S.ABCD có đáy ABCD hình vng cạnh ... chóp S ABCD bán kính mặt cầu ngoại tiếp hình chóp S ABCD ĐỀ THPT Lê Duẫn – Tây Ninh · Cho hình chóp S.ABCD có đáy ABCD hình thoi cạnh a Góc BAC = 600 , hình chiếu đỉnh S mặ...

Ngày tải lên: 04/07/2015, 00:06

... = 302460VA Bài số 2-12 Máy biến áp pha lý tưởng có tỉ số biến đổi điện áp 5:1 Phía hạ áp có dòng điện 15.6∠-32oA, MBA vận hành giảm áp lưới điện có tần số f = 50Hz nối với phụ tải có tổng trở ... cao áp; (b) tổng trở vào; (c) điện áp cao áp điện áp tải 270V; (d) vẽ đồ thị véc tơ dòng điện điện áp phía hạ áp; (e) xác định hệ số công suất phía cao áp Tỉ số b...

Ngày tải lên: 20/10/2015, 11:08