Anonymní profil Petr Jureček – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Petr Jureček – Programujte.comAnonymní profil Petr Jureček – Programujte.com

 

Příspěvky odeslané z IP adresy 90.176.51.–

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154690

Jo, už mi to tam zůstává, takže takhle to má vypadat, ve výsledku to vypadá jednoduše, ale přijít na to je pro mě složité, každopádně děkuji za ochotu, a zítra se vrhnu na úkol č.2 

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154689

   máš pravdu, ještě jednu radu, na konci musím napsat ReadLn, aby mi výsledek zůstal a hned nezmizl?

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154681

Ten konec jsem napsal takto:

if klesajici { vypiš výsledek zkoumání}

  then writeln ('Posloupnost je klesajici')

  else writeln ('Posloupnost neni klesajici');

protože mě to přes " nechtělo pustit, pak mě to už pustilo, ale chce to po mě číslo, tak ho zadám, chce to po mě další a pořád to chce jenom čísla a výsledek žádný

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154678

To máš tak rychle vyřešené??    jak dlouho programuješ? Nic méně vrhnu se na ty tvoje úkoly, at' si z toho něco odnesu :)

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154670

Rozhodlo to, jak mělo, nebo špatně? Co by to podle tebe mělo vyhodit? Vyhodnotilo to dobře, nebo ne?

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154669

No, nevím jestli tam má být pole, dostali jsme zadání, nic víc nám k tomu řečeno nebylo

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154668

tu druhé:

956

848

799

699

1

0

pole je sestupně

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154666

Omluva, to první co jsi tu napsal mi to přečetlo, chybělo mi tam ;

výsledek toto:

15

48

není sestupně, ta druhá varianta nefunguje

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154664

Píše mi to chybu hned u toho beginu 

Petr Jureček
Delphi › Delphi-program
10. 3. 2012   #154660

Ok, na ten program mrknu, chci se zeptat, nějak takhle jsem udělal to moje zadání, mohlo by to tak vypadat?

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c,posledni:Integer;
  temp:String;
  poleCisel:array[1..6] of Integer = (5,4,99,2,1,0);
begin
c := 1;
posledni := poleCisel[c]+1;
while(poleCisel[c]<posledni) do
begin
  writeln(poleCisel[c]);
  posledni := poleCisel[c];
  c := c + 1;
  if(c>6) then
  begin
  writeln('Pole je sestupne')
  end
  else
  begin
  if(poleCisel[c]>posledni) then
  begin
  write(poleCisel[c]);
  writeln(' neni sestupne');
  end
  end
end;
readln(temp);

 

 

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