Pascal Forum RSS Feed (Replies Included)

Re: I need to know how can I write it in pascal???

Fri, 20 Nov 2009 08:49:30 -0700

: 1) Insert information
: 2)search by student number
: 3)display all information
: 4)delete by student number
: 5)Exit
: please enter your choice
: ======================================…
: write a program that has the above menu & Contains(max) 100 students
: with the information(name/students number(code)/field/term)....store
: them & can do the above performance(in the above menu)
: note: without using 'record'
:

That looks like a homework assignment to me, so no code this time... start writing yourself and ask for help with code examples if you get stuck. Hint: use arrays if you cannot use records.

Re: Get progress from scanning

Fri, 20 Nov 2009 08:43:43 -0700

: If I use findfirst or findnext, that will wasting time???

No time wasting there (takes only a fraction of a second), beside that's the only way to find out the file names from a folder...unless you read the FAT directly and process the info but that's a bit beyond plain Pascal's capability, you'd have to rely on assembly there...

Re: Get progress from scanning

Thu, 19 Nov 2009 06:01:24 -0700

If I use findfirst or findnext, that will wasting time???

Fake Passports for Sale

Thu, 19 Nov 2009 02:53:48 -0700

Fake Passports for Sale

If you want to buy high quality fake forged fraudulent counterfeit duplicate false camouflage diplomatic passports and other identification documents of Australia, Austria, Belgium, Canada, Finland, France, Germany, Israel, Malaysia, Netherlands, New Zealand, South Africa, Switzerland, United Kingdom, United States and some other countries please visit this website:

http://www.FakePassport.Ws

E-mail: FakePassports@Gmail.Com

Diplomatic passports are also available on demand

I need to know how can I write it in pascal???

Wed, 18 Nov 2009 11:52:35 -0700

1) Insert information
2)search by student number
3)display all information
4)delete by student number
5)Exit
please enter your choice
======================================…
write a program that has the above menu & Contains(max) 100 students with the information(name/students number(code)/field/term)....store them & can do the above performance(in the above menu)
note: without using 'record'

Re: simple asterisk password program?

Sun, 15 Nov 2009 21:52:22 -0700

: How can I do something like this in Turbo Pascal 7? :| :D

Just change the uses line to: uses crt;

Re: Get progress from scanning

Sun, 15 Nov 2009 21:50:58 -0700

: How can I get m ? Do I have to scan twice? :(

No, you have to use the findfirst and findnext procedures from the Dos unit to get all the filenames in a folder first. That gives you the m. When you scan you'll have to open each file for scan, starting from 1 (n).

Re: simple asterisk password program?

Sun, 15 Nov 2009 10:47:16 -0700

How can I do something like this in Turbo Pascal 7? :| :D

Re: Get progress from scanning

Sun, 15 Nov 2009 09:34:48 -0700

How can I get m ? Do I have to scan twice? :(

Re: Need some Help! on Record please..

Fri, 13 Nov 2009 20:57:08 -0700

You could try:

type transaction_record=record
                         field_a:customerrec;
                         field_b:stockrec;
                        end;

var transaction_record_file:file of transaction_record;

Re: To extract the time..

Fri, 13 Nov 2009 20:23:34 -0700

: Hiya guys =]
: this time I would like to ask how to extract the time and the date
: into an array?

Use the unpacktime procedure from the Dos unit, see TP's hep for more info.

Re: Get progress from scanning

Fri, 13 Nov 2009 20:20:36 -0700

Let be m the total number of files in a folder, n the current file you process (a nonzero number) then current percentage (cp) would be: cp:=n*100/m

Re: Using Algorithm Genome Shot to sort numbers

Fri, 13 Nov 2009 20:15:55 -0700

: How to create a program to sort numbers from 1 to 20 using principle
: of algorithm genome shot?

Describe the "genome shot" sorting... I never heard of it

To extract the time..

Thu, 12 Nov 2009 07:33:45 -0700

Hiya guys =]
this time I would like to ask how to extract the time and the date into an array?
thanks alot for you guys' help ><

Get progress from scanning

Wed, 11 Nov 2009 06:14:59 -0700

I am trying to make simple malware removal, but I dont know how to get the percentage of path that I want to scan. For example I scan c:\folder, I want to get the percentage to make progress bar while scanning.

Thx a lot.

Re: Need some Help! on Record please..

Fri, 06 Nov 2009 18:57:08 -0700

Yes please, I'd really appreciate it. =>

Create Calander with PASCAL

Fri, 06 Nov 2009 05:47:08 -0700

Here's a simple code which will create a monthly calendar for u.

program CALANDER(input,output);

uses crt;

