Schemat Hornera

[myst3]

Może ktoś mi pomóc, mam problem z tym kodem wyrzuca mi błąd w miejscu gdzie jest nawias, ktoś wie o co biega?

program horner;

{$APPTYPE CONSOLE}

var
  s : string;
  p,L,i,c : cardinal;

begin
  writeln('Obliczanie wartosci liczby zapisanej');
  writeln('w systemie pozycyjnym  o podstawie p');
  writeln('    przy pomocy schematu Hornera');
  writeln('------------------------------------');
  writeln('(C)2005 mgr J. Walaszek  I LO Tarnow');
  writeln;
  write('Podaj p (2..10) = '); readln(p);
  writeln;
  write('Podaj liczbe    = '); readln(s);
  writeln;
  L := ord(s[1]) - ord('0');
  for i := 2 to length(s) do
  begin
    c := ord(s[i]) - ord('0');
    L := L * p + c;
  end;
  writeln('Liczba ',s,'(',p,') = ',L,'(10)');
  writeln;
  writeln('Nacisnij klawisz ENTER...');
  readln;
end. 

a bład zaznaczyłem na czerwono na zdjęciu

[REPREDATOR]

writeln('Liczba ',s, /* Brakuje Ci apostrofa w tym miejscu */ (',p /* I tutaj przecinka */ ') = ',L,'(10)');

[myst3]

Dalej sie rzuca o ten nawias..

[myst3]

Dobra dałem rade jakoś, teraz mam kolejne pytanie. Może ktoś mi napisać fragment kodu, który przeliczałby na wszystkie systemy ? (2,10,16...) i odwrotnie?

[myst3]

epeat wynik:=SYS[WARTOSC mod SYSTEM2+1] + wynik; WARTOSC:=WARTOSC div SYSTEM2; until WARTOSC=0; writeln('Wynik: ',wynik);

Może mi ktoś wyjaśnić dla czego są nawiasy kwadratowe przy mod system i dlaczego jest dodawana wartość 1 ?

[GGG205]

Ja się na pascalu nie znam, ale tu chyba chodzi o tablice, a i używaj opcji edytuj.

[REPREDATOR]

Konwersję części ułamkowej wykonuje się osobno.

Mnożysz ułamek przez podstawę systemu, do którego konwertujesz. Część całkowita staje się kolejną cyfrą w ułamku docelowym. Część ułamkowa jest wejściem do kolejnej iteracji:

 

http://www.elektroda.pl/rtvforum/topic1465525.html