Hogyan írhatnám meg ezt a programot Pascalban? Sajnos még kezdő vagyok.
Egy lottó program, amely bekér 5 számot a felhasználótól, majd megvizsgálja, hogy van-e találat. 1-90-ig kérhet be számokat, és a találatok esélye 1:43.949.268 - telitalálat, 1:103.410 - négy találat, 1:1.231 - három találat, 1:45 - kettő találat. Ha 90-nél nagyobbat írunk be, akkor újra bekéri. Ha beírtam az 5 számot, kiírja, hogy hány találat volt. A végén megkérdezi, hogy szeretnék-e megint beírni 5 számot.
Erre jutottam eddig:
program
lotto;
uses
crt;
var
tomb:array[1..5] of byte;
i:byte;
begin
clrscr;
for i:=1 to 5 do
begin
writeln('Adja meg a(z) ',i,' számot!');
readln(tomb[i]);
end;
válasza:Hát ez eddig nem túl sok.
Minden bekérésnél meg kéne vizsgálni, hogy a megadott szám:
- 1 és 90 közötti-e
- nem volt-e már korábban
- ha igényes akarsz lenni, hogy egyáltalán szám-e, habár nem tudom ezt a pascal hogy kezeli
válasza:rand, randomize függvényekre lesz még szükséged.
Vagy csak egyszerűen be sem kéred a számokat, csak kiírod hogy vesztett / 1-2 találat:)
válasza:function beker : byte;
var hiba, i : integer;
s: string;
begin
hiba := 1;
while (hiba <> 0) or (i > 91) or (i < 0) do
begin
ReadLn(s);
Val(s, i, hiba);
if hiba <> 0 then WriteLn('Csak 1-90 kozotti szamot adhatsz meg !');
end;
beker := i;
end;
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!