[ Príspevkov: 34 ] 1, 2
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 | 52
Bydlisko: Dubovce
NapísalOffline : 15.11.2016 17:44 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:09 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:18 | Zadanie v Pascali

@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 | 11
NapísalOffline : 15.11.2016 18:19 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:20 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:21 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:23 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:34 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:35 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:36 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:40 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:43 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:46 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:52 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 18:55 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 18:57 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 19:00 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 19:07 | Zadanie v Pascali

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ý: 26.04.26
Príspevky: 20990
Témy: 79 | 79
Bydlisko: Banska Byst...
NapísalOffline : 15.11.2016 19:11 | Zadanie v Pascali

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 | Kingston FURY 32GB DDR4 3600 MHz CL18 Beast Black | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 32" Samsung ViewFinity S60UA | 3x Noctua NF-S12B redux 1200 PWM
Xiaomi 14T 256GB
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 | 3
NapísalOffline : 15.11.2016 19:46 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 19:52 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 19:58 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 20:00 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 20:31 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 20:38 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 20:44 | Zadanie v Pascali

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 15.11.2016 20:48 | Zadanie v Pascali

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 | 11
NapísalOffline : 15.11.2016 21:02 | Zadanie v Pascali

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 | 3
NapísalOffline : 16.11.2016 8:50 | Zadanie v Pascali

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: 14571
Témy: 66 | 66
Bydlisko: Žilina
NapísalOffline : 16.11.2016 10:40 | Zadanie v Pascali

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, ...
 [ Príspevkov: 34 ] 1, 2


Zadanie v Pascali



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 Backend

2

598

13.12.2009 17:30

unknown

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

programovanie v Pascali

v Backend

2

1824

09.05.2007 21:30

audiotrack

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

2 prog. v pascali

v Ostatné

5

801

19.12.2007 14:25

Paljak

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

CISCO zadanie

v Krčma

9

1864

25.12.2012 18:12

Vikinger

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

assembler zadanie

v Backend

1

1095

09.03.2010 20:27

ac.milan

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

Tuke - zadanie

v Ostatné

8

2284

12.12.2017 11:58

Skippy

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

zadanie c++

v Backend

4

1102

06.06.2008 18:25

pccom

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

kniha zadanie

v Backend

2

438

04.11.2017 16:56

camarovk19

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

C++ zadanie

v Backend

2

760

14.03.2017 16:27

void

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

zadanie algoritmizacia, pascal

v Ostatné

0

498

03.11.2012 12:56

csabika001

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

Jazyk C, zadanie

v Kôš

0

22

05.12.2021 12:10

meechal

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

potrebujem spravit zadanie

v Backend

6

1004

09.05.2008 10:46

toma-mato

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

Zadanie sieťových poverení

v Siete

4

3855

14.02.2018 10:09

mr.johnsik007

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

Zadanie Karel - trojuholníky

v Backend

2

897

17.11.2017 11:13

Vetrolam

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

Zadanie v pascale

v Ostatné

15

1604

04.10.2008 17:40

dsljohn

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

databaza 9gag zadanie

v Databázy

1

574

17.03.2016 17:09

Kraliček



© 2005 - 2026 PCforum, edited by JanoF