[ Príspevkov: 10 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 12.01.08
Prihlásený: 05.12.11
Príspevky: 31
Témy: 9 | 9
Bydlisko: Trebatice
NapísalOffline : 21.06.2009 14:19 | pascal uplne lama

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 30.04.08
Prihlásený: 03.12.25
Príspevky: 884
Témy: 3 | 3
NapísalOffline : 21.06.2009 14:29 | pascal uplne lama

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)


_________________
Empty your memory, with a free()… like a pointer!
If you cast a pointer to an integer,
it becomes the integer, if you cast a pointer to a struct, it becomes the struct…
The pointer can crash…, and can overflow…
Be a pointer my friend…
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.06.08
Prihlásený: 04.07.11
Príspevky: 114
Témy: 12 | 12
NapísalOffline : 21.06.2009 14:30 | pascal uplne lama

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 12.01.08
Prihlásený: 05.12.11
Príspevky: 31
Témy: 9 | 9
Bydlisko: Trebatice
Napísal autor témyOffline : 21.06.2009 14:38 | pascal uplne lama

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:


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 30.04.08
Prihlásený: 03.12.25
Príspevky: 884
Témy: 3 | 3
NapísalOffline : 21.06.2009 14:41 | pascal uplne lama

smiley6 píše:
a vypne len okno

A co ineho by sa malo este vypnut?


_________________
Empty your memory, with a free()… like a pointer!
If you cast a pointer to an integer,
it becomes the integer, if you cast a pointer to a struct, it becomes the struct…
The pointer can crash…, and can overflow…
Be a pointer my friend…
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 12.01.08
Prihlásený: 05.12.11
Príspevky: 31
Témy: 9 | 9
Bydlisko: Trebatice
Napísal autor témyOffline : 21.06.2009 14:44 | pascal uplne lama

ale ved najrpv by som chcel videt vysledok :D...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


Offline

Užívateľ
Užívateľ
pascal uplne lama

Registrovaný: 02.12.06
Prihlásený: 12.11.26
Príspevky: 691
Témy: 35 | 35
Bydlisko: Rimavská So...
NapísalOffline : 21.06.2009 15:01 | pascal uplne lama

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 30.04.08
Prihlásený: 03.12.25
Príspevky: 884
Témy: 3 | 3
NapísalOffline : 21.06.2009 15:09 | pascal uplne lama

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


_________________
Empty your memory, with a free()… like a pointer!
If you cast a pointer to an integer,
it becomes the integer, if you cast a pointer to a struct, it becomes the struct…
The pointer can crash…, and can overflow…
Be a pointer my friend…
Offline

Užívateľ
Užívateľ
pascal uplne lama

Registrovaný: 02.12.06
Prihlásený: 12.11.26
Príspevky: 691
Témy: 35 | 35
Bydlisko: Rimavská So...
NapísalOffline : 21.06.2009 15:15 | pascal uplne lama

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


_________________
Math is the best!
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 12.01.08
Prihlásený: 05.12.11
Príspevky: 31
Témy: 9 | 9
Bydlisko: Trebatice
Napísal autor témyOffline : 21.06.2009 15:38 | pascal uplne lama

diky moc...dal som viac krat readln; a uz funguje...fakt dik moc :Dlebo som nevedel co s tym...ma to skoro odradilo skoncit


 [ Príspevkov: 10 ] 


pascal uplne lama



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

Ako vymazat uplne windows vista a zacat uplne odzaciatku

v Windows

4

1052

28.04.2010 8:22

Jaro

V tomto fóre nie sú ďalšie neprečítané témy.

OS X Yosemite Úplne nový.Úplne Mac.

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Novinky

54

2278

24.10.2014 23:33

Trty

V tomto fóre nie sú ďalšie neprečítané témy.

www lama

v Ostatné

9

1037

30.12.2007 19:50

Blackshadow

V tomto fóre nie sú ďalšie neprečítané témy.

Slide a lama

v Unix-like systémy

1

2151

23.01.2008 20:08

shiro

V tomto fóre nie sú ďalšie neprečítané témy.

lama rada plis

v Ovládače

11

922

11.03.2009 19:57

prandof

V tomto fóre nie sú ďalšie neprečítané témy.

Free Pascal a Turbo Pascal

v Ostatné

0

496

19.12.2014 13:18

Styracoz

V tomto fóre nie sú ďalšie neprečítané témy.

maual c++ for total lama

v Backend

2

6958

07.11.2006 22:35

etel

V tomto fóre nie sú ďalšie neprečítané témy.

problem so zvukovkou ( niesom lama )

v Ovládače

7

494

03.06.2010 20:47

brmbo

V tomto fóre nie sú ďalšie neprečítané témy.

vie niekto postup ako spravi forum aj lama

v CMS

3

712

24.06.2007 18:34

shaggy

V tomto fóre nie sú ďalšie neprečítané témy.

DELL, dve graficke karty, zistenie HW- spomaleny (lama riesi)

v Notebooky a netbooky

8

740

11.04.2016 21:21

niabride

V tomto fóre nie sú ďalšie neprečítané témy.

Pomoc s excelom, nič dlhé, som v exceli lama ;c)

v Ostatné programy

4

631

04.03.2009 21:37

mimkork

V tomto fóre nie sú ďalšie neprečítané témy.

uplne nejde

v Windows

5

529

27.10.2007 0:34

Roberbo

V tomto fóre nie sú ďalšie neprečítané témy.

Úplne základy

v Modifikácie, návody a projekty

1

1365

16.12.2008 22:35

f4r0

V tomto fóre nie sú ďalšie neprečítané témy.

Footer uplne dole

v Frontend

7

786

20.12.2008 19:13

dadmtb

V tomto fóre nie sú ďalšie neprečítané témy.

USB úplne zblblo

v Ostatné úložné zariadenia

12

553

23.12.2015 22:18

5had0w

V tomto fóre nie sú ďalšie neprečítané témy.

uplne vytazeny procak

v Intel

22

1987

07.03.2007 21:40

dj.ripper



© 2005 - 2026 PCforum, edited by JanoF