Matematické Fórum

od 2. bodu se dá říct že tomu rozumím ale ty funkce nahoře mi dělají problémy už jen to result vidím poprvé a ty operace kolem něj, nešlo by to nějak obejít ?
každopádně díky za rady ;)

↑ sivaki:
Tak ty funkce předělej třeba na procedury
Např. funkci Vdny přepiš na proceduru
procedure Vdny(den: Tdny; var s1: String);
var  j: Integer;
begin
  s1 := '';
  for j := 1 to 7 do
    if den[j]=1 then
      case j of
        1: s1 := s1+'pondeli ';
        2: s1 := s1+'utery ';
        3: s1 := s1+'streda ';
        4: s1 := s1+'cvrtek ';
        5: s1 := s1+'patek ';
        6: s1 := s1+'sobota ';
        7: s1 := s1+'nedele ';
      end;
end;
a pak řádek
s := Vdny(dny);
přepiš na
Vdny(dny,s);

↑ sivaki:
Tak třeba takto:
    procedure Maxt(x,y: Real; var s2:String);
    begin
      s2 := 'tmax= '+FloatToStr(y)+' st.C, namereno: ';
      case Trunc(x) of
           1..6: s2 := s2+'pondeli ';
          7..12: s2 := s2+'utery ';
         13..18: s2 := s2+'streda ';
         19..24: s2 := s2+'cvrtek ';
         25..30: s2 := s2+'patek ';
         31..36: s2 := s2+'sobota ';
         37..42: s2 := s2+'nedele ';
      end;
      case Trunc(x) mod 6 of
        1: s2 := s2+'v 1.00 hod.';
        2: s2 := s2+'v 5.00 hod.';
        3: s2 := s2+'v 9.00 hod.';
        4: s2 := s2+'v 13.00 hod.';
        5: s2 := s2+'v 17.00 hod.';
        0: s2 := s2+'v 21.00 hod.';
      end;
    end;
A pak místo s := Maxt(tmax[1],tmax[2]);
dát             Maxt(tmax[1],tmax[2],s);

↑ sivaki:
Ne tak to není.
Jak jsou ty hodnoty teplot zadány.
Přeci každý den je naměřeno 6 hodnot.
Ty jsou v poli uspořádány za sebou, takže 1..6 -tý prvek pole odpovídá pondělí, 7..12-tý prvek je úterý atd.
Tohle
case Trunc(x) of
   1..6: s2 := s2+'pondeli '; říká
jestliže je x rovno 1 až 6 potom víme, že je to teplota naměřená v pondělí pro 7 až 12 v úterý atd.
My do té procedury za to x dosadíme proměnnou tmax[1], která obsahuje pořadí  v poli teplot (tedy obsahuje pořadové číslo)
Potom to
case Trunc(x) mod 6 of
    1: s2 := s2+'v 1.00 hod.';
znamená, že jestliže zbytek po dělení čísla x číslem 6 je 1, byla naměřená hodnota naměřena jako první v nějakém dni (ovšemže ten den už jsme zjistili před tím) jestli je to dvojka (2) pak to bylo druhé měření atd.
To, že se pořád píše  s2+'v 1.00 hod.'; je jenom proto, aby v té proměnné s2 byla uložena celá věta.
Po editaci
Já jsem tvůj dotaz špatně pochopil. Ano je to tak jak píšeš. To co jsem napsal před tím ber pouze jako vysvětlení.

↑ sivaki:
Jestli ti to Result nebere, tak to přepiš na procedury.
Poslední (ostatní jsem ti už přepsal) třeba takto:
    procedure Mint(x,y: Real; var s3:String);
    begin
      s3 := 'tmin= '+FloatToStr(y)+' st.C, namereno: ';
      case Trunc(x) of
           1..6: s3 := s3+'pondeli ';
          7..12: s3 := s3+'utery ';
         13..18: s3 := s3+'streda ';
         19..24: s3 := s3+'cvrtek ';
         25..30: s3 := s3+'patek ';
         31..36: s3 := s3+'sobota ';
         37..42: s3 := s3+'nedele ';
      end;
      case Trunc(x) mod 6 of
        1: s3 := s3+'v 1.00 hod.';
        2: s3 := s3+'v 5.00 hod.';
        3: s3 := s3+'v 9.00 hod.';
        4: s3 := s3+'v 13.00 hod.';
        5: s3 := s3+'v 17.00 hod.';
        0: s3 := s3+'v 21.00 hod.';
      end;
    end;
