» Poradna » Programy

Pomůže někdo s pascalem?

 |   | 

Potřebovala bych pomoci s naprogramováním těchto programů, jsem zoufalá a nevím jak na to.1) Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula a zjistí, zda je tato posloupnost klesající (další číslo vždy menší než předchozí).2) Je dano 20 cisel. Sestavte program, podle ktereho se vytisknou dana cisla jednak v zadanem poradi a pak v opacnem poradi, vzdy po 5 cislech na jednom radku. Nakonec vytisknete vsechna ta cisla, ktera jsou mensi nez cislo A, ktere se precte jako prvni.3)SESTAVTE PROCEDURU PRO NALEZENI NEJVETSIHO CISLA V DANEM POLI O N CISLECH  A URCENI JEHO INDEXU. POUZIJTE TETO PROCEDURY PRO RESENI TETO ULOHY: JE DANO N CISEL (N<=100). VYTISKNETE JE V PORADI OD NEJVETSIHO DO NEJMENSIHO TAK ZE NEJPRVE NAJDETE NEJVETSI CISLO, ZE ZBYTKU OPET NEJVETSI, ATD. AZ DO POSLEDNIHO. PROVEDTE PRO TYTO SKUPINY:    -1,7,-8,9,-3,0,4;  0,2,5,-1,-3,-6,7,9,-2. Za jakoukoli pomoc předem děkuji. Zuzana Hanáková

Odpovědi na otázku

 |   | 

No a s cim mas problem?

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

No se vším, nevím vůbec jak na to. Takové věci jako nadeklarovat proměnné to zvládnu, ale vymyslet ten algoritmus je nad mé chápání. Holt, blbá žeská

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

Škoda, že na tebe nedošáhnu, jednu bych ti lípla, dobrovolně se shazovat jako že "jsem jen blbá ženská" se může jen totální husa Sorry

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

"jsem jen blba zenska" vetsinou znamena "jsem lina zenska, chlapi udelejte to za me"

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

keď pozmením tvoju odpoveď tak to znamená aj: chlapi spravte mi to (=chlapi udelejte to za me).

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

1. príklad je tu: http://stredoslovak.szm.sk/ dufam ze plati pre vsetky moznosti.

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

Děkuju, tak první příklad mám

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

Děkuju, tak první příklad mám

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

vzdy ked sem pise zenska sa mi zda ze to nepise zenska ale chlap ktory sa nechce strapnit resp. chce a potrebuje pomoct. No a chlapi radsej poradia nejakej "buchte"...ze jo?

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

mozna by to bylo lepsi to pochopit nez to nekde opsat.. ono se dost spatne vysvetluje neco, cemu nerozumis.. Hezky si maluj vyvojove diagramy, asi me tu zkuseni ukamenuji, bo u tak primitivnich uloh nic podobneho neni treba, ale pro zacatek je to lepsi :) mel jsem spoluzaka, ktery nebyl schopny dat dokupy ani to.. to uz se pak programuje dost mizerne.. prepsat do kodu zvladne kazdy

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

Ako vidim zacalo skuskove... Vzdy vravim, ked niekto nevie, tak je to ok, ale ked niekto nechce vediet tak to uz je hanba. BTW: nemas vycitky voci spoluziakom, ktory sa tomu venovali, stravili nad tym kopu casu a dostanu rovnaku znamku ako ty? Alebo nebodaj horsiu, lebo si to nenechali napisat od profika?Ale myslim, ze blby sme my chlapi, urcite sa najde nejaky ktory jej to urobi za darmo, len pre dobry pocit. Namiesto toho aby si vypytal poriadny sex

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

Přesně tak, všechny mé spolužačky měly státnice z informatiky dřív než já ... ačkoliv neumí naprogramovat vůbec nic. Takovej je holt život!

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

Poznám veľa ľudí, ktorí, keď by chceli niečo programovať, tak ani nezačnú a nechajú to tak. Totiž, oni nie sú programátori a v živote neprogramovali a ani neprogramujú a ani programovať nebudú. Títo ľudia sa zvyčajne s programovaním nestretnú, takže nie je ani možnosť, aby sa stali také situácie, že by niečo chceli naprogramovať. Dúfam, že ma všetci pochopili, čo som tým myslel.A teraz k tebe: Tým som chcel povedať, že načo sa pcháš do programovania, keď ťa to nebaví. A načo ti taký primitívny program vlastne je? Veď som sa nestretol s tým, že by okrem študentov, niekto také programy aj písal. Študenti to píšu kvôli škole. Iné uplatnenie tieto programy vlastne ani nemajú. Oni sa vlastne takto učia programovať. Lenže oni keď majú napísať tento program, tak už nejaké znalosti z programovania majú a tieto znalosti im stačia na to, aby ten program napísali. Načo teda chceš napísať taký program, keď nemá využitie? Pochybujem, že si študentka, pretože inak by si sa poctivo v škole učila a teraz by si nás neotravovala s takými sprostaosťami. Veď keď nie si študentka, tak ten program nepotrebuješ. Ak sa učíš programovať vo voľnom čase, tak takýto program začneš písať až potom, keď už niečo vieš. Ale ty nič nevieš, tak načo nás s týmto otravuješ, keď to v živote nebudeš potrebovať do školy ani na vlastnú výuku programovania. BTW: Ešte, že vyrábajú veľké disky, lebo by nám tieto blbé príspevky zahltili server živě a my by sme nemali našu poradňu.

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

