Domácí ukol, pascal, pomoc ! prosím – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Domácí ukol, pascal, pomoc ! prosím – Pascal – Fórum – Programujte.comDomácí ukol, pascal, pomoc ! prosím – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
26. 10. 2013   #1
-
0
-

Jedná se o první ukol v mém oboru bohužel jsem na začátku nikdy jsem neprogramoval a učitel na nás vybalil tohle: věřím že je to jednoduché, bohužel jsem to nikde na internetu nenašel. prosím o zdrojový soubor nebo kod. děkuji.

1. ukol

1. Je dán počet vstupních hodnot N a dále posloupnost N čísel a1, a2, …, aN. Všechna zadaná čísla jsou celá a jsou z rozsahu datového typu integer (mohou být kladná i záporná), hodnoty se v posloupnosti mohou opakovat. Napište program, který určí v zadané posloupnosti maximální hodnotu a počet jejích výskytů. Například pro vstup ve tvaru

     13

     4  7  4  4  4  5  7  5  7  5  7  7  7

bude výsledkem dvojice čísel

     7  6

neboť maximální hodnotou v posloupnosti je číslo 7 a nachází se tam celkem šestkrát.

Nahlásit jako SPAM
IP: 82.100.31.–
Reklama
Reklama
KIIV+42
God of flame
26. 10. 2013   #2
-
0
-

A s cim konkretne potrebujes pomoci? Radime tu "jak pokracovat" kdyz se nekdo zasekne, nedelame tu trivialni domaci ukoly .. 

Dokazes aspon popsat jak bys toto resil ty sam, kdyz bys videl jen jedine cislo a pamatoval si jen to co si nekam zapises?

Nahlásit jako SPAM
IP: 93.91.152.–
Program vždy dělá to co naprogramujete, ne to co chcete...
pwr0
Duch
27. 10. 2013   #3
-
0
-

#2 KIIV
Muzu udelat pomoci array? nebo existuje lehci varianta?

Nahlásit jako SPAM
IP: 194.228.13.–
KIIV+42
God of flame
27. 10. 2013   #4
-
0
-

samozrejme ze existuje snadnejsi varianta... prvni cislo das jako maximum a do poctu 1...

kdyz narazis na dalsi cislo vetsi nez aktualni maximum, tak zmenis maximum a zase pocet na 1

a kdyz se maximum rovna aktualnimu cislu tak jen pricitas poctu.. jinak nic

Nahlásit jako SPAM
IP: 93.91.152.–
Program vždy dělá to co naprogramujete, ne to co chcete...
27. 10. 2013   #5
-
0
-

#4 KIIV
no třeba v excelu bych to dal. ale ne v tomhle?. vůbec nikdy jsem v pascalu nedělal. :-( a mam to mít dneska hotové. koukam aspon na tutorial v pascalu ale než zkouknu všechny dily a naučim se to bude to tak nejdříve za týden. :-(

Nahlásit jako SPAM
IP: 82.100.31.–
2. 11. 2013   #6
-
0
-

Nedoporučuji, velmi špatné forum. nikdo nedokáže vysvětlit jednoduchost..

Nahlásit jako SPAM
IP: 82.100.31.–
KIIV+42
God of flame
2. 11. 2013   #7
-
0
-

Jako ze bych to vysvetlil plne funkcnim programem? Sis spletl forum o programovani s "udelame za vas kazdy domaci ukol zadara a ve svem volnem case... obzvlaste kdyz ste to zacali delat hodinu pred odevzdanim a napisete do nazvu vlakna: pomoc, prosim!"

Nahlásit jako SPAM
IP: 94.112.35.–
Program vždy dělá to co naprogramujete, ne to co chcete...
2. 11. 2013   #8
-
0
-

Je to úplně jinak. hlavně kdybych viděl jak to vypadá díky tomu bych se učil. snažím se už přes týden hledat na webu jak stím programem vůbec dělat atd. zapoměl jsem že dnes zadara ani kuře nehrabe. no nic díky.

Nahlásit jako SPAM
IP: 82.100.31.–
KIIV+42
God of flame
2. 11. 2013   #9
-
0
-

ja spis nechapu, co bys k tomu asi tak na webu mohl najit... takhle trivialni programy nema smysl ani moc rozebirat jako "elaboraty"

proste zacnes programem na zjisteni maxima, a pak k tomu jeste pridas pocitadlo kdyz je cislo stejne jako maximum, tak se k nemu pricte (a pokud si nasel neco vetsiho tak to pocitadlo nastavis zase na 1)..

Nahlásit jako SPAM
IP: 94.112.35.–
Program vždy dělá to co naprogramujete, ne to co chcete...
2. 11. 2013   #10
-
0
-

bohužel jsem v prvním semestru a vživotě jsem neprogramoval chodim na každou přednášku a jen co z toho mam je matika, matika a matika žádna praxe nix. nic nám v programu zatím neukazujou a to máme vněm dělat.

Nahlásit jako SPAM
IP: 82.100.31.–
sparky290
Návštěvník
2. 11. 2013   #11
-
0
-

program blbost;

var pocethodnot: byte;

    hodnota: integer;

    maximum: integer;

    pocetmaxim: byte;

    I: byte;

begin

  maximum:=-maxint;

  pocetmaxim:=0;

  read(pocethodnot);

  for I:=1 to pocethodnot do

                            begin

                              read(hodnota);

                              if hodnota > maximum then

                                                        begin

                                                        maximum:=hodnota;

                                                        pocetmaxim:=1;

                                                        end

                             else if hodnota < maximum then

                                                        begin

                                                        end

                             else

                             begin

                              inc(pocetmaxim);

                             end

                            end;

        writeln(maximum);

        writeln(pocetmaxim);

end.

Nahlásit jako SPAM
IP: 78.156.128.–
2. 11. 2013   #12
-
0
-

Moc děkuji, jdu to zkusit snad je to ono. jsem moc vděčný.

Nahlásit jako SPAM
IP: 82.100.31.–
sparky290
Návštěvník
2. 11. 2013   #13
-
0
-

Diky za tip spravil jsem to a neslo to ale nejak na to prijdu

Nahlásit jako SPAM
IP: 78.156.128.–
sparky290
Návštěvník
2. 11. 2013   #14
-
0
-

sorry to bylo k jinemu prispevku

Nahlásit jako SPAM
IP: 78.156.128.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 9 hostů

Podobná vlákna

Domaci ukol — založil Jakub

Domácí úkol — založil Ondra

Domáci úkol — založil Franta

Domácí úkol — založil Anonim

Domácí úkol — založil jelis

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý