Pascal - počítání počtu pokusů např. u hádání čísel

Díky za rady, jsem začátečník, takže jsem rád když napíšete, i když je to třeba pro Vás primitivní.

Tak základní algoritmus bude nějak takto :

var
  celeCislo: CeleCislo;
  hadaneCislo:CeleCislo;
  chyb :CeleCislo;
begin
  hadaneCislo:=Random();
  celeCislo:=-1;
  while(hadaneCislo==celeCislo)
  begin
    celeCislo=načtiČíslo();
    if (celeCislo=hledaneCislo) write("Prefil jsi se");
    if (celeCislo<hledaneCislo) begin write("Cislo je větší"); chyb:=chyb+1 end;
    if (celeCislo*hledaneCislo) begin write("Cislo je menší"); chyb:=chyb+1 end;
  end;
  write("Počet chyb:"+IntToStr(chyb));
end.

To to čistě jen nástřel v češtině, budeš si muset v rámci cviku opravit. A to while nejspíše nahradit forem s omezenými pokusy.

Aspon ty bys mohl CODE pouzivat (JaFi)

:) Jsem s timto tlacitkem seznámen. (ale kdyz jsem zacal slova "integer" nahrazovat "CeleCislo", tak jsem necekal, ze CODE by tomu mohlo nejak pomoct. Uzvávam, ze to takto vypadá lépe.)

Jinak u toho while nejspíše nemaj bejt dvě rovná se v Pascalu.