Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
    • CommentAuthorGolima
    • CommentTime29 Oct 2009
     
    Witam! Mam do zrobienia zadanie w Pascalu: 'Program ma wypisywać 40 wylosowanych cyfr z zakresu 0-9,ma zliczać ile jest cyfr podanych z klawiatury.Na której pozycji są te liczby i ma je wyróżniać na inny kolor' Czyli my wpisujemy cyfrę od 0 do 9 on losuje 40 cyfr i pokazuje nam na którym miejscu leży ta nasza wpisana wcześniej liczba i zmienia ją na inny kolor. Wszystko mam zrobione, oprócz wypisywania pozycji... Jakieś rady ? program barabara; uses crt; var a,b,c,x:integer; begin; clrscr; writeln('Podaj cyfre z zakresu 0-9'); readln(a); randomize; x:=0; for b:=1 to 40 do begin c:=random(10); If c=a then begin x:=x+1; textcolor(green); writeln(b,'. ',c) end else begin Textcolor(blue); writeln(b,'. ',c) end; end; textcolor(white); writeln; writeln('Podana liczba padˆa: ',x,' razy'); if c=a then writeln('Pozycje wylosowanych liczb to: ',b); readln; end.