Brak tekstu programu w oknie edytora tekstu

2018-11-30 16:08
0

Witam
Free Pascal Win10. Przykłady zamieszczone z programem są prawidłowe.
Ok 20 lat temu napisałem kilka programów w Borland Pascalu 5.0 i nie jest widoczny ich tekst w oknie edytora.
Jest natomiast komunikat:

file\C:FREE PASCAL\3.0.4\bin\i386-win32\silnk\balis.pas had too long lines first such 1

a po zaakceptowaniu następny komunikat:

file\C:FREE PASCAL\3.0.4\bin\i386-win32\silnk\balis.pas had too long lines first such -1

I to wszystko. Zmiany opcji edytora i ekranu nic nie dają

edytowany 2x, ostatnio: furious programming, 2018-11-30 16:13

Pozostało 580 znaków

2018-11-30 16:15
0

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


Pozostało 580 znaków

2018-11-30 16:36
2

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


pozdrawiam
paweld

Pozostało 580 znaków

2018-11-30 16:52
0
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.

edytowany 1x, ostatnio: Zbigniew Jachimowicz, 2018-11-30 16:53

Pozostało 580 znaków

2018-11-30 17:13
0

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

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


Pozostało 580 znaków

2018-12-01 10:57
0

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;
edytowany 1x, ostatnio: furious programming, 2018-12-01 14:40

Pozostało 580 znaków

2018-12-01 14:45
0

@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.


Pozostało 580 znaków

2018-12-01 15:27
0
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.

Pozostało 580 znaków

2018-12-01 19:35
0

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.


edytowany 2x, ostatnio: furious programming, 2018-12-01 19:36

Pozostało 580 znaków

2018-12-01 19:43
0

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 ?

edytowany 1x, ostatnio: furious programming, 2018-12-01 20:26

Pozostało 580 znaków

2018-12-01 20:38
1
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.


edytowany 2x, ostatnio: furious programming, 2018-12-01 20:39

Pozostało 580 znaków

Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0