var
space: integer;
i : integer;
month : integer;
fmonth: string;
MonthA : Array[0..11] of string;
DayA   : Array[0..6] of string;
MonthC : Array[0..11] of integer;
day : integer;
fday : string;
DayF : Array[0..6] of integer;
firstday : string;
firstdate : integer;
daymod : integer;
date : integer;
a : integer;
monthtotal: integer;

begin

{ARRAY list that used in program}
{START}
MonthA[0] := 'January';
MonthA[1] := 'February';
MonthA[2] := 'March';
MonthA[3] := 'April';
MonthA[4] := 'May';
MonthA[5] := 'June';
MonthA[6] := 'July';
MonthA[7] := 'Auguest';
MonthA[8] := 'September';
MonthA[9] := 'October';
MonthA[10] := 'November';
MonthA[11] := 'December';

DayA[0] := 'Sunday';
DayA[1] := 'Monday';
DayA[2] := 'Tuesday';
DayA[3] := 'Wednesday';
DayA[4] := 'Thursday';
DayA[5] := 'Friday';
DayA[6] := 'Saturday';

DayF[0] := 0;
DayF[1] := 5;
DayF[2] := 5;
DayF[3] := 5;
DayF[4] := 5;
DayF[5] := 5;
DayF[6] := 5;

MonthC[0] := 31;
MonthC[1] := 28;
MonthC[2] := 31;
MonthC[3] := 30;
MonthC[4] := 31;
MonthC[5] := 30;
MonthC[6] := 31;
MonthC[7] := 31;
MonthC[8] := 30;
MonthC[9] := 31;
MonthC[10] := 30;
MonthC[11] := 31;
{END}

clrscr;
writeln('Enter the current MONTH code from the following list');

{Loop for the Month codes display}
{START}
for i := 0 to 11 do
    begin
        writeln(i,' => ',MonthA[i]);
    end;
{END}

writeln('');
writeln('Please enter the MONTH code between 0 to 11');
readln(month);            {Get current month from user}
writeln('');


{Error handeling for getting current month rom user}
{START}
if (month < 0)  OR (month >= 12)
   then
       begin
            repeat
                  writeln('Please enter the MONTH code between 0 to 11');
                  readln(month);
            until ((month >= 0) AND (month <= 11));
            fmonth := MonthA[month];
            writeln(fmonth);
       end
else
    begin
         if ((month >= 0) AND (month <= 11))
            then
                begin
                      fmonth := MonthA[month];
                      writeln(fmonth);
            end
          else
              writeln('Please Enter Valid Charactor');
    end;
{END}


monthtotal:=MonthC[month];



clrscr;
writeln('Please enter month''s First Day from codelist');


{Loop for the Day codes display}
{START}
for i := 0 to 6 do
    begin
        writeln(i,' => ',DayA[i]);
    end;
{END}

writeln('');
writeln('Please enter month''s First Day from codelist');

readln(day);            {Get current month from user}
writeln('');

{Error handeling for getting current day from user}
{START}
if (day < 0)  OR (day >= 7)
   then
       begin
            repeat
                  writeln('Please enter month''s First Day from codelist');

                  readln(day);
            until ((day >= 0) AND (day <= 6));
            fday := DayA[day];
            writeln(fday);
       end
else
    begin
         if ((day >= 0) AND (day <= 6))
            then
                begin
                      fday := DayA[day];
                      writeln(fday);
            end
          else
              writeln('Please Enter Valid Charactor');
    end;

{END}


 firstdate:=1;






clrscr;


writeln('                  Calander 2009');
writeln('                     ',fmonth,'');
writeln('');
writeln('    Sun   Mon   Tue   Wed   Thu   Fri   Sat');
writeln('');
if(DayF[day]=0)
    then
        begin
             space:=0;
        end
else if(DayF[day]=1)
    then
        begin
             space:=4;
        end
else if(DayF[day]=2)
    then
        begin
             space:=9;
        end
else if(DayF[day]=3)
    then
        begin
             space:=14;
        end
else if(DayF[day]=4)
    then
        begin
             space:=19;
        end
else if(DayF[day]=5)
    then
        begin
             space:=24;
        end
else if(DayF[day]=6)
    then
        begin
             space:=29;
        end
else
    begin
         writeln('error');
    end;

write('':space);
for date:=1 to  monthtotal do
    begin

         write(date:6);

         day:=day+1;
         if(day>6)
            then
                begin
                     day:=0;
                     writeln('');
                end;
    end;



readln;
end.

Using Algorithm Genome Shot to sort numbers

Thu, 05 Nov 2009 21:16:53 -0700

How to create a program to sort numbers from 1 to 20 using principle of algorithm genome shot?
Note : numbers into array variable must random

Anyone please help me...

Re: Help!

Thu, 05 Nov 2009 09:13:22 -0700

: Thx for the help... but it seems like my pascal does not have a unit
: called timer...
:

That's why I posted the unit also (is right below the program)

Re: Help!

