Brak tekstu programu w oknie edytora tekstu

W którym konkretnie momencie wyskakują te błędy? Możesz podesłać przykładowy projekt do przetestowania?

zainstaluj lazarusa zamiast używać konsolowego edytora fpc. W nim tez bez problemu można kompilować aplikacje konsolowe.

furious programming napisał(a):

W którym konkretnie momencie wyskakują te błędy? Możesz podesłać przykładowy projekt do przetestowania?

W momencie zatwierdzenia pliku do otwarcia.
Nie mogę podać tekstu ponieważ nie mam wydrukowanej kopii.

Kurcze, sądziłem że używasz Lazarusa… :/

W takim razie zainstaluj go i nie męcz się z tym konsolowym dinozaurem.

Witam
Zainstalowałem Lazarusa i dalej nie ma tekstu. Doszedłem do wniosku,że nie będzie bo struktura programu jest zupełnie inna niż w Turbo Pascalu.
Udało mi się znaleźć jedną procedurę w turbo Pascalu ale w formacie PDF. Nie bardzo wiem jak przerobić ją na Obiekt Pascal jakim jest Lazarus.
Z tego co pamiętam to procedura działała znakomicie w Turbo Pascalu. Niżej załączam tekst:

Procedure Scraton(f, x, y, xe, eps, hmin);

value xe, eps, hmin;
real x, y, xe, eps, hmin;
label etb;
real function f;

Begin
real E, k1, k2, k3, k4, k5 as real;
boolean fi;

    ( x - bieżąca wartść współrzędnej (odciętej) )
    ( y - bieżąca i obliczona wartość funkcji (rzędnej) )
    ( xe - kolejna wartość odciętej )
    ( eps - mninimalna dokładność obliczeń )
    ( hmin - minimalna wartość kroku h )
    ( h - bieżąca wartość kroku obliczna w procedurze Scraton )
    ( fi - przed pierwszym wywołaniem procedury Scraton nadać wartość false - )
    ( - póżniej jej wartość jest ustawiana automatycznie )
    ( etb - zewnętrzna etykieta pod ktorą program kontynuuje dalsze działanie jeśli zostały )
    ( przkroczone wartości hmin i eps )
If fi then
a: Begin
     E = abs((xe - x) / h)
     If E <= 1.5 then fi = E > 1
     else goto b
End If  'fi

     If fi Then h = 0.5 * (xe - x) else h = xe - x

b:  k1 = h * f(x, y);
     k2 = h * f(x + 0.222222222222 * h, y + 0.2222222222222 * k1);
     k3 = h * f(x + 0.333333333333 * h, y + 0.8333333333333 * k1 + 0.25 * k2);
     k4 = h * f(x + 0.75 * h, y + 0.5390625 * k1 - 1.8984375 * k2 + 2.109375 * k3);
     k5 = h * f(x + 0.9 * h, y - 0.3105 * k1 + 1.8225 * k2 - 1.1016 * k3 + 0.4896 * k4);
     E = (0.34 * k1 - 0.972 * k2 + 1.632 * k4 - k5) * (0.129357298475 * k1 - 0.551470588235 * k2
           + 0.46568627451 * k3 - 0.0435729847494 * k4) / (k4 - k1);
     k2 = abs(E);
     If k2 > eps then goto c

     y = y - E + 0.104938271605 * k1 + 0.476470588235 * k3 + 0.237037037037 * k4
          + 0.181554103123 * k5
     If fi then
        x = x + h
c:     h = h * (eps / k2) ^ 0.2
        If abs(h) > hmin then goto a else etb;
     End; 'fi

     x = xe;
     fi = True;
End 'Procedure SCRATON;

@Zbigniew Jachimowicz: muszę Cię zmartwić, ale załączony kod nie jest napisany w Pascalu. ;)

Nie za bardzo wiem co to za język – trochę podobny do C, trochę do Visual Basica, może trochę do Lua, ale w całości do żadnego mi nie pasuje. Przy czym na pewno nie jest to Pascal – ani pradawny, ani współczesny, ani żaden inny.

furious programming napisał(a):

@Zbigniew Jachimowicz: muszę Cię zmartwić, ale załączony kod nie jest napisany w Pascalu. ;)

Nie za bardzo wiem co to za język – trochę podobny do C, trochę do Visual Basica, może trochę do Lua, ale w całości do żadnego mi nie pasuje. Przy czym na pewno nie jest to Pascal – ani pradawny, ani współczesny, ani żaden inny.

Było to w Algolu. Polecenia Algolu były podkreślone w Pascalu nie. Reszta różniła się niewiele. Inne były tylko polecenia wejścia-wyjścia ponieważ wtedy źródłem była klawiatura lub taśma perforowana a wyjściem maszyna do pisania. Były to czasy komputerów takich jak ODRA 1204, !325. Jako ciekawostkę podam, że jeszcze pod koniec lat 80-ych pracowałem przy obsłudze Odry 1325 ale już zmodernizowanej i programy pisało się na monitorze ale niestety wyjściem była maszyna do pisania lub drukarka.
Ale ten tekst programu przerobiony na Pascal działał znakomicie.

No dobrze, ale po co nam kod napisany w Algolu? Gdzie jest sprawiający problemy kod napisany w Pascalu? Drugi dzień mija i nadal nie wiadomo czego od nas oczekujesz. Napisałeś tylko tyle, że:

Zbigniew Jachimowicz napisał(a):

Nie mogę podać tekstu ponieważ nie mam wydrukowanej kopii.

co nie tłumaczy absolutnie nic.

Chyba niezbyt dokładnie przeczytałeś moje posty. Znalazłem tekst wprawdzie przerobiony z Algolu ale działający w Pascalu. Chodzi teraz o to jak przerobić ten tekst na Lazarus'a.
I tylko tyle. Zastanawiasz się do czego tekst jest podobny, ale czy to jest najważniejsze ?

Zbigniew Jachimowicz napisał(a):

Znalazłem tekst wprawdzie przerobiony z Algolu ale działający w Pascalu.

To zdanie sugeruje, że masz już przeportowany kod dla Pascala.

Chodzi teraz o to jak przerobić ten tekst na Lazarus'a.

A to, że nie masz.

Zastanawiasz się do czego tekst jest podobny, ale czy to jest najważniejsze ?

Nie tekst, a kod – nazywaj rzeczy po imieniu, a nikt nie będzie miał problemów ze zrozumieniem o co chodzi. Kod napisany w dowolnym dialekcie Pascala (z wyłączeniem Oxygene i innych ”dziwadeł”) da się skompilować za pomocą FPC na różne platformy.

Tak więc albo konkretnie napisz czego potrzebujesz, albo ja odpadam. Z chęcią pomogę z przeportowaniem tego kodu, ale muszę wiedzieć czy tego właśnie chcesz. Choć mała pomoc by się przydała, bo Algola nie znam, więc kilka pytań bym miał na pewno.