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 » Học lập trình » Lập trình Pascal !

Thi thử đại học 2014



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.

Các bài viết xem nhiều nhất cùng chuyên mục:
__________________


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 [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
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 :
[Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]

Thêm một Ebook nữa nè ! Mọi người cứ "nhắm" tạm nhé :d
[Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
__________________


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 [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]

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 123 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: 562
Đã cảm ơn: 50
Được cảm ơn 167 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 [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
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 [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
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

Đề thi mới




Múi giờ GMT +7. Hiện tại là 18:03.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.
Advertisement System V2.4 By   Branden

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.