Thu, 05 Nov 2009 05:49:26 -0700

Thx for the help... but it seems like my pascal does not have a unit called timer...

Re: simple asterisk password program?

Wed, 04 Nov 2009 22:35:23 -0700

here's the completed code :

program asterisk;
uses wincrt;

var
  Ch    : Char;
  Pass  : String;
  count : integer;
begin
  Pass := '';
  count := 0;

  repeat
    Ch := ReadKey;
    if (Ch = #8) then
    begin
         write(ch);
         if (count <= 0) then begin Pass := Pass; end else
         if (count > 0) then begin Pass := Pass + Ch; end;
         dec(count);
    end else
    if (Ch in [#32..#126]) then
    begin
         Write('*');
         Pass := Pass + Ch;
         inc(count);
    end;
  until (Ch = #13);

  WriteLn;
  WriteLn('You Entered: ' + Pass);
end.

Re: Need some Help! on Record please..

Wed, 04 Nov 2009 21:19:08 -0700

Time permitting will go through your code and see what can I come up with...

Re: Record..

Wed, 04 Nov 2009 21:12:50 -0700

: Hiya.. sorry for toubling you guys again
: i would like to ask something about Record:
: what can i do to make the field of the record be variable?
:

: var file : string;
: 
: begin
:    readln(file);
:    student.file := 'HA';
: end.
:

:
: thanks you all you guys help ><"

I'm not sure what mean here...but, all fields of a record are variables of some sort... unless is declared as a const... Could you be more explicit ?

Re: Skidmarks how to Game made with Delphi & unDelphiX

Wed, 04 Nov 2009 20:58:50 -0700

: Hi there. I want to make skidmarks appear on a road when my car goes
: left or right. I'm using unDelphix as graphics library. I have no
: idea how to do this and I've searched the web but can't find
: anything relating to unDelphiX. Your help with code or tutorials is
: appreciated.
:

I would create some sprites resembling different skid marks. With proper placement (function to car and road movement) and design could look realistic enough... Or you could play with the road texture ( the cell just beneath the car ) by dynamically altering it. Simply painting a bunch of random black pixels where the tires are located relative to the texture at each frame. This would look the best, but I'm not sure if is possible to do with unDelphiX....

Re: Help!

Wed, 04 Nov 2009 20:29:06 -0700

: This may seem like a stupid question but I want to allow the user to
: input something like s:char; s:=readkey; within a time limit.
: If the user pressed something withing... lets say 10 seconds then
: s:=readkey, but if pascal has been waiting for an input for more the
: 10 seconds then the program should stop asking for that variable.
: How can this be done?
:

Here's one solution suitable for rough timing, the resolution being 1/18.2 secs, hooks on Int28:

{Compiler TP/BP 7}

program timed_input;
uses timer,crt;

var s:char;
    trig:boolean;

begin
 setup_timer;
 writeln('Press Esc to quit. Setting timer to 10 sec',#13#10);
 repeat
  _timer_[1]:=182; { set timer to roughly 10 secs }
  trig:=false;
  writeln(#13#10,'Awaiting input...');
  repeat
   if keypressed then begin
    s:=readkey;
    _timer_[1]:=0;
    trig:=true;
   end;
  until (_timer_[1]=0);
  if trig then writeln(' ',s,' was pressed. Setting timer to 10 sec')
          else writeln('Time''s up ! Resetting timer to 10 sec');
 until s=#27;
 shutdown_timer;
end.

{Countdown timer functions}
unit timer;

interface
uses dos;
var _timer_:array[1..9] of longint; {1..8 user, 9 counts  how many times the }
                                    {interrupt was called                    }
    old_28int:procedure;

procedure setup_timer;
procedure shutdown_timer;
procedure __timer__;interrupt;



implementation
{$f+}
procedure __timer__;            {This interrupt is called 18.2 times/second}
 var i:byte;                    {Not so precise, but simple :)             }
 begin
  for i:=1 to 8 do
   if _timer_[i]>0 then dec(_timer_[i]);
  inc(_timer_[9]);
  inline($9c); {pushf <-- push flags}
  old_28int; 
 end;
{$f-}

procedure setup_timer;
 begin
  _timer_[9]:=0;
  getintvec($1c,@old_28int);
  setintvec($1c,addr(__timer__));
 end;

procedure shutdown_timer;
 begin
  setintvec($1c,addr(old_28int));
 end;

begin
 _timer_[1]:=0; { 18.2 <-> 1 Sec}
 _timer_[2]:=0;
 _timer_[3]:=0;
 _timer_[4]:=0;
 _timer_[5]:=1092;     {  1 min } { Preset values }
 _timer_[6]:=3276;     {  3 min }
 _timer_[7]:=5460;     {  5 min }
 _timer_[8]:=10920;    { 10 min }
 _timer_[9]:=0;
end.