Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » Tin học trong nhà trường » Học lập trình » Lập trình Pascal !




Trả lời
  #1  
Cũ 13-07-2008
torai112's Avatar
torai112 torai112 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 31-07-2007
Đến từ: Đất Tổ quê ta
Bài viết: 995
Đã cảm ơn: 34
Được cảm ơn 129 lần
Lập trình Pascal !

Theo nguyện vọng của một số mem đang có nhu cầu học về Pascal hôm nay Torai112 sẽ lập riêng một Topic để hướng dẫn và trả lời các thắc mắc của các mem về ngôn ngữ lập trình cơ bản được học trong chương trình THPT này !
Và bắt đầu với vài nét giới thiệu về Turbo Pascal 7.0 :

Ngôn ngữ lập trình Pascal


Pascal là một ngôn ngữ lập trình cho máy tính thuộc dạng mệnh lệnh, được Niklaus Wirth phát triển vào năm 1970 là ngôn ngữ đặc biệt thích hợp cho kiểu lập trình có cấu trúc.

Pascal dựa trên ngôn ngữ lập trình Algol và được đặt tên theo nhà toán học và triết học Blaise Pascal. Wirth đồng thời cũng xây dựng Modula-2 và Oberon, là những ngôn ngữ tương đồng với Pascal. Oberon cũng hỗ trợ kiểu lập trình hướng đối tượng.

Ban đầu, Pascal là một ngôn ngữ được hướng để dùng trong giảng dạy về lập trình có cấu trúc, và nhiều thế hệ sinh viên đã "vào đời" thông qua việc học Pascal như ngôn ngữ vỡ lòng trong các chương trình học đại cương. Nhiều biến thể của Pascal ngày nay vẫn còn được sử dụng khá phổ biến, cả trong giảng dạy lẫn trong công nghiệp phát triển phần mềm.

Phần lớn hệ điều hành Macintosh được viết bằng Pascal. Hệ sắp chữ TeX phổ biến được viết bằng một ngôn ngữ tên là Web là ngôn ngữ mà Donald Knuth đã vay mượn khá nhiều yếu tố từ Pascal.
__________________


Chúng ta sinh ra không phải để yêu một người hoàn hảo mà là để học cách yêu một người không hoàn hảo một cách trọn vẹn !


Hãy cùng tìm hiều thêm về CÔNG NGHỆ THÔNG TIN trong THỜI ĐẠI SỐ của box TIN HỌC
Trả Lời Với Trích Dẫn
Có 13 thành viên đã gửi lời cảm ơn đến torai112 với bài viết này:
  #2  
Cũ 13-07-2008
torai112's Avatar
torai112 torai112 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 31-07-2007
Đến từ: Đất Tổ quê ta
Bài viết: 995
Đã cảm ơn: 34
Được cảm ơn 129 lần
Khóa học toàn tập về học lập trình Pascal :
Turbo Pascal

Thêm một Ebook nữa nè ! Mọi người cứ "nhắm" tạm nhé :d
Pascal
__________________


Chúng ta sinh ra không phải để yêu một người hoàn hảo mà là để học cách yêu một người không hoàn hảo một cách trọn vẹn !


Hãy cùng tìm hiều thêm về CÔNG NGHỆ THÔNG TIN trong THỜI ĐẠI SỐ của box TIN HỌC

Thay đổi nội dung bởi: thanhthuytu, 16-03-2009 lúc 10:58.
Trả Lời Với Trích Dẫn
Có 3 thành viên đã gửi lời cảm ơn đến torai112 với bài viết này:
  #3  
Cũ 06-09-2008
lieslines_seeling's Avatar
lieslines_seeling lieslines_seeling đang ngoại tuyến
Thành viên
Tổ trưởng
 
Tham gia : 27-02-2008
Đến từ: thiên đường ...
Bài viết: 418
Đã cảm ơn: 98
Được cảm ơn 213 lần
Hơ Hơ !! nois thật la` tui học tự pascal đc mí tháng roài mà chẳng hỉu ji` hít áh
__________________
To everything there is a season , and a time to every purpose under the heaven
Vạn vật đều có một khoảng thời gian nhất định , và mỗi khoảnh khắc trên trần gian đều có một mục đích riêng của nó
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn lieslines_seeling vì bài viết này:
  #4  
Cũ 03-10-2008
tiendung2992 tiendung2992 đang ngoại tuyến
MEM VIP
Bàn trưởng
 
