Delphi-program – Delphi – Fórum – Programujte.com

Potřeboval bych pomoct s tímto zadáním, neví někdo jak na to?

Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula a zjistí, zda je tato posloupnost klesající (další číslo vždy menší než předchozí).

Potřebujeě pomoct se zadáním nebo s řešením toho zadání?

Řešení máš přece už v tom zadání (v závorce).

Takže s čím potřebuješ pomoct?

#2 JoDiK
S řešením celého programu, moc si s tím nevím rady

#3 Petr Jureček
Program se neřeší, ten se píše až máš vyřešený algoritmus.

Tak pěkně od začátku.

Umíš napsat program, který přečte jedno číslo a vypíše ho?

Pokud ano, tak ho napiš a ukaž. Pokud ne, tak se to nauč.  Když si nebudeš vědět rady s konkrétní věcí, kterou nenajdeš ani v poznámkách ze školy, ani v nápovědě, ani na internetu, tak se tady znovu zeptej.

Hlavně nečekej, že to za tebe někdo udělá.

http://programujte.com/clanky/46-serial-delphi/ najprv si prečitaj a potom píš...

#4 JoDiK
Mám skoro hotovo, ale bohužel jsem se zasekl a nevím kde je chyba, mohl byses na to kouknout? Dám přepis do Delphi

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
i,n,min,min1:integer;
a:array [1..100] of integer;

procedure prd;

begin
n:=3;
a[1]:=3;
a[2]:=1;
a[3]:=2;

min:=maxint;

for i:=1 to n do
if a[i]<min then min:=a[i];

for i:=1 to n do
if a[i]=min then begin write(a[i]); writeln(' ', i);  min1:=maxint; min:=a[i]; end;

for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];

end;
for i:=1 to n do
  if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;

  for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];

end;
for i:=1 to n do
  if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;
end;

begin
prd;
readln
end.

#6 Petr Jureček
Tomu nerozumím, na čem ses zasekl? Co ti na tom nefunguje? Teda kromě toho že program, který jsi sem nahrál dělá něco úplně jiného, než je v zadání? To ale není chyba v programu...

#7 JoDiK
Máš pravdu, zkopíroval jsem program co jsme dělali ve škole, podle mě to bude vypadat nějak takhle:

for I:=1 to N-1 do
if A[I]>A[I+1] then begin
POM:=A[I];
A[I]:=A[I+1];
A[I+1]:=POM;
end;

zatím jsem v této fázi, je to dobře? Jde vidět, že tomu hodně rozumíš, já měl teprv 5 cvik a hned na nás vybalily program 

#8 Petr Jureček
Nemáš to dobře, zas to dělá něco úplně jiného.

#9 JoDiK
kurňa, můžeš mi říct, kde je chyba? Aspoň trochu polopatě vysvětlit, snažím se na to přijít, bude se to dělat bublinkovým řazením mám pravdu?

#9 JoDiK
PS: jestli máte teprv páté cviko, tak to je to zadání celkem v pořádku, na to stačí jeden cyklus a dvě proměnné. To co sem dáváš používá strukturované proměnné (pole) a to bych viděl až tak možná po deseti cvikách...

#10 Petr Jureček
Chyba je v tom, že jsi nepochopil zadání. Ty nemáš ani hledat minimum, ani třídit. Máš jen zjistit stav posloupnosti a vypsat tu informaci (jestli je nebo není klesající). Když to setřídíš, tak jaksi zrušíš tu původní posloupnost včetně vlastnosti, kterou máš zjišťovat...

#12 JoDiK
Zkusím mrknout do skript a projedu si tady ty cvičení, pokud' mi to stále nepůjde, tak se na tebe obrátím, i když mi radíš jenom teoriticky a v mém případě to moc nepomáhá    tak ti prozatím děkuji

#12 JoDiK
A jak jsem psal na začátku - řešení máš uvedeno přímo v zadání v závorce. Tak udělej to co je tam psáno - zjisti, jestli pro všechny prvky posloupnosti platí, že následující prvek je menší. Předpokládám, že logické proměnné jste brali - tak dej výchozí stav že posloupnost je klesající a jestli třeba jediný prvek nesplňuje podmínku, tak to změň na nepravdu a na závěr vypiš jestli posloupnost je či není klesající.

