fork(3) download 
  1. program kowal;
  2.  
  3. var
  4.    tab : array [0..24] of byte;
  5.    getsuc,newsuc,lvl,fortune,d:integer;
  6.  
  7. BEGIN
  8. randomize;
  9. {repeat}
  10. tab[0]:=100;
  11.     tab[1]:=100;
  12.     tab[2]:=100;
  13.     tab[3]:=75;
  14.     tab[4]:=100;
  15.     tab[5]:=45;
  16.     tab[6]:=90;
  17.     tab[7]:=30;
  18.     tab[8]:=75;
  19.     tab[9]:=15;
  20.     tab[10]:=45;
  21.     tab[11]:=38;
  22.     tab[12]:=8;
  23.     tab[13]:=30;
  24.     tab[14]:=8;
  25.     tab[15]:=23;
  26.     tab[16]:=5;
  27.     tab[17]:=15;
  28.     tab[18]:=5;
  29.     tab[19]:=12;
  30.     tab[20]:=3;
  31.     tab[21]:=9;
  32.     tab[22]:=3;
  33.     tab[23]:=8;
  34.     tab[24]:=0;
  35.  
  36.  
  37. getsuc:=0;
  38. newsuc:=0;
  39. lvl:=0;
  40. fortune:=0;
  41. d:=0;
  42.  
  43.    read(lvl,fortune);
  44.  
  45.       if lvl<24 then 
  46.       begin
  47.          getsuc:=random(99);
  48.          newsuc:=tab[lvl]*fortune;
  49.  
  50.             if getsuc <= newsuc then
  51.             begin
  52.                d:=random(3)+1;
  53.                lvl:=lvl+d;
  54.                if lvl > 24 then lvl:=24;
  55.             end;
  56.  
  57.             if getsuc >= newsuc then
  58.             begin
  59.                d:=random(2)+1;
  60.                lvl:=lvl-d;
  61.             end;
  62.       end;
  63.  
  64.    writeln('poziom itemu=',lvl);
  65.  
  66. {until eof;}
  67. END.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
Standard input is empty
stdout 
poziom itemu=-1
https://ideone.com/cm756p
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!