home *** CD-ROM | disk | FTP | other *** search
/ Packard Bell - Internet on a CD / internet on a cd.cdr / Internet / sites / HTML_1 / multiply.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-16  |  1.5 KB  |  49 lines
  1. module multiply; 
  2.  
  3. #include <stddefs_p.h>
  4. #include "./cgi-pascal.h"
  5.  
  6. function atoi(var vi: array [lb..ub:integer] of char): integer; extern c;
  7.  
  8. procedure cgi_main(var ci: cgi_ptr; var params: form_pointer);
  9.  
  10.   var
  11.      ai, al, bi, bl, ri, rl, c: integer;
  12.      a, b, r, s: string;
  13.  
  14.     begin 
  15.           s := 'text/html' + char(0);
  16.       c := print_mimeheader(s);
  17.       if (params <> nil ) then
  18.              begin  
  19.            write('<html>The result of your multiply request:<p>');
  20.                s:= 'a' + char(0);
  21.                al:= parmval(params,s,a);
  22.                ai:= atoi(a);
  23.                s:= 'b' + char(0);
  24.                bl:= parmval(params,s,b);
  25.            bi:= atoi(b);
  26.                s:= 'round' + char(0);
  27.                rl:= parmval(params,s,r);
  28.            ri:= atoi(r);
  29.                c := ((ai * bi) div ri) * ri;
  30.                write( a:al,' times ',b:bl,' = ',c );flush;
  31.            write('</html>');flush;
  32.              end
  33.           else    
  34.          begin
  35.            writeln('<html>');
  36.                writeln('Please type in the two numbers which you want to multiply.');
  37.                writeln('<p><form method="post" action="mul">');
  38.                writeln('<input name="a"><p>');
  39.                writeln('<input name="b"><p>');
  40.                writeln('Round down to <SELECT name="round"><OPTION SELECTED> 1');
  41.                writeln('<OPTION> 10 <OPTION> 100 </SELECT><p>');
  42.                writeln('<input type="submit">');
  43.                writeln('</form></html>');
  44.            writeln('</html>');
  45.          end;
  46.         end;{cgi_main}
  47.  
  48.  
  49.