🚀 go-pugleaf

Thanks for Your reply, Starlet!

The Scarlet Manuka wrote:

> Program Argun;

> var
>   x: integer;
>
> begin
>   if ParamCount = 0 then
>     doSyntax;
>
>   for x := 1 to ParamCount do
>     begin
>       if ParamStr(x) = '-C' then
>         doLongDistanceMobileCall;
>       if ParamStr(x) = '-N' then
>         doNuclearPower;
>       if ParamStr(x) = '-O' then
>         doOil;
>       if ParamStr(x) = '-R' then
>         doRenewables;
>       if ParamStr(x) = '-S' then
>         doSaving;
>       if ParamStr(x) = '-V' then
>         doVote;
>       if ParamStr(x) = '-W' then
>         doWindPower;
>       {etc}
>     end
> end.
>
> Slightly more efficient would be:
>   for x := 1 to ParamCount do
>     begin
>       if ParamStr(x) = '-C' then
>         doLongDistanceMobileCall
>       else if ParamStr(x) = '-N' then
>         doNuclearPower
>       else if ParamStr(x) = '-O' then
>         doOil  {etc}
>
> Note that the semicolons have been removed, since the "else" means we are
> continuing in the same statement, not starting a new statement.
>
> Better would be to have another couple of variables and do something like
> this:
>
> var
>   x: integer;
>   arg: string;
>
> begin
>   ...
>   for x := 1 to ParamCount do
>     begin
>       arg := ParamStr(x);
>       if (length(arg) = 2) and (arg[1] = '-') then
>         case arg[2] of
>           'C': doLongDistanceMobileCall;
>           'N': doNuclearPower;
>           ...
>           'W': doWindPower;
>         end
>     end
> end.

Can I use in Pascal something like this case- command (Note: many case-
characters)?
...
   case arg of
          '-N': doNuclearPower;
...
And of cource all other arguments same way.


> You can avoid case sensitivity by using UpCase(arg[2]) instead of arg[2]
> above.
>
> > void doLongDistanceMobileCall()
> > {
> >    printf("Run doLongDistanceMobileCall() !\n");
> >    printf("Please, call your partner to buy to you 3G mobile phone!\n");
> >
> >    // etc
> > }
>
> function doLongDistanceMobileCall;
> begin
>   writeln("Run doLongDistanceMobileCall !");
>   writeln("Please, call your partner to buy to you 3G mobile phone!");
> end;
>
> Other functions similarly. Note that your main program needs to come
> *after* all your function definitions.

I will write whole program again, with yours very good advices, thanks. You
must be a teacher or a professional.


With Best Regards

Veli Suorsa
---
"People must believe to the future to be able to live!"
---------------------------------- J.V.Snellman, 1890.

Oulu, FINLAND
Mailto:VJSuorsa@Surfeu.Fi
http://members.surfeu.fi/veli.suorsa/