:: Quên mật khẩu ::


Gửi bài mới Trả lời chủ đề này
<b>-» Devil_nhok_x «-</b>
Bí ẩn ngôn ngữ lập trình
Wed Aug 13, 2008 2:10 pm


khonkhothat
Ma cũ
Status:
Ma cũ
Nam
Bài gửiTiêu đề: Bí ẩn ngôn ngữ lập trình
Bạn có bao giờ thắc mắc về tác giả của các ngôn ngữ lập trình như Pascal, Turbo C? Nếu chưa thì đây là lúc để bạn vừa thắc mắc, vừa được giải đáp. Ngay trong turbo.exe của TP70 có chứa tên 51 người đã làm TP70 mặc dù chúng ở một vùng “lạ” của tập tin và được ghi theo qui cách không bình thường.



Chương trình Pascal sau đọc turbo.exe và ghi ra tên của họ:

uses crt;

var f:file of char;

x:char;

i:longint;

begin

clrscr;

writeln('Cac tac gia cua Turbo Pascal 7.0');

writeln('---------------------------');

assign(f,'turbo.exe');

reset(f);

seek(f,393850);

for i:=1 to 679 do

begin

read(f,x);

if (x=' ') or (x='.') or (('a'<=x) and (x<='z')) or (('A'<=x) and (x<='Z')) then

write(x)

else write(',');

end;

close(f);

readln

end.

51 người để viết nên TP70 có lẽ vẫn chưa bằng con số 71 của Turbo C++ 3.0, trong đó có rất nhiều người đã viết TP70 và hình như có cả người Việt Nam. Chương trình Pascal đọc tc.exe hiện tên như sau:

uses crt;

var f:file of char;

x:char;

i:longint;

begin

clrscr;

writeln('Cac tac gia cua Turbo C++ 3.0');

writeln('---------------------------');

assign(f,’tc.exe’);

reset(f);

seek(f,554011);

for i:=1 to 972 do

begin

read(f,x);

if x='~' then write(',') else write(x);

end;

close(f);

readln

end.



Theo phphuoc.com


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


Bí ẩn ngôn ngữ lập trìnhXem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
Permissions in this forum:Bạn không có quyền trả lời bài viết
Quảng cáo rao vặt 24h :: 

Lập trình

-
<-------------------------------->
|
Bookmarks

Bí ẩn ngôn ngữ lập trình

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Wed Aug 13, 2008 2:10 pm
khonkhothat
Ma cũ

Cấp bậc thành viên
Danh vọng:
13%/1000%

Tài năng:32%/100%

Liên lạc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 13
» Age : 32
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 13/08/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Bí ẩn ngôn ngữ lập trình


Bạn có bao giờ thắc mắc về tác giả của các ngôn ngữ lập trình như Pascal, Turbo C? Nếu chưa thì đây là lúc để bạn vừa thắc mắc, vừa được giải đáp. Ngay trong turbo.exe của TP70 có chứa tên 51 người đã làm TP70 mặc dù chúng ở một vùng “lạ” của tập tin và được ghi theo qui cách không bình thường.



Chương trình Pascal sau đọc turbo.exe và ghi ra tên của họ:

uses crt;

var f:file of char;

x:char;

i:longint;

begin

clrscr;

writeln('Cac tac gia cua Turbo Pascal 7.0');

writeln('---------------------------');

assign(f,'turbo.exe');

reset(f);

seek(f,393850);

for i:=1 to 679 do

begin

read(f,x);

if (x=' ') or (x='.') or (('a'<=x) and (x<='z')) or (('A'<=x) and (x<='Z')) then

write(x)

else write(',');

end;

close(f);

readln

end.

51 người để viết nên TP70 có lẽ vẫn chưa bằng con số 71 của Turbo C++ 3.0, trong đó có rất nhiều người đã viết TP70 và hình như có cả người Việt Nam. Chương trình Pascal đọc tc.exe hiện tên như sau:

uses crt;

var f:file of char;

x:char;

i:longint;

begin

clrscr;

writeln('Cac tac gia cua Turbo C++ 3.0');

writeln('---------------------------');

assign(f,’tc.exe’);

reset(f);

seek(f,554011);

for i:=1 to 972 do

begin

read(f,x);

if x='~' then write(',') else write(x);

end;

close(f);

readln

end.



Theo phphuoc.com

Chữ ký của thành viên



Trả lời nhanh
Trang 1 trong tổng số 1 trang
Powered by: phpBB2 - Copyright ©2000 - 2010, GNU General Public License.
Skin Halloween HDviet.Us.To- Rip by Ligerv
Forumotion.com | © phpBB | Free forum support | Liên hệ | Report an abuse | Create a blog