Definovanie typu v Pascale

Fata! ChaoS

Ahojte, mám nasledovný program

program F_SucetPolaIJ;
uses crt;

var
   type pole=array[1..100] of integer;
   cislo:pole;
   i,pocet,a,b:integer;

SucetPola(cisla:pole;N:integer;I:integer;J:integer):integer;
var
   sucet:integer
begin
     for I to J do
         sucet:=sucet+cisla[i];
     SucetPola:=sucet;
end;

begin
     randomize;
     writeln('Zadaj pocet prvkov pola.');
     readln(pocet);
     writeln('Zadaj interval prvkov.');
     readln(a,b);
     for i:=1 to pocet do
         cislo[i]:=1+random(100-1+1);
     writeln('Sucet vyhovujucich cisel je ', SucetPola(cislo,pocet,a,b));
     readln;
end.

a píše mi chybu v riadku

Kód: Vybrať všetko

 type pole=array[1..100] of integer;

Syntax error, identifier expected but TYPE found

čo tam nesedí alebo prečo mi píše chybu, veď akdobre viem takto má byť definícia typu, či nie-?? Ďakujem za správny tvar

áno, ale nie v rámci var bloku

Kód: Vybrať všetko

   type pole=array[1..100] of integer;
var
   cislo:pole;
   i,pocet,a,b:integer;

Fata! ChaoS

No nechcem založiť novú tému tak to píšem sem
mám nasledovný program

Kód: Vybrať všetko

program stromcek_3;
uses crt;

var
   N,i,j,k,x,y:integer;

begin
     randomize;
     writeln('Zadaj vysku stromceka.');
     readln(N);
     k:=1;
     Clrscr;
     textcolor(white);
     for i:=1 to N do
     begin
          for j:=1 to N-i do write(' ');
          for j:=1 to k do write('*');
          writeln;
          k:=k+2;
     end;

     repeat
     y:=1+random(N-1+1);
     x:=N-y+1+random((2*N-1-(N-y+1))-(N-y)+1);
     gotoxy(x,y);
     textcolor(yellow);
     write('*');
     delay(250);
     gotoxy(x,y);
     textcolor(white);
     write('*');
     until (readkey<>'');
end.

Ktorý vykreslí stromcek a potom sa jednotlivé časti rzosvietia problém je len v tom, že v úlohe mám napísané, že do vtedy to má blikať kým nezatlačím lubovolny znak, lenže readkey čaká na vstup a potreboval by som dačo také, čo nečaká na vstup, len keď kliknem na niečo tak sa to vypne.

P.S. aby ste videl blikanie môžte to dať do cyklu, lenže potom sa to ukončí len po určitej dobe a ni epo lub. zadaného znaku.

skús:
repeat ... until keypressed

neutronmind

Ty chces aby to blikalo, pokym sa nestlaci klaves? Skus nejak takto

Kód: Vybrať všetko

program stromcek_3; 
uses crt; 

var 
   N,i,j,k,x,y:integer; 

begin 
     randomize; 
     writeln('Zadaj vysku stromceka.'); 
     readln(N); 
     k:=1; 
     Clrscr; 
     textcolor(white); 
     for i:=1 to N do 
     begin 
          for j:=1 to N-i do write(' '); 
          for j:=1 to k do write('*'); 
          writeln; 
          k:=k+2; 
     end; 
     while (0<>1) do begin
     y:=1+random(N-1+1); 
     x:=N-y+1+random((2*N-1-(N-y+1))-(N-y)+1); 
     gotoxy(x,y); 
     textcolor(yellow); 
     write('*'); 
     delay(250); 
     gotoxy(x,y); 
     textcolor(white); 
     write('*'); 
     end;
end.

//hopla fakt

nie som si istý či je to správne

skús to repeat until keypressed