» Poradna » Programy

Delphi program

 |   | 

Dobrý den. Začínam v Delphi a ve škole jsme dostali program k vyřešení a nevim jak na to. Pokud můžete pomoci budu velice rád. Děkui předem. JirkaProgram: (musí to být jednoduchými proměnnými-nesmi to být polem, jen pomocí cyklu)Program načte přirozené číslo N (N>2) a dále posloupnost N přirozených čísel a zjistí, zda je tato posloupnost aritmetická.Slo by to poslat na: jirivymazal@seznam.cz

Odpovědi na otázku

 |   | 

Slo by ti pomoct s konkretnim problemem v kodu, ale neslo by ti pomoct tak, ze nekdo za tebe napise domaci ukol.Pokud sem das kod, ktery jsi napsal a v nem budes s necim potrbovat poradit, neni poblem.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

no nevím jak porovnávat dve čisla vedle sebe abych zjistil jestli je mezi vsemi stejný rozdíl(

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

otestujes zda nasledujici cislo je o konstantu vetsi nez predesle cisloa zda je ta konstanta stejna pro vsechny po sobe jdouci dvojice.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

diky ale jak to mam udelat v programu? Chce to nejky cyklus ne?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

nejdriv odectu první dve čisla a zjistím rozdíl a pak musim zjistit rozdím mezi 2 a 3 cislem ale jak kdyz to druhy se mi smaze ne?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

delphi neumim takze jen pseudo-kod:je_to_aritmeticka_rada=1nacti_cislo(cislo1) macti_cislo(cislo2)konstanta1=cislo2-cislo1cislo1=cislo2 dokud(je_to_aritmeticka_rada rovna se 1)cyklus: nacti_cislo(cislo2) konstanta2=cislo2-cislo1 kdyz(konstanta2 se nerovna konstanta1) pak je_to_aritmeticka_rada=0 konstanta1=konstanta2 cislo1=cislo2konec cyklukdyz(je_to_aritmeticka_rada rovna se 1) vytiskni("ano, je to aritmeticka rada")jinak vytiskni("ne, neni to aritmeticka rada")

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Jak by program mohl fungovat:nacti cislonacti cislozapamatuj rozdilzapamatuj druhe cislozacatek cyklunacti cislozkontroluj rozdilrozdil je stejny, zapamatuj cislo a pokracuj v cyklurozdil nesouhlasi, ukonci cyklus

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Posloupnost


Určitě si přečtěte

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

** Rozhodujete se mezi Netflixem a HBO Go? Věřte, bude hůř ** Na trhu je mnohem víc ambicióznějších streamovacích služeb ** Některé by mohly do ČR zamířit ještě letos

Lukáš Václavík | 45

Porovnání deseti cloudových disků: kam a za kolik uložit 100 GB, 1 TB a 10 TB dat?

Porovnání deseti cloudových disků: kam a za kolik uložit 100 GB, 1 TB a 10 TB dat?

** Zjistili jsme, kam do cloudu nejvýhodněji uložíte data ** Vytvořili jsme žebříček cen deseti cloudových úložišť ** Ceny se liší - často i velice výrazně!

Karel Kilián | 102

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

** Honor u nás přichází s prvním telefonem bez Google Mobile Services ** Současný stav je lepší než na začátku, ideální ale není ** Zkusili jsme i hack s ručním přidáním služeb Googlu

Tomáš Holčík | 162

Otestovali jsme 8 mobilů do 8 000 Kč: rozdíly ve výkonu jsou ohromné

Otestovali jsme 8 mobilů do 8 000 Kč: rozdíly ve výkonu jsou ohromné

** Mobil za 8 000 Kč uspokojí většinu uživatelů ** Klasické foťáky stačí, širokáče ale zklamaly ** Zásadní jsou rozdíly ve výkonu

Časopis Computer | 3

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 4

Podívejte se, co dokáže vyrobit jedna z nejexotičtějších 3D tiskáren v Česku

Podívejte se, co dokáže vyrobit jedna z nejexotičtějších 3D tiskáren v Česku

** Na jaře tiskla unikátní české respirátory ** Používá ji třeba Škoda Auto, a.s. ** Zajeli jsme se podívat do pražského showroomu 3Dees

Jakub Čížek | 11

ATM jackpotting: Když hacker ovládne bankomat a stačí mu jen pár sekund

ATM jackpotting: Když hacker ovládne bankomat a stačí mu jen pár sekund

** Klasický malware pro PC už dnes nikoho nepřekvapí ** Bankomaty jsou ale také počítače ** Útočí se na ně dodnes

Jakub Čížek | 7


Aktuální číslo časopisu Computer

Megatest mobilů do 8 000 Kč

Test bezdrátových headsetů

Linux i pro začátečníky

Jak surfovat anonymně