Rychlosti NALÉHAVÉ – Pascal – Fórum – Programujte.com

Ahoj dostal jsem od učitelky úkol, abych udělal program přes cyklus. Učili jsme se zatím jen FOR, REPEAT a WHILE. Já si nevím rady tak mi ten program prosím někdo napište. Zadání je: Vypočítej průměrné rychlosti 10 aut a pak by měl program vybrat maximální a minimální rychlost. Tak to prosím někdo zkuste spěchá to. Díky

Obávám se, že úkoly tu za tebe nikdo psát nebude. Pošli část kódu kterou už máš a řekni co ti nefunguje, poradíme:)

To Cherokee007 :
To hlavní ti řekl Chrasty. Já jen doplním:
- Víc cyklů než for, repeat a while neexistuje, takže znáš všechno, co potřebuješ.
- Pro ukládání rychlostí bude nejvhodnější pole čísel (array).
- Hledání největší a nejmenší hodnoty už se tu řešilo mockrát, hledej.
- Výpočet průměrné rychlosti znamená sečíst všechny rychlosti a podělit počtem aut.

Tak tady je to co mi nejde hází to všelijaké chyby a nejde to tak nějak celkově tak se mi na to prosím někdo mrkněte díky.

program vypocet;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var s,t,i:integer;

   v: array[1..10] of real;

   sucet,priemer:real;



procedure bubblesort;

var k,l:integer;

    p:real;

begin

  for k := 1 to 10 do begin

    for l := 1 to 9 do begin

      if v[l] < v[l+1] then begin

        p := v[l];

        v[l] := v[l+1];

        v[l+1] := p;

      end;

    end;









    end;

 end;



begin

  { TODO -oUser -cConsole Main : Insert code here }

       for i := 1 to 10 do begin



          write('Zadaj ' + inttostr(i) + '. zaznam v tvare drahaMEDZERAcas: ');

          read(s, t);

          {hned prepocitam na rychlost a zapisem do pola, nech si nemusim pamatat vela veci naraz}

          v[i] := s / t;

          writeln('Rychlost: ',v[i]:0:2);

       end;

       bubblesort;

       for i := 1 to 10 do begin

          sucet := sucet + v[i];

       end;

       priemer := sucet / 10;

       writeln('Sucet: ',sucet:0:2,', priemer: ',priemer:0:2,', najvacsia rychlost: ',v[1]:0:2,'.');

       readln;

       readln; {neviem preco treba 2x readln}





end.

Mircosoft napsal:
To Cherokee007 :
To hlavní ti řekl Chrasty. Já jen doplním:
- Víc cyklů než for, repeat a while neexistuje, takže znáš všechno, co potřebuješ.
- Pro ukládání rychlostí bude nejvhodnější pole čísel (array).
- Hledání největší a nejmenší hodnoty už se tu řešilo mockrát, hledej.
- Výpočet průměrné rychlosti znamená sečíst všechny rychlosti a podělit počtem aut.

>Tocimanko: na foreach povím, že v Pascalu není :smile3:

>Cherokee:
- nevím, jestli má FP ve standardní výbavě (nebo v té jednotce Sysutils) funkci Inttostr. Jestli ti na ní hlásí chybu "unknown identifier", tak ten řádek přepiš na:

write('Zadaj ',i,'. zaznam v tvare drahaMEDZERAcas: ');

To Mircosoft : No fuj. Čo to je za prog. jazyk, ktorý nemá foreach? :D :D Inak nechápem, ako sa dnes ešte môže učiť pascal. Veď to je už prežitok. Ble.

To Tocimanko : Jeden důvod, proč by měl být Pascal přežitek? Řeší se to tady asi 10krát do roka :-). Pascal je IMHO srozumitelnej a jednoduchounkej programovací jazyk, jehož kód může normální člověk číst jako knihu :-). Neznám žádný druhý takový. A Pascal dokáže vše, jako jiné programovací jazyky. Jenom vědět, jak na to. Jestli máš něco proti, zkus si naprogramovat podmínku s else větví v Brainfucku a pak teprve komentuj.

To Garret Raziel: co třeba python to je taky dobrý programovací jazyk a stejně lehký jako pascal.

Dnes sa pascal používa skôr len na vyučovanie programovania niekde v školách, ale nevidel som dávno nejakú poriadnu komerčnú aplikáciu v pascali. Delphi je o inom, ale aj tak celý pascalovský kód na mňa pôsobí tak... divne :(

Pascalovský kod neni nijak divný a je lehky a srozumitelny

To Tomik : To je asi každého osobitná vec, či sa mu pascal páči alebo nie :) Poznám veľa ľudí, ktorí nenávidia pascal :D Ale je fakt, že má celkom jasné príkazy ... Každopádne na VB nemá :)

jasné příkazy to má, ale VB jsem nepochopil vůbec i ktyž jsem hledal na internetu všelijaký návod vůbec mi nic nefungovalo ani nevim proč

ktyž jsem hledal na internetu všelijaký návod vůbec mi nic nefungovalo ani nevim proč

Zpět k tématu.
Cherokee007, tvůj program funguje, nedodělky uprav podle toho, co psal Mircosoft a bude to dobrý.
Ještě doporučuju, upozornit na začátku programu uživatele, že bude zadávat 10 hodnot. Ono když člověk zadává už šestou hodnotu a neví, kdy to bude končit, tak je to dost frustrující.

Dále, smyčka FOR s jedním příkazem. V takovém případě není třeba uzavírat tento příkaz do bloku BEGIN END. Tedy, místo
for i := 1 to 10 do begin sucet := sucet + v[i];end;
stačí for i := 1 to 10 do sucet := sucet + v[i];

Zbytečně také používáš proceduru BubbleSort. To je učebnicový příklad tzv. použití kanónu na vrabce. Ty přece nepotřebuješ setřídit pole, ale jen vybrat největší hodnotu.

Jinak, ForEach v pascalu (včetně TP 6.0 a TP 7.0) je. (je to metoda objektu TCollection, jednotka Objects)