1. Welcome to TechPowerUp Forums, Guest! Please check out our forum guidelines for info related to our community.

Basic Pascal

Discussion in 'Programming & Webmastering' started by 1nf3rn0x, May 29, 2012.

  1. 1nf3rn0x

    1nf3rn0x

    Joined:
    Sep 15, 2009
    Messages:
    2,032 (1.07/day)
    Thanks Received:
    361
    Hi guys. At school we just started some pascal programming and our teacher has told us to try do it on our own at first. I'm 15 and have no background in programming. These are some questions we were given.

    All to be done with pascal! In bold is what I have done.


    1 The program should ask for the user’s personal details, including fi rst name, family name, birth date, favourite singer, favourite movie actor, then display details on the screen like this:
    First name:
    Family name:
    Birth date:
    Favourite singer:
    Favourite movie actor:
    (Have not answered this yet)

    1 Write an assignment statement that assigns your own name to a string variable and prints out the message ‘Hello, yourname!’

    VAR
    fname : string;
    Write(“What is your name?”);
    Readln (fname);
    Write (“Hello “ ,fname, “!”)


    2 Write an assignment statement that assigns the first letter of both your first and second names to character variables and then prints out a greeting using your initials only: ‘Hello, XX!’

    VAR
    fname: string;
    sname: string;
    Write(“What is you first and last name?”);
    Read

    This is where I am confused. :eek:

    And this I have not yet gotten up to.
    3 Write an assignment statement that assigns your birth date to a date variable. Next write a function which calculates the number of days that have passed from the birthdate to the present and finally prints out the
    message ‘Hello, your name! You are xx days old!’

    And help would be greatly appreciated! :D
     
  2. Vinska

    Vinska

    Joined:
    Jul 23, 2011
    Messages:
    1,419 (1.16/day)
    Thanks Received:
    1,259
    Location:
    Kaunas, Lithuania
    ooh! I ditched this B&D language as soon as I passed the CS exam / graduated from highschool. Hehe!

    Nonetheless, I will try to help You, given I manage to remember it ;]
     
    1nf3rn0x says thanks.
    Crunching for Team TPU
  3. 1nf3rn0x

    1nf3rn0x

    Joined:
    Sep 15, 2009
    Messages:
    2,032 (1.07/day)
    Thanks Received:
    361
    Thanks! I know for the second one, Left (1) should be used. But I'm not sure how to word it out. :eek:
     
  4. okidna

    okidna

    Joined:
    Jan 2, 2012
    Messages:
    474 (0.45/day)
    Thanks Received:
    351
    Location:
    Indonesia
    Every string variable is an array of chars.

    Example :
    You have fname variable, containing "Edward".
    So fname[1] = "E", fname[2] = "d", fname[3] = "w", and so on.

    Something like this :

    PHP:
    uses crt;

    var
    fnamesname string;

    begin
    writeln
    ("What is your first name?");
    readln(fname);
    writeln("What is your last name?");
    readln(sname);
    writeln("Hello, ",fname[1], sname[1], "!");
    end.
    or you can use leftstr(string,n), this function return a string from the leftmost position.

    Example :
    You have fname variable, containing "Edward".
    leftstr(fname,1) will return "E",
    leftstr(fname,3) will return "Edw",
    leftstr(fname,5) will return "Edwar", etc.

    As for date function you can use GetDate function (don't forget to add dos uses).

    PHP:
    procedure GetDate(var YearMonthDayDayofWeekWord); 
    Get user birthday, get today's date, calculate the difference and convert to days. Something like that, I'm sure you can figure this one out :D.
     
    1nf3rn0x says thanks.
  5. Drone

    Drone

    Joined:
    Sep 1, 2010
    Messages:
    2,840 (1.83/day)
    Thanks Received:
    1,595
    A tiny hint:

    In Pascal before the final end always use readln it will keep the working screen on
     
    1nf3rn0x says thanks.
  6. 1nf3rn0x

    1nf3rn0x

    Joined:
    Sep 15, 2009
    Messages:
    2,032 (1.07/day)
    Thanks Received:
    361
    Thankyou! :)
     
  7. Kreij

    Kreij Senior Monkey Moderator Staff Member

    Joined:
    Feb 6, 2007
    Messages:
    13,881 (4.87/day)
    Thanks Received:
    5,616
    Location:
    Cheeseland (Wisconsin, USA)
    Moved to programming forum.
    Memory lane ... I haven't written anything in Pascal since the '80's
     
  8. GSG-9

    GSG-9

    Joined:
    Feb 8, 2005
    Messages:
    1,683 (0.47/day)
    Thanks Received:
    145
    Location:
    Minneapolis, Mn
    I love all of you, and my pascal skills are limited to 3 assignments and lots of vodka. If you need help with Jquery/CSS/Html C# or .net let me know. :)

    P.S. Kreij where are you? I grew up in Green Bay and still consider it my home. On contract (loan) in the cities though.
     
  9. Kreij

    Kreij Senior Monkey Moderator Staff Member

    Joined:
    Feb 6, 2007
    Messages:
    13,881 (4.87/day)
    Thanks Received:
    5,616
    Location:
    Cheeseland (Wisconsin, USA)
    I'm out in the sticks near Montello, WI (Marqette County).
    I grew up in the Chicago area but have adopted WI as my real home.
    I taught myself Pascal when working for GE. Wrote various utilities and a SQA bug tracking database in Pascal while working at the MRI division.
    Feature creep caused it's demise and we converted it over to a 3rd party DBS system.

    Anyway, Pascal is an easy language to work in, I'm just surprised they still teach it as most companies that I know of are going with straight "C" or an OOP/Net language for just about everything.
     
  10. GSG-9

    GSG-9

    Joined:
    Feb 8, 2005
    Messages:
    1,683 (0.47/day)
    Thanks Received:
    145
    Location:
    Minneapolis, Mn
    Yeah its a mix of C# and .Net here.
     
  11. Chevalr1c

    Chevalr1c

    Joined:
    Sep 3, 2010
    Messages:
    3,292 (2.13/day)
    Thanks Received:
    1,460
    Location:
    NL, Europe
    I remembered being taught some basics in Pascal too, after that Delphi. I guess it is to get familiar with programming in general and not really about learning the language itself that much.
     
    Crunching for Team TPU
  12. Protagonist

    Protagonist

    Joined:
    Sep 7, 2010
    Messages:
    723 (0.47/day)
    Thanks Received:
    125
    I remember our project was to automate a car hire service, was straight A+ material easy,.... but down memory lane cant remember much of it tho a slight polish and it will all come back. Damn I and a friend of mine finished our project that was to take a month and even had time to make a game (Was a board game X/O) though i did like only 1/4 of the code and 100% testing while he did 3/4 of rest of the game code was running in his head like damn. He recently buzzed me and said we should make/ design a new game, i Told him i think most of my code skills are gone its been like 10 years since i wrote any serious code, But Oh well the game project currently in research stage we are checking out several game engines, to see what can suit us best, if we could get our hands on FOX Engine,... would be nice.

    @1nf3rn0x sorry i went off topic but this brings lots of memories..
     

Currently Active Users Viewing This Thread: 1 (0 members and 1 guest)

Share This Page