Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   

 WikiWiki   BlogBlog   SearchSearch   TuringTuring   Chat Room  MembersMembers 
 Kinematic Calculator
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Amarylis
PostPosted: Fri Mar 09, 2012 9:28 am   Post subject: Kinematic Calculator
Not really as practical as it could be, it was just something I made cuz I was too lazy to do all the physics calculations...



Turing:


/*
 * Kinematics Calculator
 * Made by A. Prado
 * December 9th 2011
 * Made for the SPH3U1 Course
 */


/*
 * Import statements
 */

import GUI

/*
 * <-- Variable declarations -->
 */


var font : int
var dtime, displacement, finalvelocity, inicialvelocity, acceleration, dtime1, dtime2 : real
var choice, ch : string (1)
var width, size : int
var decimals : nat
var chars : array char of boolean
var failsafe : string


% <-- End of Variable Declarations -->







/*
 * <-- Procedure Declarations -->
 */


procedure Title (fnt, fnt2 : string)
    cls
    GUI.SetBackgroundColour (66)
    font := Font.New ("Lucida Calligraphy:" + fnt)
    width := Font.Width ("Kinematics Calculator", font)
    Font.Draw ("Kinematics Calculator", (maxx div 2) - (width div 2), maxy - 40, font, black)
    Font.Free (font)
    font := Font.New ("Times New Roman:" + fnt2)
    width := Font.Width ("Copyright" + chr (169) + " Prado 2012", font)
    Font.Draw ("Copyright" + chr (169) + " Prado 2012", maxx - (width + 3), 5, font, black)
end Title


% <-- End of Procedure Declarations -->






%----------------------------------------------------------------------------------------------------------------------------------------------------------






/*
 * <-- Program -->
 */



View.Set ("graphics:639;399,nobuttonbar")
Title ("20", "8")
colourback (66)
Text.Locate (6, 3)
put chr (149) + " You will be given a choice for which 3 variables you have the value of."
Text.Locate (7, 3)
put chr (149) + " You will also tell the program to how many decimal places you want your         answer accurate to"
locate (18, 1)
put "Press any key to continue..." ..
getch (ch)


