Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
655+99
program calc; uses crt; label metka; var a,b,sum:real; symbol1,symbol2,symbol3:char; begin clrscr; writeln; writeln('vvedite deystvie 4ere3 probel naprimer 4 - 2'); writeln; writeln; metka: readln(a,symbol1,symbol2,symbol3,b) ; writeln; case symbol2 of '+':sum:=a+b; '-':sum:=a-b; '*':sum:=a*b; '/':sum:=a/b; else begin writeln('nekorrektno vvedeno deystvie, vvedite pravilno'); goto metka; end; end; writeln('otvet:',sum:6:2,'.'); writeln; writeln('************************** ********** ****************************'); readln; end.
run
|
edit
|
history
|
help
1
Case where use of default constructor ( this() ) is mandatory
learning1
asxsdf
Delegaty Func
jjj
asxs xscsss
c->a
Sum Matrix Row
asxsdf
https://www.fxp.co.il/showthread.php?t=21125499