Solved

Using Turbo Pascal

Posted on 2003-11-11
5
809 Views
Last Modified: 2008-02-26
Hello,
>I am new to Pascal programming and the Turbo Pascal compiler ver. 7.0. For
>a program I've compiled, an outline of the source code I'm using goes like this:-
>....
>BEGIN
>
>  Readln (some input);
>  some processing work...
>  Writeln:(some output);
>END;
>
>There's no problem with my source code, just that while running the
>program, after entering the input data, pressing carriage return wouldn't
>bring about the output supposed to be displayed on screen. Instead the
>program automatically terminates and I'll have to rerun the program again
>in order to view the output produced from my previous input. What should I need to do to remedy this problem? Thanks.
0
Comment
Question by:waifun
  • 2
  • 2
5 Comments
 
LVL 11

Expert Comment

by:bcladd
ID: 9727632
You are running inside the Turbo Pascal development environment? This has been a long time but there is a Windows menu and if you select the output window you should be able to look at it without rerunning the program. Try F5 (or was it Alt-F5...think that was launch shell commmand).

Alternative is to put a getch() command at the end of the program so the program doesn't terminate until you press another key. That way the output window retains the focus.

-bcl
0
 
LVL 1

Accepted Solution

by:
JackNaif earned 50 total points
ID: 9727687
getch()  mmmm that sounds like C language.

Before the last "end" put:

write('Any key to finish');
readkey; { You're going to look this one up in the help 'cause I can't remember in which unit it is, and I don't have TP here. }

Hope it helps.

Jack
0
 
LVL 11

Expert Comment

by:bcladd
ID: 9727722
ReadKey! That is it. Too long away from Pascal. It is in CRT in 5.5 (can't say for 7.0) and Alt-F5 is the output window toggle (had to fire up TP to see).

Brings back memories. Obviously _fuzzy_ memories but memories all the same.

Good catch, Jack.

-bcl
0
 
LVL 1

Expert Comment

by:JackNaif
ID: 9727775
Oh yes! That old and beloved blue screen with yellow chars!

So different from those other blue screens W95 got us used to! =)
0
 

Author Comment

by:waifun
ID: 9728952
To bcl,
It didn't work with getch()command though I didn't get any compiler's error messages. I have also tried Alt+F5 before but it just didn't work out the way I wanted.The idea with using Readkey was good as I just don't expect the window to disappear right away after typing in the input, before the output can be seen displayed.

Thanks alot...
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
map interface methods 3 52
Line meaning 9 75
Python - ImportError: No module named 'urllib2' 2 98
delphi parse string to params 3 81
Navigation is an important part of web design from a usability perspective. But it is often a pain when it comes to a developer’s perspective. By navigation, it often means menuing. This is less theory and more practical of how to get a specific gro…
Go is an acronym of golang, is a programming language developed Google in 2007. Go is a new language that is mostly in the C family, with significant input from Pascal/Modula/Oberon family. Hence Go arisen as low-level language with fast compilation…
The goal of the video will be to teach the user the difference and consequence of passing data by value vs passing data by reference in C++. An example of passing data by value as well as an example of passing data by reference will be be given. Bot…
The viewer will learn how to use the return statement in functions in C++. The video will also teach the user how to pass data to a function and have the function return data back for further processing.

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now