loop
    View.Set ("graphics:639;399,nobuttonbar")
    Title ("20", "8")
    size := Font.Width ("Acceleration, Displacement, Inicial Velocity", font)


    Draw.Box (30, 100, 340, 300, black)
    Draw.Line (50, 100, 50, 300, black)

    for i : 0 .. 9
        Draw.Line (30, 120 + i * 20, 340, 120 + i * 20, black)
        Font.Draw (intstr (i), 40, 285 - i * 20, font, black)
    end for


    Font.Free (font)
    font := Font.New ("Lucida Calligraphy:14")
    width := Font.Width ("Variables", font)
    Font.Draw ("Variables", 185 - (width div 2), 310, font, black)

    Font.Free (font)
    font := Font.New ("Times New Roman:12")

    width := Font.Width ("Time, Displacement, Inicial Velocity", font)
    Font.Draw ("Time, Displacement, Inicial Velocity", 198 - (width div 2), 285, font, black)
    width := Font.Width ("Time, Displacement, Final Velocity", font)
    Font.Draw ("Time, Displacement, Final Velocity", 198 - (width div 2), 265, font, black)
    width := Font.Width ("Time, Displacement, Acceleration", font)
    Font.Draw ("Time, Displacement, Acceleration", 198 - (width div 2), 245, font, black)
    width := Font.Width ("Time, Inicial Velocity, Final Velocity", font)
    Font.Draw ("Time, Inicial Velocity, Final Velocity", 198 - (width div 2), 225, font, black)
    width := Font.Width ("Time, Inicial Velocity, Acceleration", font)
    Font.Draw ("Time, Inicial Velocity, Acceleration", 198 - (width div 2), 205, font, black)
    width := Font.Width ("Time, Final Velocity, Acceleration", font)
    Font.Draw ("Time, Final Velocity, Acceleration", 198 - (width div 2), 185, font, black)
    width := Font.Width ("Displacement, Inicial Velocity, Final Velocity", font)
    Font.Draw ("Displacement, Inicial Velocity, Final Velocity", 198 - (width div 2), 165, font, black)
    width := Font.Width ("Displacement, Inicial Velocity, Acceleration", font)
    Font.Draw ("Displacement, Inicial Velocity, Acceleration", 198 - (width div 2), 145, font, black)
    width := Font.Width ("Displacement, Final Velocity, Acceleration", font)
    Font.Draw ("Displacement, Final Velocity, Acceleration", 198 - (width div 2), 125, font, black)
    width := Font.Width ("Inicial Velocity, Final Velocity, Acceleration", font)
    Font.Draw ("Inicial Velocity, Final Velocity, Acceleration", 198 - (width div 2), 105, font, black)



    Font.Draw ("Press the number corresponding to", 380, 285, font, black)
    Font.Draw ("the variables you have the value of", 380, 265, font, black)


    loop
        Input.KeyDown (chars)
        exit when chars ('0') or chars ('1') or chars ('2') or chars ('3') or chars ('4') or chars ('5') or chars ('6') or chars ('7') or chars ('8') or chars ('9')
    end loop


    loop
        Title ("20", "8")
        Font.Free (font)
        font := Font.New ("Times New Roman:12")
        width := Font.Width ("How many decimal places will your answer have?", font)
        Font.Draw ("How many decimal places will your answer have?", (maxx div 2) - width div 2 - 16, maxy div 2 + 77, font, black)
        locatexy ((maxx div 2) + width div 2 + 3, maxy div 2 + 75)
        get failsafe
        exit when strnatok (failsafe)
    end loop


    decimals := strnat (failsafe)
    View.Set ("graphics:300;200")
    colourback (66)
    Title ("14", "8")
    if chars ('0') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Displacement: " ..
        get displacement
        locate (6, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (7, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (7, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        acceleration := round (((2 * (displacement - (inicialvelocity * dtime))) / (dtime ** 2)) * (10 ** decimals)) / (10 ** decimals)
        locate (8, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        finalvelocity := round (((acceleration * dtime) + inicialvelocity) * (10 ** decimals)) / (10 ** decimals)
        locate (9, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
    elsif chars ('1') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Displacement: " ..
        get displacement
        locate (6, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (7, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (7, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        acceleration := round (((-2 * (displacement - (finalvelocity * dtime))) / (dtime ** 2)) * (10 ** decimals)) / (10 ** decimals)
        locate (8, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        inicialvelocity := round ((-1 * (acceleration * dtime) + finalvelocity) * (10 ** decimals)) / (10 ** decimals)
        locate (9, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
    elsif chars ('2') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Displacement: " ..
        get displacement
        locate (6, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        inicialvelocity := round ((((displacement - (0.5 * acceleration * (dtime ** 2))) / dtime) * (10 ** decimals))) / (10 ** decimals)
        locate (8, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        finalvelocity := round ((((displacement + (0.5 * acceleration * (dtime ** 2))) / dtime) * (10 ** decimals))) / (10 ** decimals)
        locate (9, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
    elsif chars ('3') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (6, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (7, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (7, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        displacement := round ((((finalvelocity + inicialvelocity) / 2) * dtime) * (10 ** decimals)) / (10 ** decimals)
        locate (8, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        acceleration := round (((finalvelocity - inicialvelocity) / dtime) * (10 ** decimals)) / (10 ** decimals)
        locate (9, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
    elsif chars ('4') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (6, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        finalvelocity := round (((acceleration * dtime) + inicialvelocity) * (10 ** decimals)) / (10 ** decimals)
        locate (8, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        displacement := round ((0.5 * (finalvelocity + inicialvelocity) * dtime) * (10 ** decimals)) / (10 ** decimals)
        locate (9, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
    elsif chars ('5') then
        locate (5, 2)
        put "Time: " ..
        get dtime
        locate (5, 2)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (6, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (6, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        inicialvelocity := round ((-1 * (dtime * acceleration - finalvelocity)) * (10 ** decimals)) / (10 ** decimals)
        locate (8, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        displacement := round ((finalvelocity + inicialvelocity) * 0.5 * dtime) * (10 ** decimals) / (10 ** decimals)
        locate (9, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
    elsif chars ('6') then
        locate (5, 2)
        put "Displacement: " ..
        get displacement
        locate (5, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (6, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (6, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (7, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (7, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        locate (8, 2)
        acceleration := round ((((finalvelocity ** 2) - (inicialvelocity ** 2)) / (2 * displacement)) * (10 ** decimals)) / (10 ** decimals)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        locate (9, 2)
        dtime := round ((((finalvelocity) - (inicialvelocity)) / (acceleration)) * (10 ** decimals)) / (10 ** decimals)
        put "Time: ", dtime : 20 : decimals, "s"
    elsif chars ('7') then
        locate (5, 2)
        put "Displacement: " ..
        get displacement
        locate (5, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (6, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (6, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        locate (8, 2)
        finalvelocity := round ((sqrt ((inicialvelocity ** 2) + 2 * acceleration * displacement)) * (10 ** decimals)) / (10 ** decimals)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        locate (9, 18)
        put - finalvelocity : 10 : decimals, "m/s"
        locate (10, 2)
        dtime1 := round (((finalvelocity - inicialvelocity) / acceleration))
        put "Time: ", dtime1 : 20 : decimals
        locate (11, 8)
        dtime2 := round (((-finalvelocity - inicialvelocity) / acceleration))
        put dtime2 : 20 : decimals
    elsif chars ('8') then
        locate (5, 2)
        put "Displacement: " ..
        get displacement
        locate (5, 2)
        put "Displacement: ", displacement : 12 : decimals, "m"
        locate (6, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (6, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        locate (8, 2)
        inicialvelocity := round ((sqrt ((finalvelocity ** 2) - 2 * acceleration * displacement)) * (10 ** decimals)) / (10 ** decimals)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (9, 20)
        put - inicialvelocity : 8 : decimals, "m/s"
        locate (10, 2)
        dtime1 := round (((finalvelocity - inicialvelocity) / acceleration))
        put "Time: ", dtime1 : 20 : decimals, "s"
        locate (11, 8)
        dtime2 := round (((finalvelocity + inicialvelocity) / acceleration))
        put dtime2 : 20 : decimals
    else
        locate (5, 2)
        put "Inicial Velocity: " ..
        get inicialvelocity
        locate (5, 2)
        put "Inicial Velocity: ", inicialvelocity : 8 : decimals, "m/s"
        locate (6, 2)
        put "Final Velocity: " ..
        get finalvelocity
        locate (6, 2)
        put "Final Velocity: ", finalvelocity : 10 : decimals, "m/s"
        locate (7, 2)
        put "Acceleration: " ..
        get acceleration
        locate (7, 2)
        put "Acceleration: ", acceleration : 12 : decimals, "m/s" + chr (170)
        locate (8, 2)
        dtime := round (((finalvelocity - inicialvelocity) / acceleration) * (10 ** decimals)) / (10 ** decimals)
        put "Time: ", dtime : 20 : decimals, "s"
        locate (9, 2)
        displacement := round ((((finalvelocity + inicialvelocity) / 2) * dtime) * (10 ** decimals)) / (10 ** decimals)
        put "Displacement: ", displacement : 12 : decimals, "m"
    end if
    locate (12, 1)
    put "Press any key to continue..." ..
    getch (ch)


    Title ("14", "8")
    Font.Free (font)
    font := Font.New ("Times New Roman:10")
    width := Font.Width ("Would you like to use this program again? (Y/N)", font)
    Font.Draw ("Would you like to use this program again? (Y/N)", maxx div 2 - width div 2, maxy div 2 - 10, font, black)
    loop
        Input.KeyDown (chars)
        exit when chars ('y') or chars ('n')
    end loop
    exit when chars ('n')
end loop


Kinematics calculator.t
 Description:

Download
 Filename:  Kinematics calculator.t
 Filesize:  14.65 KB
 Downloaded:  188 Time(s)
Sponsor
Sponsor
Sponsor
sponsor
Raknarg
PostPosted: Fri Mar 09, 2012 9:29 pm   Post subject: RE:Kinematic Calculator
I know this doesnt matter, but I can't help it.

Initial*
Amarylis
PostPosted: Fri Mar 09, 2012 9:41 pm   Post subject: RE:Kinematic Calculator
I misspell it every time, damn it Razz


Well, I remade this in C# (and ran a spell check that time), so I sorta abandoned this one a while ago.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 3 Posts ]
Jump to:   


Style:  
Search:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy