SitePoint Sponsor

User Tag List

Results 1 to 3 of 3
  1. #1
    SitePoint Addict SniperUK's Avatar
    Join Date
    Jul 2000
    Location
    UK
    Posts
    367
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I just started to learn that language can some one help me with this is is a simple time tabel program I want it to repeat the process after it has answered the first time!
    how can i do this heres the code

    PROGRAM Timetabel;
    USES wincrt;
    VAR
    table :integer;
    count :integer;
    result :integer;
    BEGIN
    WRITE('Enter Time Tabel: ');
    READLN(table);
    WRITELN(table,'Times Table');
    FOR count:=1 TO 10 DO
    BEGIN
    result:=count*table;
    WRITELN(count,'*',table,'=',result);
    END;
    WRITELN;
    END.

    also what program do i use so that i can make it a exe file?

    Thanks also can u have a look at http://www.loisandclark.net
    in netscape to see that it looks good! Thanks for your HELP!

  2. #2
    psycho
    Join Date
    May 2000
    Location
    London
    Posts
    283
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I used to do a bit of Pascal, forgotten most if it though.

    But to make the .exe, there is a feature built into the Pascal builder thing which lets you do it. It's on one of the menus.

    james

  3. #3
    SitePoint Member
    Join Date
    Aug 2000
    Posts
    2
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    PROGRAM Timetabel;
    USES wincrt;
    VAR
    table :integer;
    count :integer;
    result :integer;
    c:char;
    BEGIN
    c:='y';
    while (c='y') or (c='Y') do
    begin
    WRITE('Enter Time Tabel: ');
    READLN(table);
    WRITELN(table,'Times Table');
    FOR count:=1 TO 10 DO
    BEGIN
    result:=count*table;
    WRITELN(count,'*',table,'=',result);
    END;
    WRITELN;
    writeln('Do you want to cont.?');
    readln(c);
    end;

    END.


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •