Pascal THCS

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

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

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

... 1KHz Sau lập trình thiết kế lọc dựa hệ số Tương tự cho lọc thông cao, thông qua thông cao Bài DFT FFT cửa sổ I Lý thuyết: 1.1 DFT Biến đổi Fourier rời rạc thời gian DFT công cụ xử lý tín hiệu ... hệ thống Bài Phân tích hệ thống miền thời gian miền tần số I Lý thuyết: 1.1 Đáp ứng xung: Đáp ứng xung lọc chuỗi tín hiệu ngõ lọc đưa vào lọc chuỗi xung đơn vị 1.2 Đáp ứng tần số: Đáp ứ...

Ngày tải lên: 16/08/2012, 09:11

... niệm ngôn ngữ Pascal Biết cách cài đặt Pascal từ đĩa CD Biết cách sử dụng Pascal 7.0 Biết tạo, lưu mở tập tin chương trình Biết biên dịch thực thi chương trình I/ Khái niệm Ngôn ngữ lập trình ... trình kiểm tra kết I/ Những nguyên tắc lập trình Pascal 1/ Các ký hiệu sử dụng Pascal Bất ngôn ngữ lập trình xây dựng từ số hữu hạn ký hiệu Trong ngôn ngữ...

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

... Láûp trçnh Pascal càn bn — –8— BI : CẠC KHẠI NIÃÛM CÅ BN CA NGÄN NGỈỴ PASCAL I Cạc tỉì khoạ (Key word) ngän ngỉỵ Pascal: Cạc tỉì khoạ l cạc tỉì dng âãø khai bạo, âàût tãn cho âäúi tỉåüng Pascal, ... chỉång trçnh - Alt - X: Thoạt mn hçnh soản tho chỉång trçnh Pascal IV Cáúu trục mäüt chỉång trçnh Pascal: Cáúu trục cå bn: Chỉång trçnh Pascal âån gin nháút phi cọ hai tỉì khoạ Begin v...

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

... (ch , a[ch] : , ' lan ') ; Readln ; END Bài : Cho số tự nhiên n , lập trình để tính tổng sau : a a + 1/ 22 + 1/ 32 + … + 1/ n2 b b + 1/ 2! + 1/ 3! + … + 1/ n! a) Var n , i : Word ; S : Real ; BEGIN ... := To n Do p := p * ( + 1/ sqr(i) ) ; Writeln(' p = ', p :10 :5 ) ; Readln ; End SỬ DỤNG LỆNH WHILE Bài : Lập trình tính tổng : A = + 1/ 2 + 1/ 3 + … + 1/ n n số tự nhiên nhập vào...

Ngày tải lên: 26/12/2013, 20:07

... End Else Begin x1:=(-b+sqrt(Delta))/ (2* a); x2:=(-b-sqrt(Delta))/ (2* a); Writeln('Phuong trinh co nghiem phan biet la :'); Writeln('X1=',x1:8 :2, 'X2=',x2:8 :2) ; End; End; (*================================*) ... ma:=sqrt( (2* sqr(b) +2* sqr(c)-sqr(a))/4); mb:=sqrt( (2* sqr(a) +2* sqr(c)-sqr(b))/4); mc:=sqrt( (2* sqr(a) +2* sqr(b)-sqr(c))/4); Writeln('Cac trung tuyen cua tam giac la : ') ;...

Ngày tải lên: 26/12/2013, 20:08

... Else if ch# 13 then Write(#7); If ch=#0 then ch:=Readkey; Until ch = # 13; END Bài : Viết chương trình có chức thêm phần tử vào tập hợp trực tiếp từ bàn phím loại bớt phần tử khỏi tập hợp trực ... st:=st+ch; Write(ch); end Else If ch# 13 then Write(#7); Until ch=# 13; Readln; END Bài : Hãy lập chương trình nhập vào xâu kí tự từ bàn phím u cầu kí tự nhập vào phải chữ thuộc bảng chữ t...

Ngày tải lên: 26/12/2013, 20:08

... then x:=600; If y >44 0 then y:=0; If y

Ngày tải lên: 26/12/2013, 20:08

... môn tin học đưa vào dạy học trường THCS nên tài liệu bồi dưỡng cho học sinh giỏi dành cho học sinh THCS chưa có Đáp ứng nhu cầu bồi dưỡng trường, tập tài liệu bồi dưỡng học sinh giỏi môn tin học ... ngày tốt Rất nhiều học sinh, phụ huynh học sinh, lãnh đạo trường muốn thân, mình, học sinh tham gia kỳ thi học sinh giỏi môn tin học...

Ngày tải lên: 31/08/2014, 17:02

... soạn: Nguyễn Minh Đức 49 Bài tập Pascal Readln; End Bài 13 Mã số sách Để đánh mã số cho sách, cán thư viện dự định dùng từ có kí hiệu liên tiếp gồm : kí tự (A Z) kí số (001 99 9) Em lập trình tạo ... kiện giá trị số tổng lập phương chữ số uses crt; Var a,b,c,i:integer; Begin clrscr; For i:=100 to 99 9 begin a:=i div 100; b:=(i div 10) mod 10; c:=i mod 10; if a*a*a+b*b*b+c*c*c=i then begi...

Ngày tải lên: 02/11/2014, 21:35

... KỸ NĂNG GIẢI TOÁN TRÊN MÁY TÍNH BẰNG NGÔN NGỮ LẬP TRÌNH PASCAL MÔN TIN HỌC TẠI TRƯỜNG THCS TÂN TIẾN” A ĐẶT VẤN ĐỀ: Lý Tính khoa học Là giáo viên tin học trường THCS Tân Tiến, mục tiêu giúp học ... Chuyên đề: KỸ NĂNG GIẢI TOÁN TRÊN MÁY TÍNH BẰNG NGÔN NGỮ LẬP TRÌNH PASCAL MÔN TIN HỌC TẠI TRƯỜNG THCS TÂN TIẾN” A ĐẶT VẤN ĐỀ B GIẢI QUYẾT VẤN ĐỀ C KẾT THÚC VẤN ĐỀ Chuyên...

Ngày tải lên: 24/11/2014, 07:51