Já bych zase nutně potřeboval jednoduchý prográmek, který by šel spustit z příkazové řádky dosu, aby přejmenoval soubor se jménem org.csv na organizace.csv. Určitě je to naprostá prkotina, ale jednak nemám žádné vývojové prostředí pro Pascal a ani ho neznám a nemám moc času teď něco zkoušet. Předem děkujiPokud by slo zaslat na mail pcmzdy@pcmzdy.cz

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

Ve Windows je přikaz "rename".

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

To já vím taky, ale potřebuji z dosového programu spustit externí program pod Windows, který provede to přejmenování. Ono to právě nejde ani přes BAT, protože když spustím BAT pod Windows, tak je to v pořádku, přejmenuje kratší na dlouhý, ale když ten samý BAT spustím z dosového programu, ořízne dlouhé jméno na 8

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

To nejde. DOS nepodporuje dlouhé názvy. Jedině zkusit zavolat z DOSového programu pod Windows příkaz "cmd" s potřebnými parametry.

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

Boze a to preco chces sprogramovat taku splacaninu? Z DOSoveho programu volat program Windowsovy Preloz si ten tvoj "dosovy" program ako konzolovy windows program a bude ti vsetko fungovat a nic sa nebude orezavat. Nemalo by byt potreba ani vela uprav, zavisi v com mas napisany ten "DOSovy" program...

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

"...Sestavte program, podle ktereho se vytisknou dana cisla jednak..."Opravdu se ma vystup tisknout (na tiskarne)?

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

Tím tiskem je myšleno vypsat na obrazovku.

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

uz som spravil aj 3. príklad. a je na stredoslovak.szm.sk

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

Děkuji, ja si to dodělám a doupravuji sama.

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

třetí příklad: program Vejce;uses crt;var data: array [1 .. 10] of integer; i:byte; k:integer; sorted:boolean; r:byte;beginclrscr;r:=0;data[1]:=20;data[ 2]:=6;data[3]:=5;data[4]:=10;data[5]:=5;data[ 6]:=8;data[7]:=15;data[8]:=5;data[9]:=2;data[ 10]:=1;repeatfor i:=1 to 9 doIf data[i]>data[i+1] then begink:=data[i+1];data[i+1]:=data[i];data[i]:=k;sorted:=false;write(data[1],' ',data[2],' ',data[3],' ',data[4],' ',data[5]);writeln(' ',data[6],' ',data[7],' ',data[8],' ',data[9],' ',data[10]);r:=r+1;if r=20 then beginreadln;r:=0; end; end;until sorted;readln;end.

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

neviem ako tebe ale mne to takmer nejde.po vymazani tohto prvku < br> a po spusteni sa to sice usporiada(od najmensieho po najvacsie-malo to byt naopak) ale mne sa to zacykli.

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

toto asi tazko bude fungovat, chyba ti tam sorted := true; za riadkom "repeat". Inac to co si napisal sa vola "bubble sort" algoritmus, v urcitych pripadoch (vstup zoradeny naopak) je silne neoptimalny. Najoptimalnejsi ale najzlozitejsi je quicksort (zaciatocnikom neodporucam ho programovat), ja mam na jednoduche veci najradsej sposob dvoch vnorenych pevnych cyklov (for) a vo vnutornom cykle hladanie maxima resp. minima a vo vonkajsom cykle prehodenie "prveho" prvku s maximom/minimom.

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

uz je tam aj 2. priklad

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

No tak tu je tych programov... a sakra... a aj ich niekto vzpracoval... no toto... to su dnes sikovny ludia... skoda ze ja nemam cas na to...

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

Související témata: Zuzana, Posloupnost


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

Zahodil jsem Windows, přešel na Linux a nezbláznil se z toho

Zahodil jsem Windows, přešel na Linux a nezbláznil se z toho

** Měsíc jsem se nedotkl Windows a byl závislý jen na Linuxu ** Jaká byla pozitiva a negativa přechodu? ** Se kterými aplikacemi jsem (ne)zápasil a které bych doporučil?

Lukáš Václavík | 243

Filmové pirátství asi jen tak nezmizí. Když už musíte, stahujte bezpečně v Seedru

Filmové pirátství asi jen tak nezmizí. Když už musíte, stahujte bezpečně v Seedru

** Máme HBO Go, máme Netflix... ** Ale stejně krademe filmy a seriály ** Když už musíte, stahujte torrenty bezpečně v Seedru

Jakub Čížek | 141

10 věcí, které nás štvou na Windows 10 a bohužel asi jen tak nepřestanou

10 věcí, které nás štvou na Windows 10 a bohužel asi jen tak nepřestanou

** Windows 10 je na trhu 5 let, ale pořád má velké rezervy ** Ani desátá velká aktualizace, která vyjde na podzim, je nevyřeší ** Štvou nás Windows Update, Store, Nastavení atd.

Lukáš Václavík | 146

Nvidia představila grafické karty GeForce RTX 3090, RTX 3080 a RTX 3070. Známe české ceny

Nvidia představila grafické karty GeForce RTX 3090, RTX 3080 a RTX 3070. Známe české ceny

** Nvidia uvedla nové desktopové grafické karty GeForce RTX 3000 ** Jedná se o modely GeForce RTX 3070, 3080 a 3090 ** K výrobě se používá 8nm technologii od Samsungu

Karel Javůrek | 67


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ě