![]() |
![]() |
![]() |
||||
Welcome to the GoFuckYourself.com - Adult Webmaster Forum forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today! If you have any problems with the registration process or your account login, please contact us. |
![]() ![]() |
|
Discuss what's fucking going on, and which programs are best and worst. One-time "program" announcements from "established" webmasters are allowed. |
|
Thread Tools |
![]() |
#1 |
Confirmed User
Join Date: Nov 2002
Posts: 260
|
Pascal Programmers?
I thought pascal was dead. I hope not.
I can not think of a way to print out every 3 possible 3 letter domain name into a pascal file. Do you know how to do this? What I mean is: aaa aab aac... fgh fgi fgj fgk Thanks |
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#2 |
Confirmed User
Join Date: Oct 2002
Location: socal
Posts: 145
|
its 2003 not 86. stay off the crack.
__________________
Direct Navigation Keywords 174448136 |
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#3 |
Confirmed User
Join Date: Sep 2002
Location: Vancity
Posts: 1,681
|
I haven't even heard of pascal since bbs days....
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#4 |
Confirmed User
Join Date: Oct 2002
Location: USA
Posts: 148
|
Damn. I took Pascal in high school and it was outdated then. Tested out of some college credit with it and haven't heard anything about it since...that was about 7 years ago.
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#5 |
Confirmed User
Join Date: Sep 2002
Location: closer then it appears
Posts: 6,655
|
Hi,
declare array of chars, 'a','b','c' and so on. now define count of chars, in our country 32; Edit1.Text is string of combined chars. you must write procedures to store it into file etc. i,j,k, count: integer; begin count := 32; for i:=1 to count do begin for j:=1 to count do begin for k:=1 to count do begin Edit1.Text := IntToStr(i)+' '+IntToStr(j)+' '+IntToStr(k); end; end; end; end;
__________________
www.garciniatrio.com www.acaitrio.com www.greencoffeetrio.com ICQ 153918034 email [email protected] |
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#6 | |
Richest man in Babylon
Industry Role:
Join Date: Jan 2002
Location: Posts: 10,002
Posts: 5,726
|
Quote:
a-z using Nydahl's code. You can use the ord to get the ascii, then increment it for the next letter then get the character from the ascii with chr. |
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#7 |
Confirmed User
Join Date: Mar 2002
Location: Mass Ass
Posts: 5,294
|
i killed pascal and threw him in the river
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#8 | |
Nice Kitty
Industry Role:
Join Date: Sep 2002
Location: The good old USA!!!
Posts: 21,053
|
Quote:
![]()
__________________
When you're running down my country hoss...you're walking on the fighting side of me! FOR THE LYING LOWLIFE POSTING AS PATHFINDER...https://gfy.com/fucking-around-and-pr...athfinder.html |
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#9 |
Confirmed User
Join Date: May 2002
Location: CT
Posts: 5,246
|
aww the good old times
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#10 | |
Confirmed User
Join Date: Jul 2002
Posts: 1,721
|
Quote:
According to my clock it's 2002. Did you say crack?
__________________
the sound of one hand googlewhacking |
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#11 | |
Confirmed User
Join Date: Sep 2002
Location: Seattle, WA
Posts: 447
|
Quote:
![]() ![]() |
|
![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
#12 | |
So Fucking Banned
Join Date: Jan 2001
Location: http://www.thefly.net/ --- Quit your job and live off steady traffic.
Posts: 11,856
|
Quote:
![]() I actually purchased Borland Pascal 7.0 back in the day... so I could code my own BBS software... I came up w/ a cool ANSI algorithm which would be totally useless today... I remember taking my code to an interview at Galacticom... Damn those are some memories. |
|
![]() |
![]() ![]() ![]() ![]() ![]() |