Pascal banalita -jde mi o postup do 4taku - potrebuju to do zitra – Pascal – Fórum – Programujte.com

Ahoj přátelé, potřebuju HELP  s touto úlohou: V hereckém týmu chybí představitel Dlouhého, proto se vypsal konkurs. Zvítězí nejvyšší herec. Napište program, který bude přijímat hodnoty o výškách jednotlivých herců. Po zadání nulové výšky program vypíše výšku nejvyššího přihlášeného herce.  , jde mi o postup do čtvrťáku    Vím že je to banalitní.! Děkuji.

Ano, je to banalita. A to taková, že pokud si máš zasloužit postup do čtvrťáku, tak bys takto snadnou úlohu měl zvládnout sám a bez pomoci - jsou to naprosté základy. Měl bys být schopen tu úlohu analyzovat do jednoduchého algoritmu a ten pak pouze přepsat do programovacího jazyka - žádné triky ani úskoky v tom nejsou. A pokud toho nejsi schopen, proč by ti měl někdo pomáhat lhát a podvádět? Jaký v tom smysl falšovat, že's jsi něčeho schopen, když nejsi? Já opravdu nechci žít v republice podvodníků, lhářů a rychlostudentů, kteří se od dětství neučí ničemu jinému než jak ostatní očůrávat, falsifikovat svoje neschopnosti a získávat tak lepší příležitosti než ti, kteří se poctivě učí.

Přeju ti, aby ti nikdo ten program neudělal, a musel sis ho napsat sám. Věř, že je to pro tvoje dobro.

#2 kriplozoik
A jo no...to je pravda, ale co kdybych Vám řekl, že se tím nechci živit a,..že se chci živit jako grafik. Nic víc nic míň. Jsem nadanej na garfiku a na tu se už dlouho zaměřuju. Tady se mi jedná jen o tenhle program...programování mě nikdy nebavilo...ale mám ho jako předmět.

#3 Andy
tak zacneme zakladama.. jak vypada uplnej zaklad programu v pascalu?

program cyklus_konkurs;

var a,b,c,d: integer;
 
begin
 
writeln ('Zadej velikosti hercu.'); readln (a); writeln ('Pis.');
c:=10000;
for d:=1 to a do
begin
readln (b);
if c<b then c:=b;
end;
writeln ('nejmenší je ',c);
readln
end.                                                                                  

Tohle sem vymyslel

Prosí o uzavření tématu !!!!!

to funguje?

Prosím o uzavření tématu!!

#5 Andy
No vida, to je o trochu lepší. Takhle bych ti možná i poradil. Podle mě po tobě ze zadání chtějí, abys četl z klávesnice výšky herců *dokud* nebude zadána nulová výška. Nikde není psáno, že počet adeptů (který zmatečně nazýváš "velikosti hercu") bude znám. Proto si myslím, že místo cyklu for se bude víc hodit cyklus repeat...until.
Doporučil bych, abys pojmenovával proměnné podle toho, co v sobě budou uchovávat, tedy žádné a, b, c, d. Při složitých programech bys brzy ztratil kontrolu, která je která.
Dívám-li se dobře, tvůj program určuje minimum, podle zadání má určovat nejvyšší výšku, tedy maximum.
A měl bys tam mít i vyskočení z cyklu (break), pokud je zadána nulová výška.

Během 5 minut se to dá zvládnout i v kvartě: 

Program Konkurz;
var novaVyska: integer;
    nejvyssiVyska: integer;
begin
    nejvyssiVyska := 0;
    writeln('Pis vysky hercu, pro vyhodnoceni zapisu napiste: 0');
    repeat
        readln(novaVyska);
        if (novaVyska > nejvyssiVyska) then
            nejvyssiVyska := novaVyska;
    until novaVyska = 0;
    writeln('Zvitezil herec s vyskou: ' ,nejvyssiVyska, ' cm.');
    readln();
end.

funkční a jednoduchý kód..