Progarm Lotto Turba Pascal

cyrek
Użytkownik
Użytkownik
Posty: 1
Rejestracja: 20 gru 2010, o 22:22
Płeć: Mężczyzna
Lokalizacja: Warszwa

Progarm Lotto Turba Pascal

Post autor: cyrek »

Kod: Zaznacz cały

program lotto;
uses CRT;
var w:array[0..5]of integer;
    i,j,temp:integer;
    b,c,d,y:integer;
    bylo:boolean;

begin
clrscr;
     writeln('Teraz zostaniesz poproszony o podanie 6 liczb z zakresu od 1 do 49. Nacisnij ENTER.');
     readln;
     procedure obstawianie;
     for b:=1 to 6 do
     begin
          writeln('Liczba to©:');
          readln(d);
             if (d)=1) and (d<=49) then
                else
                begin
                writeln('Podajemy liczby tylko z zakresu od 1 do 49!');
                y:=y-1;
                end;
                end;
     randomize;
     for i:=0 to 5 do
     begin
          bylo:=false;
          temp:=random(48)+1;
          for j:=0 to 5 do
          begin
               if w[j]=temp then
                begin
                bylo:=true
                end;
          end;
               if bylo=false then
                begin
                w[i]:=temp;
                end
               else
               begin
               i:=i-1;
                end;


     end;
               for i:=0 to 5 do
               begin
               writeln(w[i]);
               end;
               readln;
end.


Problem polega na tym ze nie mogę tego programu skompilować. Wyskakuje Error 113: Error in statement. Wydaje mi się że wszystko jest poprawnie proszę o sprawdzenie tego błędu.
A pyzatym potrzebuje do tego programu dopisać jeszcze kod który będzie zapamiętywał liczby wylosowane i podane i szukał liczb które są trafione i wyświetlał je. Prosze o pomoc.
Afish
Moderator
Moderator
Posty: 2828
Rejestracja: 15 cze 2008, o 15:45
Płeć: Mężczyzna
Lokalizacja: Seattle, WA
Podziękował: 3 razy
Pomógł: 356 razy

Progarm Lotto Turba Pascal

Post autor: Afish »

Nie możesz w taki sposób deklarować procedury lokalnej.
ODPOWIEDZ