Program zapisujący 30 losowych liczb do tablicy

Program który zapisuje do tablicy 30 losowych liczb.
Tablica z 30 losowymi liczbami.

program losowanie;
uses crt;
var tab:array[0..30] of word;i:byte;
begin
randomize;
    for i:=1 to 30 do
    begin
    tab[i]:=random(9999);
    writeln('Wylosowane liczby to: ',tab[i]);
    end;
    readln;
end.

Przedstawione wykorzystanie funkcji random.

Losowanie liczb i sprawdzanie ile razy wylosowano daną liczbę z przedziału

Napisać program sprawdzający ile razy wylosujemy liczbę 15, losując 100 razy. Liczbę z przedziału od 1 do 50.

program losuj;
uses crt;
var ile,liczba:byte;
i:integer;
begin
randomize;
ile:=0;
i:=0;
while i<1000 do
  begin
	liczba:=random(25)*2+1;
	writeln(liczba);
	if(liczba=15) then ile:=ile+1;
	i:=i+1;
  end;
write('Liczb© 15 wylosowano ',ile,' razy!');
readln;
end.

Uses crt;

Pascal szybkie palce – program ćwiczący refleks

Szybkie palce

Znajdź jak najszybciej na klawiaturze klawisz wyświetlający się na ekranie. Program policzy ile czasu zajęła ci ta czynność i w miarę możliwości oceni.

Program sprawdzający refleks

Napisz program, który poprosi cię o podanie klawisza alfanumerycznego na klawiaturze i zliczy czas, w jakim został znaleziony.

Program zlicza czas w sekundach oraz setnychsekundy. Dlatego jego dokładność jest wysoka. Licznik jest bardzo dokładny, dlatego można go użyć również do stopera.

Program może pełnić różne funkcje, głównym jego celem było pokazanie użycia biblioteki dos, w celach obliczeniowych czasu.

Program do treningu refleksu oraz nauki klawiatury, dla niewprawionych użytkowników.

program szybkie_palce;
uses dos ,crt;
var czas_poczatek,czas_koniec,s,ss,h,m:word;
        litera,pobierana,key:char;
begin
randomize;
writeln('Program testujący twój refleks! Naci˜śnij enter, aby kontynuować.');
readln;
repeat
writeln('Uwaga za chwilę wy˜wietli się litera!');
writeln('Postaraj się jak najszybciej znale˜ść tą literę!');
litera:=chr(random(25)+65);{49+41}
delay(3500);
GetTime(h, m ,s, ss);
czas_poczatek:=s*100+ss;
clrscr;
writeln(litera);
        repeat
        pobierana:=UPCASE(readkey);
        until pobierana=litera;
        GetTime(h, m ,s, ss);
        czas_koniec:=(s*100)+ss;
        czas_koniec:=czas_koniec-czas_poczatek;
        s:=czas_koniec div 100;
        ss:=czas_koniec-s*100;
        write('Znalezienie klawisza zajęło ci ');
        if s <> 0 then write(s,' sekund ');
        if ss <> 0 then write(ss,' setnych!');
        writeln;
        if s>60 then writeln('Wyˆłączony mam większy zapˆołn od twojego:P')
        else if s>2 then writeln('Kiepski refleks. Liczę na twoją poprawę.')
        else if s>1 then writeln('Łuuch... Ale się namy˜lałˆe˜ś.')
        else if (s<=1) and (ss>90) then writeln('Tempo żółwia w skˆładzie porcelany!')
        else if (s<1) and (ss<10) then writeln('Musisz jeszcze trochę poćwiczyć!')
        else if (ss<100) and (s>0) then writeln('Sˆłabiutko. Może następnym razem będzie lepiej!')
       else if ss>80 then writeln('Źle nie ma. Tempo ziemniaka czasem się przydaje.')
        else if ss>60 then writeln('Dobrze. Może kiedy˜ wyprzedzisz ˜ślimaka!')
        else if ss>40 then writeln('Niezˆy refleks. Oby tak dalej!')
        else if ss>20 then writeln('Brawo! Świetny wynik!')
        else writeln('Jeste˜ś kozak gratuluje refleksu.');
        if(ss<60) and (s=0) then
        begin
        writeln;
        writeln('Niepokonany heros. Level UP. Może teraz rozszerzymy arsenaˆł? T/N');
        readln;
        writeln('Żartowaˆem nie chce mi się!');
        end;
writeln('Jedziemy dalej? T/N');
key:=UPCASE(readkey);
until key='N'
end.

W programie została użyta biblioteka Dos odpowiadająca za obsługę czasu.

Zachęcam do sporządzenia własnych modyfikacji tego skryptu!

I ty przetestuj czy masz szybkie palce! Wystarczy Pascal kompilator.

Program losujący 6 liczb z danego przedziału – Pascal lotto

Napisz program Lotto. Użytkownik ma podać 6 liczb. Program ma wylosować 5 liczb z danego przedziału i wyświetlić ile trafiliśmy.

program lotto;
var a:char;
    b:array[1..6] of byte;
    i,licznik,liczba:byte;
begin
randomize;
licznik:=0;
i:=1;
writeln('Witamy w programie Lotto. Nacisnij enter.');
readln;
writeln('Wybierz typ losowania a)Wybrane liczby b)Chybiˆł trafiłˆ');
readln(a);
if a='b' then
    begin
    repeat
    b[i]:=random(50);
    i:=i+1;
    until i=6;
    end;
if a='a' then
    begin
    repeat
    writeln('Podaj liczb©.');
    readln(b[i]);
    inc(i);
    until  i=6;
    end;
writeln('Twoje liczby to: ',b[1],' ',b[2],' ',b[3],' ',b[4],' ',b[5],' ',b[6],'.');
for i:=1 to 6 do
        begin
            liczba:=random(50);
            if b[i] = liczba then licznik:=licznik+1;
        end;
        write('Trafiˆe˜ ',licznik);
        if licznik=0 then
         write(' liczb!')
        else if licznik=1 then write(' liczbą!')
        else write(' liczby!');
readln;
end.

Strona wyszukana na takie tagi:

  • lotto program