Matematické Fórum

↑ Clown:
A co ti na tom není jasné?
Nadefinuješ pole o 4 prvcích a do něj dáš náklady na jednotlivá čtvrtletí.
To uděláš tím požadovaným cyklem for i := 1 to 4 do ...
Pak ty náklady sečteš (opět pole, mohlo by to být i v tom prvním)
Potom budeš porovnávat náklady na jednotlivá čtvrtletí zase cyklus, na začátku bude maximum to první čtvrtletí a toto číslo budeš porovnávat se druhým, pokud to druhé bude větší než první, tak mu přiřadíš maximum. Tak to provedeš až do 4.čtvrtletí - v proměnné maximum budeš mít tu největší hodnotu. Pak opět v cyklu budeš porovnávat tu maximální hodnotu s prvky pole a až se bude maximální hodnota rovnat hodnotě určitého čtvrtletí, tak si zapíšeš při jakém indexu pole to nastalo. Pokud budeš mít cyklus číslovaný od 1 do 4, pak číslo bude udávat hodnotu příslušného čtvrtletí. (Budeš tedy mít čtvrtletí a k němu i jeho výši)
To samé uděláš pro zjištění minima. (pouze samozřejmě hledáš menší hodnotu)
A to je vše.

↑ Clown:
Stejný příklad tady. Třeba tam něco najdeš.

↑ Clown:
Ne. Pro sečtení celkových nákladů stačí

for i:=1 to 4 do celkem:=celkem+pole[i]

Poznámka: proměnnou celkem je před cyklem nutné nastavit na 0

Umíš for-cyklus nebo ne? Pokud ne, je třeba hledat jiné řešení.

↑ Clown:
Jinak ano toto není dobře.

Integer; i := 1 to 4 do

Připadá mi to jako nepovedená deklarace proměnné.

begin i := 1 to 4 do

Nejspíš pokus o for-cyklus

O co se má jednat?

↑ janca361:

já nevím o co se má jednat, já si furt čtu to zadání učitele a nechápu to a nejlepší je na tom že já mám ještě 2 takovýhle podobný úkoly a fakt nevím jak na to....
jinak, s tím co jsi mi napsala zkusím něco udělat, uvidím co dám dohromady

↑ janca361:
byl bych rád :) pro mě je ten pascal fakt nebe a dudy Problém je ten že asi nevím co je proměná, deklarovat a jak ten algoritmus dát dohromady, já fakt nevím :( už od odpoledne nad tím sedím a fakt nevím! :( učitel to vysvětluje úplně na pí*u a myslí si jakej je programátor. Já už nevím :(((

↑ janca361:

hodnoty? to myslíš to 1 až 4?

↑ janca361:
takže nějak Writeln( 'ctvrtleti 1')
                  Readln(vysledek)?

promiň že tě tím tolik zatěžuju :(... načíst hodnoty? to můžu jakýkoliv číslo? nebo co myslíš těma hodnotama???

2) určit nejnižší a nejvyšší náklady

Obecně to máš tady.

Pro tvůj případ to bude takto:

↑ Clown:
Ne.
Bude to takto:

program domacnost;

var pole:array[1..4]of integer; {pole pro zaznam nakladu}
  max,min,celkem,i:integer;

begin 

for i:=1 to 4 do 
  begin
    write('Zadej naklady za ',i,'. ctvrtleti: ';
    readln(pole[i]);
  end;



end.

Proč toto?

begin i := 1 to 4 do

Jinak ještě jsme dopsala proměnnou i

↑ Clown:
K tomuto úkolu pokračuj tady.
Nic se neděje, kdybych nechtěla pomoct, neměla čas, nepíšu sem.
Hodně zdaru.