Tham gia : 06-08-2008
Bài viết: 141
Đã cảm ơn: 5
Được cảm ơn 124 lần
Lỗi : Erro 200 : division by zero là gì thế mà tớ bấm Ctrl+F9 nó báo thế ?
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn tiendung2992 vì bài viết này:
  #5  
Cũ 03-10-2008
pk_ngocanh's Avatar
pk_ngocanh pk_ngocanh đang ngoại tuyến
Thành viên
Thủ quỹ
 
Tham gia : 22-09-2008
Đến từ: -=* Xứ Sở Mèo Con *=-
Bài viết: 558
Đã cảm ơn: 50
Được cảm ơn 168 lần
lỗi chia cho số 0
ah này các bạn cho tui hỏi viết biểu thức y mũ x trong pascal kiểu gì thế nhỉ???
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn pk_ngocanh vì bài viết này:
  #6  
Cũ 04-10-2008
torai112's Avatar
torai112 torai112 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 31-07-2007
Đến từ: Đất Tổ quê ta
Bài viết: 995
Đã cảm ơn: 34
Được cảm ơn 129 lần
Smile

Trích:
Nguyên văn bởi tiendung2992 Xem Bài viết
Lỗi : Erro 200 : division by zero là gì thế mà tớ bấm Ctrl+F9 nó báo thế ?


Lỗi này e có thế là e khai báo cái thư viện crt nhưng file turbo.tpl bị hỏng . E có thế bỏ khai

báo đó đi (Nhưng thế thì sẽ không dùng mấy cái clrscr được !) . Cũng có thể trong các

phép tính , có thể là phép lặp e cho biến chia có chia cho 0 . Chúc e vui vẻ
__________________


Chúng ta sinh ra không phải để yêu một người hoàn hảo mà là để học cách yêu một người không hoàn hảo một cách trọn vẹn !


Hãy cùng tìm hiều thêm về CÔNG NGHỆ THÔNG TIN trong THỜI ĐẠI SỐ của box TIN HỌC
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn torai112 vì bài viết này:
  #7  
Cũ 04-10-2008
torai112's Avatar
torai112 torai112 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 31-07-2007
Đến từ: Đất Tổ quê ta
Bài viết: 995
Đã cảm ơn: 34
Được cảm ơn 129 lần
Smile

Trích:
Nguyên văn bởi pk_ngocanh Xem Bài viết
lỗi chia cho số 0
ah này các bạn cho tui hỏi viết biểu thức y mũ x trong pascal kiểu gì thế nhỉ???

Trong Pascal không có hàm trực tiêps x mũ y đâu e àh ! Chỉ có hàm dùng theo log thôi !

Hoặc là e có thể viết một hàm tính x mũ y và lần sau e chỉ việc gọi ra thôi !

Chúc e vui vẻ :d
__________________


Chúng ta sinh ra không phải để yêu một người hoàn hảo mà là để học cách yêu một người không hoàn hảo một cách trọn vẹn !


Hãy cùng tìm hiều thêm về CÔNG NGHỆ THÔNG TIN trong THỜI ĐẠI SỐ của box TIN HỌC
Trả Lời Với Trích Dẫn
Có 3 thành viên đã gửi lời cảm ơn đến torai112 với bài viết này:
  #8  
Cũ 11-10-2008
long15's Avatar
long15 long15 đang ngoại tuyến
Thành viên
Tổ phó
 
Tham gia : 20-03-2008
Đến từ: blue sky
Bài viết: 274
Đã cảm ơn: 87
Được cảm ơn 162 lần
Các bạn có thể chỉ cách xửa lỗi chia cho không được không
hoặc cho ví dụ cũng được
Trả Lời Với Trích Dẫn
Có 2 thành viên đã gửi lời cảm ơn đến long15 với bài viết này:
  #9  
Cũ 16-11-2008
tu310 tu310 đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 10-11-2008
Bài viết: 17
Đã cảm ơn: 5
Được cảm ơn 3 lần
lập trình giúp em bài này

ai giúp em giải 2 bài này em cảm ơn chân tình

bài 1: lập trình giải bài toán sau: nhập số nguyên dương n từ bàn phím. tìm số nguyên k nhỏ nhất thoã mãn điều kiện 3^k>n. đưa ra màn hình số k và giá trị 3^k.

bài 2: lập trình các số fibonacci f0,f1,........,fk,......,f44 và ghi các kết quả tính được ra văn bản FIBO.DAT, mỗi số được ghi trên một dòng dưới dạng số nguyên, biết rằng:
f0=f1=1;
fk=fk-1+fk-2;
k=2,3,.....,44.
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn tu310 vì bài viết này:
  #10  