#14 JoDiK
Dobře, díky, zkusím to zítra trochu zapsat a kdyby to nešlo, tak se na tebe obrátím, díky moc 

JoDiKu, tady přikládám tvůj úkol ze začátku:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A:Real;
begin
  {èíslo,které jsi chtìl}
  ReadLn(A);
  WriteLn(A:7:2);
  { TODO -oUser -cConsole Main : Insert code here }
end.

napsal jsem číslo a vypsalo ho, co dál?

V zadání máš určit "zda je tato posloupnost klesající (další číslo vždy menší než předchozí)."

1.V cyklu od i := 1 to n-1 budeš brát čísla z pole (to už jsi někde udělal)

2.Porovnáš (příkaz if) zda je a[i]<a[i+1], když ano, tak je jasné, že posloupnost není klesající. Tak si v tom případě do

  nějaké proměnné třeba pom, (které na začátku přiřadíš nulu) dáš v tom případě 1. Tím pádem můžeš z cyklu

   vyskočit. To se dělá příkazem Break.

3.Takže ti buď projede celý cyklus - podmínka nebude splněna a tedy v pom budeš mít 0 (a posloupnost bude

   klesající), nebo bude splněna a tedy v pom budeš mít 1.

4. Podle hodnoty pom pak vypíšeš (příkazem if) zda je klesající nebo ne

    if pom=0 then

      WriteLn('Posloupnost je klesajici')

    else

     WriteLn('Posloupnost neni klesajici');

#16 Petr Jureček

Koukám, že jsi pracoval dlouho do noci... Tak tady máš postupně další úkoly. Jak to budeš stíhat, tak to sem dej, já se občas kouknu...

1. Uprav deklaraci proměnné na celočíselný typ.

2. Vypiš informaci, jestli je to zadané číslo nulové či nikoliv.

3. Jestli je to zadané číslo záporné, tak k němu přičti jeho kladný dvojnásobek.

4. Dokud je to zadané číslo větší jak 5, tak od něho odečítej hodnotu 3 a průběžně vypisuj aktuální stav.

#17 Honzc
for I:=1 to N-1 do
if A[I]<A[I+1] then begin
POM:=A[I];
A[I]:=A[I+1];
A[I+1]:=POM;
end;

to už jsem tu dával, ale Jodik říkal, že to je úplně něco jiného, než mám v zadání

úkol 1:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  I:=1;
  { TODO -oUser -cConsole Main : Insert code here }
end.

#19 Petr Jureček

Úkol 1 špatně, měl jsi upravit to předchozí řešení. Kde máš načítání hodnoty? Kde je výpis?

#21 JoDiK
Další úkoly vždy navazují a rozvíjejí předchozí úkol, takže přidávej do existujícího programu...

#19 Petr Jureček
K tomu kódu: Seš si jistý, že rozumíš tomu, co je tam napsané? Pokud ne, pokračuj v mém zadání, máš-li zájem tomu rozumět. Pokud ne, tak si to od někoho hotové zkopíruj a neřeš a po ničem nepátrej.

BTW: to, co jsi sem dal je jeden průchod bublinkového třídění, který přehazuje sousední hodnoty v poli, pokud nesplňují podmínky. To co ti radil Honzc přece není to samé, sice se to porovnává stejně, ale nic se neprohazuje, jen se vyhodnocuje jestli je to v pořádku... On ti radí přiřadit někam jedničku, já bych na to šel přes logickou proměnnou.

Tak jak mi to napsal on rozumně, tak tomu rozumím co tam probíhá, ale když mi zadáš úkol tak je pro mě celkem těžké, to sám udělat, proto chci od tebe pomoc. Snažím se udělat co po mě žádáš

#24 Petr Jureček
OK. Tak až budeš mít první úkol tak ho pošli a prosímtě doplň do něj komentáře ke každému řádku co se tam dělá, ať vidím, jestli tomu rozumíš.

Nevím, zkouším to a prostě na to nepříjdu 

#26 Petr Jureček
Počkej na co nepřijdeš?

Přečíst celočíselnou hodnotu a vypsat ji na obrazovku?

#27 JoDiK
Když už jsem přečetl hodnotu, místo číselné to bylo sice A a to jsem i vypsal na obrazovku. Nepochopil jsem co tím myslíš

