| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| subject: | PASCAL |
This message was originally addressed to ALL
and a carbon copy was sent to you.
----------------------------------------
Hello every body.
-
I faces some problem with my program wich i created.
i made this program by Turbo Pascal 7.
my problem is..
**************************************************************
* ID * NAME * MARK * RANK *
**************************************************************
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
**************************************************************
here i can make the begining of the Curser by this GOTOXY
but the reading become like that when i start to write
in the ID rank 844 i need to stop the reading when i enter 3 digit and
not accept more...
**************************************************************
* ID * NAME * MARK * RANK *
**************************************************************
* 443534543543545454353454354354353454353453454353454354545555
345435435435435435345435455 * * *
* * * * *
How i can create the Ending of the Curser for each rank in this table
and such as make the program just accept in ID rank just 5 digit
and in the NAME rank accept in the reading just 40 char..
**************************************************************
* ID * NAME * MARK * RANK *
**************************************************************
* 323 * MAJED DJFJFJ FJDJFJ DFJDFJFJD * 99999999 * A *
* * * * *
I tried to solve this problem.!.
Can any body tell me how i can do this....
Seconed probelm..
in the VAR section write this
Number:INTEGER;
and i write this command in the body of program.
READ(NUMBER);
if i enter a char. like this "dd" and not Number like "44" take me this
message "RUN-TIME ERROR" and exit form the program.
How i can make the program accept just Number and don't accept and Char.
--
Thank you for your Help.
--
With my BestRegrads.
Majed Al-Haj
---------------------------------
E-Mail:Majed.al-haj&jetnetbbs.com
cc: ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
--- Silver Xpress Mail System 5.4P1
--- PCBoard (R) v15.3/M 2
---------------
* Origin: þ JetNet BBS,Saudi Arabia þ (2:542/250)* Origin: þ [JetNet] System, Kingdom of Saudi Arabia, Jeddah þ (2:542/250) |
|
| SOURCE: echomail via exec-pc | |
Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.