Cũ 16-11-2008
storm5906's Avatar
storm5906 storm5906 đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 24-02-2008
Đến từ: Ninh Thuận
Bài viết: 197
Đã cảm ơn: 29
Được cảm ơn 116 lần
Smile

Trích:
Nguyên văn bởi tu310 Xem Bài viết
ai giúp em giải 2 bài này em cảm ơn chân tình

bài 1: lập trình giải bài toán sau: nhập số nguyên dương n từ bàn phím. tìm số nguyên k nhỏ nhất thoã mãn điều kiện 3^k>n. đưa ra màn hình số k và giá trị 3^k.

bài 2: lập trình các số fibonacci f0,f1,........,fk,......,f44 và ghi các kết quả tính được ra văn bản FIBO.DAT, mỗi số được ghi trên một dòng dưới dạng số nguyên, biết rằng:
f0=f1=1;
fk=fk-1+fk-2;
k=2,3,.....,44.


Bài 1:

Mã:
PROGRAM Tim_so;
VAR  k,n:integer;
        x:longInt;
BEGIN
     Write('Nhap so nguyen n:'); Readln(n);
     If n=0 then
        Begin
             Writeln('So k = 0');
             Writeln('3 ^ k = 1');
             Readln;
             Exit;
        End;
     If n<0 then
        Begin
             Writeln('Khong tinh duoc!');
             Readln;
             Exit;
        End;
     x:=1;
     For k:=1 to n do
         Begin
              x:=x*3;
              If x>n then
                 Begin
                      Writeln('So k = ',k);
                      Writeln('3 ^ k = ', x);
                      Break;
                 End;
         End;
     READLN;
END.
Bài 2:

Mã:
PROGRAM Fibonacci;
VAR	f: text;
    	i: byte;
    	s1,s2,s3: longInt;
BEGIN
     Assign(f, 'D:\Pascal\Data\FIBO.DAT'); Rewrite(f);
     s1:=1;
     s2:=1;
     Writeln(f, s1); Writeln(f, s2);
     For i:=3 to 44 do
         Begin
              s3:=s1+s2;
              Writeln(f, s3);
              s1:=s2;
              s2:=s3;
         End;
     Close(f);
     Writeln('Da hoan thanh!');
     READLN;
END.

Thay đổi nội dung bởi: storm5906, 17-11-2008 lúc 10:15.
Trả Lời Với Trích Dẫn
Có 5 thành viên đã gửi lời cảm ơn đến storm5906 với bài viết này:
Trả lời

Chia sẻ/đánh dấu bài viết


Ðiều chỉnh Tìm trong bài viết
Tìm trong bài viết:

Tìm chi tiết
Xếp bài

Quyền hạn của bạn
Bạn không thể tạo chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể đăng tập đính kèm
Bạn không thể sửa bài của mình

BB codeMở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

 
Bài giảng mới
Toán 10 - Thầy Lưu Huy Thưởng : Bài 22. Một số bài toán liên quan đến tứ giác (Phần 05)
Toán 10 - Thầy Lưu Huy Thưởng : Bài 22. Một số bài toán liên quan đến tứ giác (Phần 05)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 3. Bài giảng (Phần 3)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 3. Bài giảng (Phần 3)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 2. Bài giảng (Phần 2)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 2. Bài giảng (Phần 2)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 4. Nhận dạng và sắp xếp các bài toán cơ qui luật
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 4. Nhận dạng và sắp xếp các bài toán cơ qui luật
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 1 Bài giảng (Phần 1)
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 1 Bài giảng (Phần 1)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 3: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 3)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 3: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 3)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải :  Bài 1: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 1)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 1: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 1)
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Phan Huy Khải) : Bài 09. Các bái toán về hình vuông
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Phan Huy Khải) : Bài 09. Các bái toán về hình vuông
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi :  Bài 4. Bài giảng (Phần 4)
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi : Bài 4. Bài giảng (Phần 4)
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi :  Bài 3. Bài giảng (Phần 3)
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi : Bài 3. Bài giảng (Phần 3)

Đề thi mới
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
Thi thử đại học 12 : Đề tự luyện miễn phí
Thi thử đại học 12 : Đề tự luyện miễn phí
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01




Múi giờ GMT +7. Hiện tại là 12:52.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.