#28 Petr Jureček
Aha, no jen jsem si chtěl ověřit jak tomu "rozumíš". No a nerozumíš - přesněji vzájemně si nerozumíme - nevím jestli to vůbec takto půjde přes internet, ale aby jsme si rozumněli, musíš se orientovat v názvosloví.

Takhle nějak jsem si to představoval:

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo : '); { vypis textu na obrazovku }

  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }

  writeln('Bylo zadano cislo : ',c); { kontrolni vypis zadaneho cisla }

{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove

  vypiš buď text "zadané číslo je nulové" nebo "zadané číslo není nulové" }

end.

No a můžeš pokračovat úkolem 2. - pořád jenom přidávat do předchozího programu!

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);

#30 Petr Jureček
Vypadat by to tak mohlo, coby ne, vidím, že místo abys použil návrh obsažený už v zadání, nebo jak ti to rozepsal Honzc, vymýšlíš cosi nového. Neříkám, že je to úplně špatně, ale na splnění zadání ti tam pár drobností chybí a taky si to zkus odladit s jinými vstupními údaji. Co ti to vypíše třeba pro tuto posloupnost?

poleCisel:array[1..6] of Integer = (15,48,99,99,1,0)

Píše mi to chybu hned u toho beginu 

#31 JoDiK
Aha, máš to tak nepřehledné, že jsem se vtom hned nezorientoval.

S těmito údaji ti to nehodí chybu?

poleCisel = Array(956, 848, 799, 699, 1, 0)

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

#34 Petr Jureček
Hele, jedna důležitá věc. Máte to určitě řešit s využitím pole?

tu druhé:

956

848

799

699

1

0

pole je sestupně

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

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

#38 Petr Jureček
To snad vidíš, jestli je to dobře nebo ne, mně to vyhodilo index mimo rozsah... Asi nemáš zapnutou kontrolu rozsahu...

#39 JoDiK
Hele, zkusíme to jináč, tohle je na dlouho.

Zkus pochopit moje řešení, třeba se to takto naučíš líp...

var c1, c2 : Integer;

klesajici : Boolean;

begin

klesajici := true;  { nastav klesající jako pravda }
write('Zadej cislo : '); readln(c1);   { přečti první číslo }
write('Zadej cislo : '); readln(c2);   { přečti další (druhé) číslo }
While c2 <> 0 do      { dokud další číslo není nula opakuj }

  begin
    If c2 >= c1 Then klesajici := False; 

     { jestli další číslo není menší než předchozí tak nastav klesající jako nepravda }

    c1 := c2;   { ulož další číslo jako nové předchozí }

    write('Zadej cislo : '); readln(c2);  { přečti další číslo }

  end;

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

  then writeln ("Posloupnost je klesajici")

  else writeln ("Posloupnost neni klesajici");

end.

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 :)

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ý

#42 Petr Jureček
Jasně, nemám tu pascal tak jsem to převedl z visualbasicu, tam jsou dvojité uvozovky.

Nemáš náhodou v zadání řečeno "Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula" ???

Takže zadávání skončí až zadáš nulu.

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

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 

#44 Petr Jureček
Jo, pokud to spouštíš ve windows, dej tam readln;

úkol č.2:

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
  begin
    If c=0 Then { zkoumani, jestli je zadane cislo ulozene v promenne c nulove}
      WriteLn('Ano, cislo je nula');
  end;
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

#47 Petr Jureček
Čteš vůbec ta zadání? Dokonce jsem ti do toho připraveného programu napsal do poznámky co to má dělat a ty toho uděláš jen půl.

Doplň co chybí.

{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove

  vypiš buď text "zadané číslo je nulové" nebo "zadané číslo není nulové" }

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
  begin
    If c=0 Then
      WriteLn('Ano, cislo je nula');
  end;
  begin
    If c>0 Then
      WriteLn('Cislo neni nula');
  end;
{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove

  vypiš buď text "zadané číslo je nulové" nebo "zadané číslo není nulové" }
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

#49 Petr Jureček
Nemáš to dobře, záporné hodnoty jsou přece také celá čísla. D těmi beginy a endy tolik neplýtvej, dávej je jen tam, kde budou ohraničovat víc jak jeden příkaz uvnitř jiného příkazu.

Správně to mohlo být třeba takto (podobně jako u výpisu té klesající posloupnosti):

writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }

If c=0
        Then  WriteLn('Ano, cislo je nula')
        Else  WriteLn('Cislo neni nula');