A pak místo s := Mint(tmin[1],tmin[2]);
dát             Mint(tmin[1],tmin[2],s);

Řádek Result := 'tmin= '+FloatToStr(y)+' st.C, namereno: '; (ve funkci), který v proceduře
bude: s3 := 'tmin= '+FloatToStr(y)+' st.C, namereno: ';
přiřazuje proměnné (ve funkci výsledku), v proceduře s3 (potažmo v konkrétním použití procedury proměnné s)
text, který se potom vypíše na obrazovku.
Ten text je: tmin=(hodnota té minimální teploty, uložené v proměnné tmin[2])  st.C, namereno:
No a zatím se pak vypíše, který den a ve kterou hodinu jsem to naměřili.
(proto vždy k té proměnné "přičítáme" ten další text.
Tedy "nový text"="starý text"+"nově přidaný text"
           s3        :=      s3       +     'pondeli ';

tak jsem nad tim este celkově přemejšlel a říkám si že by nemuselo být špatný řešení udělat to pomocí matice jako že třeba řádky budou dny a slopce hodyny, z toho pole si najdu ten největší a nejmenší a pak to musim nějak přiřadit ten řaden a sloupec

tak jsem to ukazoval učitelovi a ten mi říkal ať to udělám pomocí té matice že to bude prej přehlednější
myslim že ru matici zvladnu napsat ale tak nějak nevim jak z te matice vytahnout tu informaci o času a dnu to budu dělat asi nějakým case

takhle nejak mam v planu řešit tu posledni otazku mam to ale zkraceny nechtelo se mi vypisovat vsechny dny
ale zrovna tady mi to nejak nepocita minimalni teplotu nvm ale moc jsem to este nekontroloval
tak se podivej co ty na to :)


program nic;
var m:array [1..6,1..7] of real;
i,j: integer;
tmax:array [1..10,1..10] of real;
tmin: array [1..10,1..10] of real;
tmaxi,tmini: real;
s1,s2,s3,s4: string[40];


begin


for i:=1 to 3 do
  for j:=1 to 3 do
   begin
    write('zadej teplotu v ',i,'. dni a ', j ,'. zadavanou teplotu ');

    readln (m[i,j]);
   end;

    for i:=1 to 3 do
      for j:=1 to 3 do
   begin

       if m[i,j]>tmaxi then
       begin
         tmaxi:= m[i,j];
         case i of
         1: s1:= 'pondeli';
         2: s1:= 'utery';
         3: s1:= 'streda';
         end;

         case j of
         1: s2:= '1.cas';
         2: s2:= '2.cas';
         3: s2:= '3.cas';
         end;
       end;
   end;

     for i:=1 to 3 do
       for j:=1 to 3 do
   begin

       if m[i,j]<tmini then
       begin
         tmini := m[i,j];

          case i of
         1: s3:= 'pondeli';
         2: s3:= 'utery';
         3: s3:= 'streda';
         end;

         case j of
          1: s4:= '1.cas';
         2: s4:= '2.cas';
         3: s4:= '3.cas';
         end;
       end;
   end;


   writeln('tak tohle by mela byt nej teplota tydne ',tmaxi:6:2,' a tohle den namereni ',s1,' a tohle cas namereni ',s2);
   writeln('tohle je nejmensi teplota tydne ',tmini:6:2,' a den namereni ',s3,' a tady je cas ',s4) ;


  readln;
end.

↑ sivaki:
Tak tedy:
1. Pole m máš špatně nadefinované (dní je 7, počet měření 6)
    má být m:array [1..7,1..6] of real;
