Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 34 ] Choď na stránku: 1, 2 ďalšia
AutorSpráva
Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok NapísalOffline : 15.11.2016 17:44

Zdravím, Chcel by som sa opýtať akú križnicu a aký príkaz je na farebný text v programe Lazarus. V FPC to je crt a príkaz textcolor no v Lazarus to neviem. PS Hľadal som to no nič som nenašiel.




//EDIT: Viem že to sem nepatrý ale nechcem vytvarat zbytocne novú tému tak to napíšem sem.
potrebujem poradiť ohladom premeny zadaného čísla na číslo zadefinované. Potrebujem to konkrétne na premenu 1 na 31 kvôli dnom v mesiaci.
celý zoznam:
Kód:
    1 = 31
    2 
= 28
    3 
= 31
    4 
= 30
    5 
= 31
    6 
= 30
    7 
= 31
    8 
= 31
    9 
= 30
    10 
= 31
    11 
= 30
    12 
= 31

Kód programu som si predstavoval takto:
Kód:
write('zadajte aktuálny mesiac: ');
readln(m);
.... 
Pričom m budú tie mesiace ktoré som spomenul vyššie


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:09

Tie mesiace spravis napriklad cez pole.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:18

@Magic ako myslíš cez pole? keď myslíš array tak temu nechápem ako to mám urobiť lebo ako príklad čo som našiel bolo array[0..5] napr.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:19

No tak ty budes mat array[1..12]


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:20

vsak chapem ze tam zadam lubovolne cislo ale ako zadam ze 1 bude mat premenu na 31


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:21

Ak mas napriklad pole s nazvom "mesiac", tak zadas mesiac[1]=31


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:23

ok a to zadám do príkazu alebo do nejakého vyhradeného slova ?


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:34

Skus este trochu pohladat na google, lebo toto su uplne zakladne veci.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:35

No sú ale já som prvák :D


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:36

Prvak na zakladnej ?


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:40

nie prvák na SSOŠ ViaHumana Skalica.

/EDIT: array sme ešte ani nepreberali ani podmienky a cykli.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:43

Daj si do google "pascal array" a musis to proste najst.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:46

Tento kód som napísal
Kód:
program novy_rok;
uses Classes;
type
  mesiac 
= array[1..12] of byte;
var
  m : mesiac;
  r,b,: integer;
begin
  m
[1] := 31;
  m[2] := 28;
  m[3] := 31;
  m[4] := 30;
  m[5] := 31;
  m[6] := 30;
  m[7] := 31;
  m[8] := 31;
  m[9] := 30;
  m[10] := 31;
  m[11] := 30;
  m[12] := 31;
  write('Zadajte aktualny mesiac: ');
  readln(m);
  write('Zadajte aktualny den: ');
  readln(d);
  c:= m+d;
  r:= 365-c;
  writeln('Vysledok: ',r);
  readln;
end.
ale kompilator mi hadze chybu
Kód:
Compile Project, Target: novy_rok.exe: Exit code 1, Errors: 2
novy_rok.pas(22,11) Error: Can't read or write variables of this type
novy_rok.pas(25,8) Error: Operator is not overloaded: "mesiac" + "LongInt"



Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:52

Kód:
readln(m);

Toto nemozes spravit a d nemas deklarovane.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 18:55

d uz som opravil ale ked dam readln(m[1]); tak mi to zapocita iba 31 a nie nahodne cislo ktoré zadal uzivatel teda 1..12


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 18:57

Ty to nepotrebujes ulozit do toho pola, to je uz definovane a nemusi sa menit.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 19:00

a z toho vyplýva aký príkaz?


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 19:07

Z toho vyplyva, ze si najskor vstup od uzivatela ulozis do premennej a potom z toho pola zistis pocet dni.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 12.10.06
Prihlásený: 16.04.24
Príspevky: 20301
Témy: 79
Bydlisko: Banska Byst...
Príspevok NapísalOffline : 15.11.2016 19:11

a bohovo rychlo sa nauc googlit, a velmi dobre googlit. pretoze to je zaklad prace akehokolvek programatora.







_________________
Ryzen 7 3700X | SilentiumPC Fera 3 | Asrock X570M Pro4 | Patriot Viper 4 Blackout 16GB DDR4-3600 CL17 | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 24" BenQ GW2470H | 3x Noctua NF-S12B redux 1200 PWM
Xiaomi Mi 9 Lite 64GB
Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3
Príspevok NapísalOffline : 15.11.2016 19:46

Ponaučenie: keď ti niekto napíše "použi pole, najdi si to", tak otvoríš Google, napíšeš "pascal pole" a najbližších aspoň 20 minút budeš študovať stránky na prvej strane hľadania. Až potom prídeš na fórum a napíšeš "našiel som to, dozvedel som sa toto a nechápem to".
Výhovorka "nebrali sme to" sa neberie. Buď si to nájdeš a naučíš, alebo počkáš až ti to vysvetli učiteľ.







_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám!
Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 19:52

bx no prave učiteľ nám to zadal na DU ale neviem odkial si to mam vycucať. a vždy googlim ale asi špatne.
----
Shiro - dakujem za radu.

Program som dotiahol skoro do konca ale stále mi chýba jedna maličkosť. neviem ako mám zapísať príkaz na vypísanie predošlých hodnôt zadanej hodnoty uživatelom
lebo pred je iba o jedno číslo.
Kód:
program novy_rok;
uses Classes;
type
  mesiac 
