Learn about longtime user Rowby Goren and his great contributions to the site. We explore his method for posing questions that are likely to yield a solution, and take a look at how his career transformed from a Hollywood writer to a website entrepreneur.
how do u solve this problem
I had this question after viewing Pascal Helo.
i had this script
unit hospital;
interface
implementation
uses crt;
Var
name:string;
typeofroom,tp,tv,nory1,nor
month, day, year, daysstayed,roomcharge,tpch
const
pc=125;
sc=95;
Wc=75;
Tvc=3.50;
Tpc=1.75;
begin
//prompting
writeln('please enter the patients''s name':44);
readln(name);
writeln('please enter the number of days stayed in the hospital':63);
readln(daysstayed);
writeln('please write the month':31);
readln(month);
writeln('please write the day':29);
readln(day);
writeln('pelase enter the year':30);
readln(year);
writeln('please enter y or n for which typeofroom you used. P for private, S for semi private, and W for ward':57);
readln(typeofroom);
Case typeofroom of 'P':roomcharge:=(pc*daysst
's':roomcharge:=(sc*daysst
'w':roomcharge:=(wc*daysst
end;
writeln('enter y or n for yes or no if they used the telephone':62);
readln(nory1);
Case nory1 of 'Y':tpcharge:=(tpc*dayssta
'N':tpcharge:=0;
end;
writeln('enter y or n for yes or no if they used the television':63);
readln(nory2);
Case nory2 of 'Y':tvcharge:=Tvc*daysstay
'N':tvcharge:=0;
end;
//computing
Totalcharge:=roomcharge+tv
end.
and the error Error: Incompatible types: got "S80REAL" expected "LONGINT"
2 times
plz help me fix it
thanx
i had this script
unit hospital;
interface
implementation
uses crt;
Var
name:string;
typeofroom,tp,tv,nory1,nor
month, day, year, daysstayed,roomcharge,tpch
const
pc=125;
sc=95;
Wc=75;
Tvc=3.50;
Tpc=1.75;
begin
//prompting
writeln('please enter the patients''s name':44);
readln(name);
writeln('please enter the number of days stayed in the hospital':63);
readln(daysstayed);
writeln('please write the month':31);
readln(month);
writeln('please write the day':29);
readln(day);
writeln('pelase enter the year':30);
readln(year);
writeln('please enter y or n for which typeofroom you used. P for private, S for semi private, and W for ward':57);
readln(typeofroom);
Case typeofroom of 'P':roomcharge:=(pc*daysst
's':roomcharge:=(sc*daysst
'w':roomcharge:=(wc*daysst
end;
writeln('enter y or n for yes or no if they used the telephone':62);
readln(nory1);
Case nory1 of 'Y':tpcharge:=(tpc*dayssta
'N':tpcharge:=0;
end;
writeln('enter y or n for yes or no if they used the television':63);
readln(nory2);
Case nory2 of 'Y':tvcharge:=Tvc*daysstay
'N':tvcharge:=0;
end;
//computing
Totalcharge:=roomcharge+tv
end.
and the error Error: Incompatible types: got "S80REAL" expected "LONGINT"
2 times
plz help me fix it
thanx
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
DISCLAIMER: I have ABSOLUTELY NO knowledge of Pascal.
Looks like a simple case of 'Numeric overflow' to me.
Why not just try to change from integer to longint and give it a go!
I am very well aware of the fact that it is an overkill!
Otherwise declare all your t? variables on a separate line with longint.
Also, are you sure none of the input are having decimal digits?
Looks like a simple case of 'Numeric overflow' to me.
Why not just try to change from integer to longint and give it a go!
month, day, year, daysstayed, roomcharge, tpcharge, tvcharge, totalcharge : longint;
I am very well aware of the fact that it is an overkill!
Otherwise declare all your t? variables on a separate line with longint.
Also, are you sure none of the input are having decimal digits?
why do you put :nnn at the end of the writeln ???
https://www.freepascal.org/docs-html/rtl/system/writeln.html
i can't ever remembering seeing that syntax
and i've worked with pascal since 1980
wont work with longint either.
because you are producing a real in some cases with multiplying with these consts
Tvc=3.50;
Tpc=1.75;
change the result vars in those variables to real
tvcharge, ...
btw, pascal is not C++, you don't need () all over
and to make it a little more userfriendly ... ignore the case
https://www.freepascal.org/docs-html/rtl/system/writeln.html
i can't ever remembering seeing that syntax
and i've worked with pascal since 1980
wont work with longint either.
because you are producing a real in some cases with multiplying with these consts
Tvc=3.50;
Tpc=1.75;
change the result vars in those variables to real
tvcharge, ...
btw, pascal is not C++, you don't need () all over
's': roomcharge := sc * daysstayed;
and to make it a little more userfriendly ... ignore the case
readln(typeofroom);
typeofroom := uppercase(typeofroom);
Case typeofroom of 'P': // ... roomcharge
i have a lot more solutions
but from the post I see, you are learning Delphi ... the good old fashioned way, starting from console
what other solution do you expect ?
but from the post I see, you are learning Delphi ... the good old fashioned way, starting from console
what other solution do you expect ?
Premium Content
You need an Expert Office subscription to comment.Start Free Trial