2. Možná, že jenom z úporných důvodů měříš pouze pondělí - středa (3 dny) a jenom 2x (4.00,800)
    Kdybys totiž měřil tak jak máš, tak bys na to přehozené pole přišel, protože by ti to házelo chybu.
3. ptt je potřeba na začátku nastavit na 0.
4. V tomhle cyklu
    for i := 1 to 3 do begin
      if pdt[i]>ptt then begin
        case i of
          1:s5 := 'pondeli';
          2:s5 := 'utery';
          3:s5 := 'streda';
          4:s5 := 'ctvrtek';
          5:s5 := 'patek';
          6:s5 := 'sobota';
          7:s5 := 'nedele';
        end;
      end;
      Writeln(s5);
    end;
   je nesprávně vypisováno s5.
   Totiž, když bude např. průměrná teplota vyšší v pondělí a ve středu než je týdenní průměrná teplota, tak ti to
   vypíše
   pondeli
   pondeli
   středa
   prostě s5 je vypisováno pokaždé. Protože na začátku je s5 prázdný string (text) tak se ti mohlo zdát, že
   ti to pracuje dobře.
   Náprava:
   for i := 1 to 3 do begin
      if pdt[i]>ptt then
      begin
        case i of
          1:s5 := 'pondeli';
          2:s5 := 'utery';
          3:s5 := 'streda';
          4:s5 := 'ctvrtek';
          5:s5 := 'patek';
          6:s5 := 'sobota';
          7:s5 := 'nedele';
        end;
      end
      else
        s5 := '';
      if s5<>'' then
        Writeln(s5);
    end;
5. Ke špatnému výpisu tmini.
    Jednak máš v cyklu
    for i := 1 to 3 do
      for j := 1 to 3 do
      begin
        if m[i,j]<tmini then
        begin
          tmini := m[i,j];
    atd.
    místo 2 číslo 3
    a navíc protože tmini je na začátku nastaveno na 0, tak pokud nebude někdy teplota záporná, tak nikdy nenastane
    podmínka   m[i,j]<tmini a tudíž tmini bude pořád 0. (Jenom tak na okraj. I kdybys to měl ošetřené dobře, tak
    vzhledem k té chybě v cyklu (for j := 1 to 3 do místo for j := 1 to 2 do), a protože si vyplnil jen 2 hodnoty
    měření každý den, tak v každém dni je třetí hodnota také 0 a tudíž by ti to stejně vypsalo tmini=0)
    Náprava:
    Před cyklem je potřeba nastavit tmini na nejvyšší hodnotu a tou je samozřejmě tmaxi.
    Tedy přidáš řádek tmini := tmaxi;
    A samozřejmě změnit tu trojku na dvojku.
6. Ještě jedna poznámka:
    Pokud bys zadal všechny teploty pod nulou (tedy se znaménkem -, např. by se měřilo v zimě), tak ti to zase špatně
    vybere i tmaxi (opět by to byla 0)
    Takže by bylo dobré na začátku tmaxi nastavit na nějakou hodně mínusovou hodnotu. (třeba -300, což je hodnota
    menší než absolutní 0)

Po editaci
  Ještě jsem přišel na jednu věc
  V cyklu
  for i:=1 to 3 do
  begin
    dt:=0;
    for j:=1 to 2 do
    begin
      write('zadej teplotu v ',i,'. dni a ', j ,'. zadavanou teplotu ');
      readln (m[i,j]);
      dt:=dt+m[i,j];
      pdt[i]:=dt/2;
    end;
  end;
  to chce  pdt[i]:=dt/2; vyhodit za to první end;
  for i:=1 to 3 do
  begin
    dt:=0;
    for j:=1 to 2 do
    begin
      write('zadej teplotu v ',i,'. dni a ', j ,'. zadavanou teplotu ');
      readln (m[i,j]);
      dt:=dt+m[i,j];
     
    end;
    pdt[i]:=dt/2;
  end;