= array[1..12] of byte;
var
  m : mesiac;
  v,: byte;
  r,d,: integer;
begin
  m
[1] := 31;
  m[2] := 28;
  m[3] := 31;
  m[4] := 30;
  m[5] := 31;
  m[6] := 30;
  m[7] := 31;
  m[8] := 31;
  m[9] := 30;
  m[10] := 31;
  m[11] := 30;
  m[12] := 31;
  write('Zadajte aktualny mesiac: ');
  readln(v);
  write('Zadajte aktualny den: ');
  readln(d);
  e:= m[v] + m[pred(v)];
  c:= e+d;
  r:= 365-c;
  writeln('Vysledok: ',r);
  readln;
end.
 


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 19:58

Teraz trosku nechapem co vlastne chces. Predchádzajúci mesiac ?


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 20:00

Zadanie du bolo. Vytvorte program na výpočet zostávajúcich dni do nového roku podla dátumu zadaného užívateľom


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 20:31

Tak to budes zrejme potrebovat aj cyklus alebo si mozes ulozit sucet dni predchadzajucich mesiacov.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 20:38

magic teraz som skusal cyklus repeat no neviem ako mam zadefinovat until pomôžeš mi ?


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 20:44

Potrebujes prejst vsetky prvky pola m s indexom mensim ako je vybrany mesiac. Repeat by som nepouzival v tomto pripade.


Offline

Užívateľ
Užívateľ
Zadanie v Pascali

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 15.11.2016 20:48

idem radcej spat. kaslem na to


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.08.11
Prihlásený: 14.12.23
Príspevky: 2361
Témy: 11
Príspevok NapísalOffline : 15.11.2016 21:02

To je dobry pristup. To sa dostanes daleko.


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3
Príspevok NapísalOffline : 16.11.2016 8:50

Mohol si hneď napísať zadanie, nech sme viac v obraze. Bez toho môžeme len hádať, na čo to vlastne potrebuješ.
Takže takto: pole máš urobené správne, máš tam počet dní vo všetkých mesiacoch. Načítanie mesiaca a dňa je správne, pohoda.
No a potom urobíš niečo takéto (zapísané pseudokódom, stačí opraviť do pascalu)
Kód:
pocetDni = 0;
for i = 1 to zadanyMesiac-1 { prejdi vsetky predchadzajuce mesiace }
    pocetDni = pocetDni + m[i]; { pricitam pocet dni tychto mesiacov }

pocetDni = pocetDni + zadanyDen; { pricitam pocet dni v aktualnom mesiaci - tzn. pocet dni nacitany od uzivatela }

{ vysledok je pocetDni }

Nájdi si, ako funguje for cyklus (pozor! dodrž tých 20 minút).







_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám!
Offline

Skúsený užívateľ
Skúsený užívateľ
Zadanie v Pascali

Registrovaný: 24.01.08
Prihlásený: 13.09.17
Príspevky: 14572
Témy: 66
Bydlisko: Žilina
Príspevok NapísalOffline : 16.11.2016 10:40

BX, práve si mu zrušil časť výučby a povedal by som, že tú najdôležitejšiu - vymyslenie algoritmu. Prepísanie algoritmu do konkrétneho jazyka vie urobiť aj cvičená opica.







_________________
C#, PHP, ...
Odpovedať na tému [ Príspevkov: 34 ] Choď na stránku: 1, 2 ďalšia


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Hra v Pascali

v Assembler, C, C++, Pascal, Java

2

506

13.12.2009 17:30

unknown Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. programovanie v Pascali

v Assembler, C, C++, Pascal, Java

2

1738

09.05.2007 21:30

audiotrack Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. 2 prog. v pascali

v Assembler, C, C++, Pascal, Java

5

716

19.12.2007 14:25

Paljak Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Tuke - zadanie

v Assembler, C, C++, Pascal, Java

8

2034

12.12.2017 11:58

Skippy Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. zadanie c++

v Assembler, C, C++, Pascal, Java

4

1012

06.06.2008 18:25

pccom Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. kniha zadanie

v Assembler, C, C++, Pascal, Java

2

356

04.11.2017 16:56

camarovk19 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. C++ zadanie

v Assembler, C, C++, Pascal, Java

2

641

14.03.2017 16:27

void Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. CISCO zadanie

v Krčma

9

1765

25.12.2012 18:12

Vikinger Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. assembler zadanie

v Assembler, C, C++, Pascal, Java

1

1009

09.03.2010 20:27

ac.milan Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. potrebujem spravit zadanie

v Assembler, C, C++, Pascal, Java

6

912

09.05.2008 10:46

toma-mato Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zadanie sieťových poverení

v Siete

4

2990

14.02.2018 10:09

mr.johnsik007 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zadanie Karel - trojuholníky

v Assembler, C, C++, Pascal, Java

2

757

17.11.2017 11:13

Vetrolam Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zadanie v pascale

v Assembler, C, C++, Pascal, Java

15

1476

04.10.2008 17:40

dsljohn Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. databaza 9gag zadanie

v Databázy

1

476

17.03.2016 17:09

Kraliček Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. zadanie algoritmizacia, pascal

v Assembler, C, C++, Pascal, Java

0

404

03.11.2012 12:56

csabika001 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. FIIT STU - zadanie testu

v Vzdelanie, štúdium, škola

0

959

12.10.2016 18:26

Miso122 Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra