Paskal - Mnoziny – Pascal – Fórum – Programujte.com

Bol by som rád ak by ste mi poradili pri tomto programe. Ide mi o to, že ak si ho pozriete, mám tam vlastnosti, ktoré sa hrajkajú s textom ( tučné písmo ...... ), ale vôbec neviem, ako do programu zadefinovať text, ktorý by tieto vlastnosti na text aj aplikoval. V programe sú i množiny, ale tie nie sú pre mňa podstatné, keďže som ich pochopil, aspoň si myslím. Ide mi hlavne o spomenutý text. Tu je program:

program Mnoziny;
type
 TVlastnosti = (psTucne, psKurziva,
  psPodciarknute);
 TPismo = set of TVlastnosti;
var
 BeznyText, Nadpis: TPismo;

begin
 writeln('Mnozina je uzitocny typ premennej, ale v podstate je to tiez forma datového typu');
 writeln('Mnozina môze obsahovat celé císla alebo iné ordinálne premenné, vsetky vsak musia byt rovnakého typu');
 writeln('Pocet prvkov je obmedzeny na 256');
 writeln('Ordinálne hodnoty sa môzu pohybovat od 0 do 255');
 writeln('V príklade som vytvoril mnozinu typu byte (celocíselny typ s rozsahom od 0 do 255)');
 writeln('Mnozinu definujem klúcovymi slovami set of a typom premennej');
//program mnoziny;
//var
// MnozinaCisel: set of byte;
// Mnozina2: set of 10..100;
 writeln('Do mnoziny môzem i vkladat prvky momocou hranatych zátvoriek');
//begin
// MnozinaCisel := [5, 7, 18];
// Mnozina2 := [100];
// Mnozina2 := [32..40];
 writeln('S mnozinami sa dajú robit i rôzné operácie podla tabulky Text programovanie.....Teoria');
 writeln('Môzem napríklad, ak sa chcem presvedcit, ci sa nejaké císlo naozaj nachádza v mnozine, pouzijem operátor in');
// if 4 in MnozinaCisel then
//  writeln('Prvok 4 sa nachadza v mnozine.');
//end.
 writeln('Pre pokracovanie stlac enter');
 readln;
 writeln('Avsak pri mnozinách sú i iné moznosti, jednu ako príklad dalsej moznosti ukázem');
 writeln('Prvkami mnoziny nemusia byt len císla ci znaky, ale i vymenovany typ');
 writeln('Ako príklad postací písmo');
 begin
  BeznyText:= [];
  Nadpis := [psTucne, psKurziva];
 end;
 writeln('Pre skoncenie programu stlac enter');
 readln;
end.

Můžeš měnit barvu textu/pozadí a konzole ve Windows umí podtržený text, ale nevím, jestli na to Free Pascal má nějakou extra funkci nebo musíš použít WinAPI.

Konzole/terminál není určená ro formátovaný text.

#1 doma22
Na formátování textu v konzoli se používá ANSI. Ovšem budeš asi zklamán, kromě obarvení toho moc nenabízí.

#3 Kit
Aha, a to ANSI je nejaká funkcia, čiže ak by som chcel napríklad ako hovorí gna podčiarknutý text v konzole Windows, tak ten koniec ( begin - BeznyText..... ) je chybný?

#4 doma22
To jsou speciální sekvence, které když program vypisuje a konzole detekuje, tak je interpretuje jako příkazy. Ale to je potřeba nejdříve zapnout, nebo použít terminál, který je podporuje automaticky.

To co v tom programu vyvádíš s množinami není špatně, ale samozřejmě to nemůže mít vliv na formát následně vypisovaného textu.

Jestli chceš formátovaný text, tak to dělej v grafické aplikaci.

#5 gna
Aha veľmi pekne ďakujem za vysvetlenie, viem, že tu vytváram ako sa povie psie kúsky, ale prosím Vás berte to z rezervou, keďže sa učím ešte len programovať, preto tie psie kúsky. Ešte raz ďakujem za pomoc a vysvetlenie problematiky, čím môžem túto časť definitívne uzavrieť. Pomaly uzatváram Paskal, takže už tu toľko psích kúskov nebude, keďže som od mnohých vecí upustil ( ako napríklad vytvorenie hadíka v paskale), aby som ako ste mi radil nestrácal zbytočne čas, keďže Vaše rady beriem vážne a cením si ich.

#1 doma22

měl by sis zajít do knihovny a pučit si nějaký knížky o pascalu:

1/
Turbo pascal 6 v příkladech, Stanislav Dvořák, Grada 1991, ISBN-80-85424-13-4

2/
Turbo pascal 6 popis jazyka, Tomáš Novák, Grada 1991, ISBN-80-85424-12-6

3/
Turbo Pascal 6.0, 1 část, Pavel Přívětivý, Jiří Kolbaba, Střední průmyslová škola elektrotechnická Pardubice, 1992
Turbo Pascal 6.0, 2 část, Pavel Přívětivý, Jiří Kolbaba, Střední průmyslová škola elektrotechnická Pardubice, 1992
Turbo Pascal 6.0, 3 část, Pavel Přívětivý, Zdeněk Nosek, Střední průmyslová škola elektrotechnická Pardubice, 1992
Turbo Pascal 6.0, 4 část, Pavel Přívětivý, Střední průmyslová škola elektrotechnická Pardubice, 1992

tady máš celej Borland Pascal včetně !!!  HELPU, který je důležitý protože tam je spoooousta příkladů
https://uloz.to/…z-manual-zip

help je interaktivní !!! klávesy F10+H+T když nastavíš kurzor např na příkaz for

jinak internet je plnej manuálů na psacal

a měl bys už konečně hodit za hlavu pascal a jít se učit něco rozumnýho

#7 JerryM
Ten internet si pozriem, ale JerryM neviem ako to je u Vás v ČR, ale u nás v SR máme všetko zavreté, okrem supermarketov, ktoré nám vláda nechala otvorené, aby sme tu nevykapali od hladu, pretože okrem potravín, chľastu a cigariet, ti jednoducho nič iné na kase nenablokujú, ale to skôr preto, že na veľkokapitál si v kapitalizme okrem Ruska nik netrúfne, tu nie nič otvorené, a knižnice už vôbec, ako som písal na úrad sa nedostaneš, maximálne do chodby a aj to musíš mať papierik o tom, že si bol na teste, do práce ak nemáš papierik, že si bol na teste, sa jednoducho nedostaneš, na poštu si môžeš ísť vybrať tak maximálne dôchodok, zaplatiť inkaso, či šek alebo zobrať dávku, zabudni na listy a podobne, a aj na to potrebuješ zase papierik o teste, takže preto som ti pred tým písal, že tu už ani nejde o kapitalizmus, to už nie je kapitalizmus, ale hororový despotizmus, čo je momentálne v SR, ale ako hovorím skúsim si to pozrieť na nete, hlavne tie knihy, no to už budem brať iba ako doplnok, a nepôjdem už do hĺbky, keďže ešte by som si chcel objasniť cca tri veci v paskale a potom ako sa povie dovi paskal 

#7 JerryM
Ešte ti poviem pikošku, čo platí asi len u nás, dokonca po novom, taký najčerstvejší nápad našej super vlády a ešte suprovejšieho hygienika je, že ak ideš do lesa na prechádzku, tak potrebuješ potvrdení o absolvovaní testu, samozrejme rúško povinné, to je taký najčerstvejší návrh v našom parlamente, len neviem komu budem to potvrdenie o teste v lese ukazovať, asi veveričkám

máte to tam divoký no ..na tom Slovensku

staré knížky o Pascalu se daj sehnat v bazaru

https://www.sbazar.cz/hledej/programov%C3%A1n%C3%AD/31-knihy-literatura

nebo bazos.cz  a ruzny antikvariaty a tak

http://pascal.webz.cz/index.php?part=down

a na ty knížky

Turbo Pascal 6.0, 1 část, Pavel Přívětivý, Jiří Kolbaba, Střední průmyslová škola elektrotechnická Pardubice, 1992

se musíš zeptat na tý střední škole

#10 JerryM
Aha, super, diky za pomoc