pascal uplne lama

smiley6 · Napísal **smiley6**: 21.06.2009 14:19

Caute heh,este nikdy som nic s programovanim nerobil a zacal som vcera citat jednu knizku.robim v turbo pascale a ked uz aj spravim nejaky ten program .exe tak ho spustim zadam hodnoty,ale co teraz?ked dam enter zatvori mi cele okno.prepacte za primitivnu otazku.
mam napr.

Kód:

program Priemer;
var Sucet, Cislo : Real;
    Pocet : Integer;
begin
  Write ( 'Priemer cisel' );
  Write ( 'Zadajte cisla,zaporne cislo ukonci vstup ' );
  Sucet := 0; Pocet :=0;
  Read ( Cislo );
  while Cislo >= 0 do
    begin
      Sucet := Sucet + Cislo;
      Pocet := Pocet + 1;
      Read ( Cislo );
    end;
  if Pocet > 0 then
    Write ( 'Priemer je ',Sucet/Pocet );
end.

ked spustim .exe subor zadam hodnoty a co teraz?

a este vysvetlite mi co znamena vlastne toto?
Sucet := 0; Pocet :=0;

dik za pomoc

neutronmind · Napísal **neutronmind**: 21.06.2009 14:29

Zatvori ti to preto, lebo program ukoncil svoju cinnost, staci pridat pred posledne end. prikaz readln;, cim bude cakat na vstup.
Prikazy

Kód:

Sucet := 0; Pocet :=0;

znamenaju priradenie premennym Sucet a Pocet hodnotu 0 (inak by mohli mat nahodnu hodnotu)

Watik · Napísal **Watik**: 21.06.2009 14:30

v pascale neprogramujem ani som nikdy neprogramoval takze s tym preco to zavrie ako to vyriesit to neviem ale toto sucet := 0 a pocet := 0 je v podstate vynulovanie tych dvoch premennych lebo moze byt na adresach tych premennych nieco ulozene a nehadzalo by to spravne vysledky

smiley6 · Napísal autor témy **smiley6**: 21.06.2009 14:38

Kód:

program Priemer;
var Sucet, Cislo : Real;
    Pocet : Integer;
begin
  Write ( 'Priemer cisel' );
  Write ( 'Zadajte cisla,zaporne cislo ukonci vstup ' );
  Sucet := 0; Pocet :=0;
  Read ( Cislo );
  while Cislo >= 0 do
    begin
      Sucet := Sucet + Cislo;
      Pocet := Pocet + 1;
      Read ( Cislo );
    end;
  if Pocet > 0 then
    Write ( 'Priemer je ',Sucet/Pocet );
readln;
end.

spravil som,no zase zadam hodnoty,stlacim enter a vypne len okno.uz som z toho zufaly :loony:

neutronmind · Napísal **neutronmind**: 21.06.2009 14:41

smiley6 píše:

a vypne len okno

A co ineho by sa malo este vypnut?

smiley6 · Napísal autor témy **smiley6**: 21.06.2009 14:44

ale ved najrpv by som chcel videt vysledok

...sry ze som taka lama...proste mam ten program,zadam hodnoty a co mam spravit aby som videl vysledok?enter asi nemam stlacat teda ze?to zatvori okno zrejme.

tu je moj .exe subor
http://www.edisk.sk/stahni/20844/PRIEME ... .61KB.html

jarrro · Napísal **jarrro**: 21.06.2009 15:01

používaj readln read číta aj enter a iné systémové veci

neutronmind · Napísal **neutronmind**: 21.06.2009 15:09

Tak tam daj viackrat readln;, mozno zostalo este nieco vo vstupnom bufferi.

jarrro · Napísal **jarrro**: 21.06.2009 15:15

alebo keď chceš read tak medzi program a var napíš uses crt; a miesto readln na konci readkey();

smiley6 · Napísal autor témy **smiley6**: 21.06.2009 15:38

diky moc...dal som viac krat readln; a uz funguje...fakt dik moc

lebo som nevedel co s tym...ma to skoro odradilo skoncit

pascal uplne lama

Podobné témy