ReadLn;

Ok, to teda mám:

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
    If c=0 Then
      WriteLn('Ano, cislo je nula')
    Else
      WriteLn('Cislo neni nula');
{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

#51 Petr Jureček
3. Jestli je to zadané číslo záporné, tak k němu přičti jeho kladný dvojnásobek a vypiš výsledek.
4. Dokud je to zadané číslo větší jak 5, tak od něho odečítej hodnotu 3 a průběžně vypisuj aktuální stav.

Chci se zeptat, ten program můžu měnit nebo jenom doplňovat nové věci do toho? Tady bych to c dal If c<0 Then atd

#53 Petr Jureček

Nepsal jsem to už? Psal!

9. 3. 2012   #22

#21 JoDiK
Další úkoly vždy navazují a rozvíjejí předchozí úkol, takže přidávej do existujícího programu.

Ještě se chci zeptat zpátky k tomu programu, my jsme ve škole ještě nedělali boolean, jak bych to měl profesorce vysvětlit? Vím, že to je logická proměnná, která se používá při těchto typech př, kde se musí rozhodnout ano, ne.

#55 Petr Jureček
Tak použj integer, jako nepravda do něj ulož 0 a jako pravda 1

Jako takhle:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c1,c2,klesajici:Integer;
begin
  klesajici:=1;  { nastav klesající jako pravda }
  write('Zadej cislo:');
  readln(c1);   { přečti první číslo }
  write('Zadej cislo:');
  readln(c2);   { přečti další (druhé) číslo }
  While c2 <> 0 do      { dokud další číslo není nula opakuj }
  begin
    If c2 >= c1 Then
      klesajici:=0;
     { jestli další číslo není menší než předchozí tak nastav klesající jako nepravda }
    c1:=c2;   { ulož další číslo jako nové předchozí }
    write('Zadej cislo:');
    readln(c2);  { přečti další číslo }
  end;
  if klesajici { vypiš výsledek zkoumání} then
    writeln ('Posloupnost je klesajici')
  else
    writeln ('Posloupnost neni klesajici');

  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn;
end.

u toho if klesajici then mi to vypíše, že to musí být boolean

if klesajici = 1 then
if klesajici <> 0 then

#58 zlz
a to mám napsat kde? nebo spíš co změnit? snažím se o všechny varianty a furt mě to nechce pustit

#59 JuReeeC
A tuhle variantu jsi zkusil?

if klesajici=1 { vypiš výsledek zkoumání} then
    writeln ('Posloupnost je klesajici')
  else
    writeln ('Posloupnost neni klesajici');

Super, už to funguje. Ale moc jsem nepochopil, jaký je v tom rozdíl. Když boolean pracuje s hodnotou 0 a 1, tak to je to stejné, kde je rozdíl?

Boolean má hodnotu true nebo false. Že je to technicky 1 nebo 0 je tady celkem nepodstatné. A IF prostě vyžaduje logickou hodnotu - takže boolean, nebo logický výraz.

Boolean chapu, ale nahradil jsem to Integer. Tak jak ji to mam vysvetlit, kdyz se me zepta, co to znamena?

Zasláno z mobilního telefonu.

#63 petr jurecek
A co jí chceš vysvětlovat, kdyžs to teda nahradil tím integerem a ten jste přece probírali?

Jo to jo, ale jen by mě zajímalo, proč jsem tam dal to 1 a 0. Proč zrovna tyto dvě hodnoty proměnných?

#65 JuReeeC
Tak si tam prosímtě dej třeba -236 pro nepravdu a 1374 pro pravdu, bude to fungiovat úplně stejně...

Proč, proč, třeba proto, že to jsou dvě základní hodnoty jednoho bitu dvojkové soustavy?

Nic s bitama ve škole neřešíme, toto slyším poprvé, právě z takového hlediska to vůbec neberem a to mě dost štve. Řešíme jen matematické úlohy, do hloubky nic.

#66 JoDiK

Mám správně ten vývoják k tomu? Snad jo :)

#68 JuReeeC
Jestli jsem to správně přečetl, tak v kladné větvi posledního rozhodování píšeš "Posloupnost je rostoucí"???

Snad klesající ne???

Jinak to vypadá správně.

#69 JoDiK
Jo máš pravdu    chybka se vloudila

Tak program uznaný, ted' se vrhnu na tvoje úkoly :)