Četnost vstupních čísel – Pascal – Fórum – Programujte.com

Z úlohy je myslím jasné co mám udělat, ale nejde to zkompilovat prosím o radu. Díky moc

Program priklad_16;
uses crt;
var cislo, interval_1, interval_2, interval_3, interval_4, interval_5, interval_mimo : byte;

begin
      interval_1:=0;
      interval_2:=0;
      interval_3:=0;
      interval_4:=0;
      interval_5:=0;
      interval_mimo:=0;

      writeln('Zadej radu celych cisel ukonci záporným číslem');
      read(cislo);
      while cislo > -1 do begin
                              if cislo > -1 and cislo < 11 then  begin
                                                                      interval_1=interval_1+1;
                                                                end;
                              if cislo > 10 and cislo < 21 then  begin
                                                                      interval_2=interval_2+1;
                                                                end;
                              if cislo > 20 and cislo < 31 then  begin
                                                                      interval_3=interval_3+1;
                                                                end;                                                                 
                              if cislo > 30 and cislo < 41 then  begin
                                                                      interval_4=interval_4+1;
                                                                end;
                              if cislo > 40 and cislo < 51 then  begin
                                                                      interval_5=interval_5+1;
                                                                end;
                              if cislo > 50 and cislo < 32000 then  begin
                                                                     interval_mimo=interval_mimo+1;
                                                                end;   
                              write('Zadej dalsi cislo');
                              read(cislo);                             
                         end;
                        
      writeln('Interval 0-10 obsahoval prvku ===> ', interval_1);
      writeln('Interval 11-20 obsahoval prvku ===> ', interval_2);
      writeln('Interval 21-30 obsahoval prvku ===> ', interval_3);
      writeln('Interval 31-40 obsahoval prvku ===> ', interval_4);
      writeln('Interval 41-50 obsahoval prvku ===> ', interval_5);
      writeln('Interval nad 50 obsahoval prvku ===> ', interval_mimo);    
      repeat until keypressed;
end.

#1 elijax
Snad všechny kompilátory vypisují, proč se program nepodařilo zkompilovat. Zkus zapátrat ve výpisu. Pokud ti nebude jasné, co chyba znamená, zkus zagooglit, nebo se zde zeptat.

Třeba všechny řádky: 

interval_1=interval_1+1;

jsou špatně. Mělo by tam být := namísto =.

Příště prosím umisťuj svůj zdrojový kód do bloku pro zvýrazněnou syntaxi: 

.

#1 elijax
Co to znamená, že to nejde zkompilovat?

Tak buď to zkompilovat jde, nebo to napíše nějakou chybu, proč to nejde zkompilovat. Tak si tu chybu přečti a podle toho se zařiď. Nebo jestli té chybě nerozumíš, tak ji sem opiš a třeba ti někdo řekne co je špatně.

Z kódu je na první pohled jasné, že do typu byte určitě neuložíš hodnotu -1, když typ byte má rozsah 0-255.

Použij typ integer.

Priklad_16.pas(22,40)

Error: Incompatible types: got "Boolean" expected "Int64"

Toto mi to vrátilo aji po těch vašich úpravách co jste mi poradili.

Asi tam pořád někde máš = (test rovnosti) místo := (přiřazení).

#4 elijax
1. Řekl bych, že procedura read(cislo); musí být v tom cyklu

   Tedy   while cislo > -1 do

            begin

              read(cislo);  atd.

2. Podmínka if (pokud obsahuje and nebo or) musí být uzavřeny v závorkách

    Tedy if (cislo > -1) and (cislo < 11) then
              interval_1 := interval_1+1;

    atd.
                                                           

Děkuji všem a především Honzc bylo to těma závorkama.