Program w Pascalu

[tomek555]

Witam. Muszę zrobić program we free pascalu który będzie wykonywać następujące czynności:
Należy podać ilość prób, potem komputer wymiesza liczby i podajemy swój typ. Jeśli twój typ będzie równy wylosowanej liczbie wtedy zwiększ ilość trafień i program ma wypisać trafiłeś,a jesli uzytkownik nie trafil los<>typ
wtedy wypisz "pudlo" i podaj los

po wykonaniu wszystkich prob wyswietl
ile razy trafiono

Bardzo prosze o pomoc :/

 

[D.F.]

program Losowanie;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  IloscProb, I, R, Liczba, Trafiono, Pudlo : Integer;
begin
  WriteLn('Program Losowanie');
  WriteLn('Podaj ilosc prob:');
  ReadLn(IloscProb);
  for I := 1 to IloscProb do
  begin
    Randomize();
    R := Random(10);
    WriteLn('Podaj liczbe od 1 do 10:');
    ReadLn(Liczba);
    if R = Liczba then
    begin
      Trafiono := Trafiono + 1;
      WriteLn('Trafiles!');
    end else
    begin
      WriteLn('Pudlo! Liczba = '+IntToStr(R));
    end;
  end;
  WriteLn('Trafiono '+IntToStr(Trafiono)+' razy');
  ReadLn;
end.

 

[Dark Smark]

program Losowanie;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  IloscProb, I, R, Liczba, Trafiono, Pudlo, A, B : Integer;
begin
  A := 10;
  B := 35;
  WriteLn('Program Losowanie');
  WriteLn('Podaj ilosc prob:');
  ReadLn(IloscProb);
  for I := 1 to IloscProb do
  begin
    Randomize();
    R := Random(B-A)+A;
    WriteLn('Podaj liczbe od '+IntToStr(A)+' do '+IntToStr(B)+':');
    ReadLn(Liczba);
    if R = Liczba then
    begin
      Trafiono := Trafiono + 1;
      WriteLn('Trafiles!');
    end else
    begin
      WriteLn('Pudlo! Liczba = '+IntToStr(R));
    end;
  end;
  WriteLn('Trafiono '+IntToStr(Trafiono)+' razy');
  ReadLn;
end.

Nie pisze raczej w Pascalu ale może się komuś przydać drobna modyfikacja powyższego kodu jakbyś chciał z danego zakresu liczb losować (zmienna A i B). Nie wiem czy nie ma funkcji już podobnej zaimplementowanej w język.

 

[tomek555]

Jejku dzięki wam!!! Pomogliście mi Teraz pozostaje mi się przyuczyć tego )