Új hozzászólás Aktív témák

• #85 MasOyama őstag

  Új Válasz 2004-06-04 16:37:19 #85

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  MasOyama

  őstag

  Ennyi lenne. Kicsit rövidítettem. De persze még nincs kész:
  
  program otoslotto;
  uses newdelay,crt,graph;
  var szamok,tszamok,tippek : array [0..4] of integer;
  i,j,k,talalat,szam : integer;
  a,b : boolean;
  hanyszor,huzasokszama,befektetett : longint;
  egytalalat,kettalalat,haromtalalat,negytalalat,ottalalat : integer;
  nyeremeny :longint;
  
  begin
  randomize;
  clrscr;
  talalat := 0;
  kettalalat:=0;
  haromtalalat:=0;
  negytalalat:=0;
  ottalalat:=0;
  befektetett:=0;
  nyeremeny:=0;
  writeln('Hany huzss legyen?');
  readln(huzasokszama);
  for i:=0 to 4 do
  begin
  repeat
  a:=false;
  writeln('K‚rem adja meg ',i+1,' szamot!');
  readln(tippek);
  if (tippek > 90) OR (tippek < 1) then
  begin
  textcolor(red);
  writeln('Hibas szamot adott meg. A megadhato szamok: 1-90-ig.');
  a := true;
  textcolor(7);
  end;
  if i>0 then for j:=0 to i-1 do
  begin
  if tippek = tippek[j] then
  begin
  textcolor(red);
  writeln('Mar van ilyen szam!');
  a:= true;
  textcolor(7);
  end;
  end;
  until a=false;
  end;
  for hanyszor:=1 to huzasokszama do begin
  for i:=0 to 4 do
  begin
  repeat
  a:=false;
  szamok := random(90)+1;
  if i>0 then for j:=0 to i-1 do
  begin
  if szamok = szamok[j] then
  begin
  a:=true;
  end;
  end;
  until a=false;
  end;
  for i:=0 to 4 do
  begin
  for j:=0 to 4 do
  begin
  if szamok = tippek[j] then
  begin
  tszamok[talalat] := szamok;
  talalat:=talalat+1;
  end;
  end;
  end;
  write('Sorsolt szamok:');
  for i:=0 to 4 do
  begin
  write(szamok,' ');
  end;
  writeln;
  if talalat=2 then kettalalat:=(kettalalat+1);
  if talalat=3 then haromtalalat:=(haromtalalat+1);
  if talalat=4 then negytalalat:=(negytalalat+1);
  if talalat=5 then ottalalat:=(ottalalat+1);
  talalat:=0;
  end;
  nyeremeny:=kettalalat*700+haromtalalat*9600+negytalalat*500000+ottalalat*100000000;
  writeln(nyeremeny);
  writeln('Kettalalat: ',kettalalat,'');
  writeln('Haromtalalat: ',haromtalalat,'');
  writeln('Negytalalat: ',negytalalat,'');
  writeln('Ottal lat: ',ottalalat);
  befektetett:=huzasokszama*150;
  writeln('A befektetett osszeg: ',befektetett,'');
  writeln('A nyeremenyed: ',nyeremeny);
  writeln('Esely a kettesre: 1:',huzasokszama/kettalalat:2:0,'');
  writeln('Esely a harmasra: 1:',huzasokszama/haromtalalat:2:0,'');
  writeln('Esely a negyesre: 1:',huzasokszama/negytalalat:2:0,'');
  writeln('Esely az otosre: 1:',huzasokszama/ottalalat:2:0,'');
  readln;
  end.
  
  [Szerkesztve]

Új hozzászólás Aktív témák