Ad:

Pascal and Delphi Discussion Thread
Marked Solved
Views: 1776

Apr 24th, 2007

Pascal : Cant see why program wont run, exits with error.

Expand Post »

Im failing to see what Ive done wrong, the syntax is right but the program wont run for me when I enter in a the else statement works tho....

Pascal and Delphi Syntax (Toggle Plain Text)
program Word (input, output);
uses crt;
   var
      number : integer;
      letter: string;
   begin
      {------------Introduction & Setup------------------}
      clrscr;
      {------VERY User-Friendly------}
      Repeat
         writeln('Whats the right letter? ');
         readln(number);
         str(number,letter);
         if (letter ='a') then
            writeln('Correct Answer ')
         else
            writeln(' a needs to be entered');
      Until (letter = 'a');
      {-------------------Printing Results------------------}
      writeln('The answer is ', letter);
      readln;
   end.
program Word (input, output);
uses crt;
   var
      number : integer;
      letter: string;
   begin
      {------------Introduction & Setup------------------}
      clrscr;
      {------VERY User-Friendly------}
      Repeat
         writeln('Whats the right letter? ');
         readln(number);
         str(number,letter);
         if (letter ='a') then
            writeln('Correct Answer ')
         else
            writeln(' a needs to be entered');
      Until (letter = 'a');
      {-------------------Printing Results------------------}
      writeln('The answer is ', letter);
      readln;
   end.

Any ideas? Im guessing its something stupid, I just cant seem to see it at the moment.

Last edited by adotl; Apr 24th, 2007 at 7:38 pm.

Similar Threads

my program is compiled.but on run that i have message "Exception in thread "main" jav in Java
build but wont run... hmmm please help. in C++
Dell wont run in Troubleshooting Dead Machines
Script wont run on different computer in Python
My c++ cgi-bin program wont allow access to files in C++

adotl

Reputation Points: 17

Solved Threads: 0

Light Poster

Offline

31 posts
since Apr 2007

Permalink

Apr 25th, 2007

Re: Pascal : Cant see why program wont run, exits with error.

You didn't say what Pascal you are using, but typically readln expects a text variable and you are passing an integer. If the point is to read in an ASCII code and then print out the character, you need to read in the text, convert it to an integer and then convert the integer to the character.

Terry Robinson

Reputation Points: 12

Solved Threads: 1

Light Poster

Offline

27 posts
since Apr 2007

Permalink

Apr 25th, 2007

Re: Pascal : Cant see why program wont run, exits with error.

Im using Free Pascal and thanks I hadnt noticed that.

There was another work around that I did with just setting the value as string as when a number is entered the program doesnt crash unlike with the reverse of a string being entered when the variable is an integer.

adotl

Reputation Points: 17

Solved Threads: 0

Light Poster

Offline

31 posts
since Apr 2007

Permalink

Apr 25th, 2007

Re: Pascal : Cant see why program wont run, exits with error.

This is the solution I came up with a few minutes ago....

Pascal and Delphi Syntax (Toggle Plain Text)
program Word (input, output);
uses crt;
   var
      letter: string;
   begin
      {------------Introduction & Setup------------------}
      clrscr;
      {------VERY User-Friendly------}
      Repeat
         writeln('Whats the right letter? ');
         readln(letter);
         if (letter = 'a') OR (letter = 'b') then
            writeln('Correct Answer ')
         else
            writeln(' a needs to be entered');
      Until (letter =UPCASE('a')) OR (letter = 'b');
      {-------------------Printing Results------------------}
      writeln('The answer is ', letter);
      readln;
   end.
program Word (input, output);
uses crt;
   var
      letter: string;
   begin
      {------------Introduction & Setup------------------}
      clrscr;
      {------VERY User-Friendly------}
      Repeat
         writeln('Whats the right letter? ');
         readln(letter);
         if (letter = 'a') OR (letter = 'b') then
            writeln('Correct Answer ')
         else
            writeln(' a needs to be entered');
      Until (letter =UPCASE('a')) OR (letter = 'b');
      {-------------------Printing Results------------------}
      writeln('The answer is ', letter);
      readln;
   end.

adotl

Reputation Points: 17

Solved Threads: 0

Light Poster

Offline

31 posts
since Apr 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: Pascal : Variable for both integer & string?

Next Thread in Pascal and Delphi Forum Timeline: help me plssss

DaniWeb Message

Cancel Changes

User Name
Password