Založen: Apr 02, 2011 Příspěvky: 18392 Bydliště: Nový Bydžov
Zaslal: ne prosinec 02 2012, 21:16 Předmět: Co to je za programovaci jazyk?
Nepoznate nekdo prosim, v cem je napsany nasledujici zdrojak?
;--------------------
BEGIN { Prim }
p := LAST;
v := p + (2 * (n + 1));
printInt(2);
printSpace;
printInt(3);
printSpace;
x := 1;
lim := 2;
i := 6;
inc := 4;
squ := 9;
WHILE i <<= 2 * n DO
REPEAT
x := x + inc;
inc := 6 - inc;
IF squ <<= x
THEN lim := lim + 2;
v^[lim] := squ;
k := p^[lim + 2];
squ := k * k
ENDIF;
k := 4;
isPrime := true;
WHILE (isPrime <> false) AND (k << lim) DO
k := k + 2;
IF v^[k] << x
THEN v^[k] := v^[k] + 2 * p^[k]
ENDIF;
isPrime := x <> v^[k]
ENDWHILE
UNTIL isPrime <> false;
IF i <<= 2 * nl
THEN p^[i] := x
ENDIF;
printInt(x);
printSpace;
i := i + 2
ENDWHILE;
printChar(cr);
printChar(lf)
END Prim.
;----------------------------------------
Diky za pomoc.
Jirka
edit: bohuzel se rozhodil format
Založen: Apr 02, 2011 Příspěvky: 18392 Bydliště: Nový Bydžov
Zaslal: ne prosinec 02 2012, 21:28 Předmět:
Pascal MT+ a Turbopascal (je to na 8 bitu) jsem zkousel, vyhazoval spoustu chyb... Tohle je jen cast vetsiho zdrojaku. Je k nemu funkcni spustitelnej COM, takze necim to prelozit urcite jde.
Jirka
Založen: Jul 21, 2006 Příspěvky: 25741 Bydliště: skoro Brno
Zaslal: po prosinec 03 2012, 11:50 Předmět:
Zkus Delphi. _________________ Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?]
Založen: Jul 21, 2006 Příspěvky: 25741 Bydliště: skoro Brno
Zaslal: po prosinec 03 2012, 12:01 Předmět:
Něco podobnýho jsem viděl na netu s koncovkou pro, ale k čemu to patří, to nevím. _________________ Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?]
Založen: Nov 15, 2005 Příspěvky: 70 Bydliště: Trutnov
Zaslal: po prosinec 03 2012, 12:40 Předmět:
Když už jste u toho luštění v čem je program napsán, mám taky prosbu, v čem je toto? Pracuji v MPLABIDE a píšu programy v *.asm. Uvedenou proceduru bych potřeboval přepsat do MPLABIDE do formátu asm, nějak neumím níže uvedené číst. Je ke stažení nějaký popis instrukcí?
#include <p18f458.h> /* Register and bit declarations */
#include <delays.h>
#include <string.h>
#include "lcd1100.h"
#pragma config OSC = HS, OSCS = OFF
#pragma config PWRT= OFF , BOR=ON, BORV = 27
#pragma config WDT = OFF
#pragma config DEBUG = OFF ,LVP =OFF , STVR =OFF
void long_to_string_lz (unsigned int input, char *str, char numdigits);
void long_to_string (unsigned int input, char *str, char numdigits);
Založen: Jun 14, 2003 Příspěvky: 2812 Bydliště: Blížejov
Zaslal: po prosinec 03 2012, 19:51 Předmět:
Ten výpis z prvního příspěvku mi trochu připomíná ALGOL, je to jeden z prvních "vyšších" jazyků", možné je to možné považovat za předchůdce nebo vzor Pascalu...
Založen: Apr 02, 2011 Příspěvky: 18392 Bydliště: Nový Bydžov
Zaslal: út prosinec 04 2012, 0:01 Předmět:
Panda38 napsal(a):
Když je to na 8 bitů, to je pro jaký procesor, počítač, systém? CP/M ?
Je to Z80 s CP/M. Prave ze jsem zkousel CP/M Pascaly. V tom zdrojaku je ale datum z roku 2004, takze by to mohlo byt neco novejsiho od nejakyho retro priznivce. CP/M byla hodne psana v PL/1 a nebo ve PL/M "sloucenine" PL/1 a Algolu. Takze monterjirka ma asi pravdu. Tak to asi nema reseni, nevim o tom vubec nic...
Jirka
Založen: Nov 21, 2012 Příspěvky: 719 Bydliště: Most, Praha, Lanžhot
Zaslal: út prosinec 04 2012, 9:31 Předmět:
Basicy nepoužívaly přiřazení s := . Jinak by mohla být podobnost i s např. IDL, ale to jsou už novější jazyky vycházející z Basicu.
Ale připadá mi to přepsatelné do novějšího Pascalu. Nějaký který má kvalitnější chybová hlášení, pak by se snadno vyhledaly všechny potřebné změny. Např. hromadně nahradit všechna "THEN" slovy "THEN BEGIN" a všechna "ENDIF" nahradit "END", "ELSE" -> "END ELSE BEGIN". Podobně " DO" nahradit " DO BEGIN" a "ENDWHILE" nahradit "END", "REPEAT" -> "REPEAT BEGIN", "UNTIL" -> "END UNTIL". atd. Dal by se vytvořit skript na automatickou konverzi (např. pomocí sed popř. grep). Hlavičky funkcí BEGIN {} asi upravit ručně.
Založen: Jul 21, 2006 Příspěvky: 25741 Bydliště: skoro Brno
Zaslal: út prosinec 04 2012, 10:03 Předmět:
Basic to není, to je nějakej přechod mezi Basicem a Pascalem. Mě pod CP/M taky běžel nějakej podivnej překladač, ale nikdy jsem ho nepoužíval. Navíc kdo si to má 20 let pamatovat, a pochybuju, že ty moje 3" diskety ještě žijí. _________________ Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?]
Časy uváděny v GMT + 1 hodina Jdi na stránku 1, 2, 3Další
Strana 1 z 3
Nemůžete odesílat nové téma do tohoto fóra. Nemůžete odpovídat na témata v tomto fóru. Nemůžete upravovat své příspěvky v tomto fóru. Nemůžete mazat své příspěvky v tomto fóru. Nemůžete hlasovat v tomto fóru. Nemůžete připojovat soubory k příspěvkům Můžete stahovat a prohlížet přiložené soubory
Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.