pascal - par jednoduchych otazok

F3RY · Napísal **F3RY**: 17.01.2011 20:47

dobry den.
venujem sa pascalu asi pol roka a potreboval by som radu.
ked napisem program, tak neviem aky prikaz musim pouzit, aby sa usera pytalo, ci chce pokracovat, alebo skoncit. ak zada pokracovat, program sa spusti znovu a ak nie, tak skonci.

a este jedna otazka

ak chcem aby si user vybral medzi dvoma prikazmi, alebo programami tak cez co to spravim?
mozem ist cez podmienku if??

dakujem za rychle odpovede a cas straveny citanim mojho prispevku.

pitbull · Napísal **pitbull**: 17.01.2011 21:45

1.) daj si to do cyklu while alebo repeat until...
2.) case of

F3RY · Napísal autor témy **F3RY**: 21.01.2011 16:16

pitbull
mozes mi ten prikaz napisat? lebo som ho este nevidel a nemam ani sajnu ako ho spravim. dakujem

pitbull · Napísal **pitbull**: 22.01.2011 0:19

while (a='A') do
begin
.
.
.
.
.

writeln("Chcete pokracovat?")
a=readkey;
end;

syntax môže byť zlá... v pascale som nerobil neviem ako dlho

emer · Napísal **emer**: 23.01.2011 15:14

Ferdo, ked to hodis do googlu tak ti vyhodi prirucky so syntaxou a aj prikladmi. Skus si to pohladat.
Pre buducnost

Btw tiez som v pascale nerobil ani nepamatam ale ten riadok s readkey ma byt zrejme readln(a)

Forty- · Napísal **Forty-**: 23.01.2011 15:20

ee nema byt readln, tu ide fakt o jeden char
akurat to nema byt:
a=readkey;
ale
a:=readkey;

emer · Napísal **emer**: 23.01.2011 15:27

aha, myslel som, ze to doplietol s nejakym inym jazykom, ja som sa s readkey ani nestretol, pascal som mal len tak zbezne v skole

F3RY · Napísal autor témy **F3RY**: 29.01.2011 16:56

ok skusal som to, ale to mi nefunguje...

vyskusal som to na jednom lahkom priklade s faktorialmi. dam sem zdrojak:

Kód:

uses crt;
var a,pocitadlo,i,b:integer;
begin
 clrscr;
 while (b='B') do
 writeln ('zadajte cele cislo vo faktorialoch (!)');
 readln (a);
 pocitadlo:=1;
 for i:=1 to a do pocitadlo:= pocitadlo * i;
 writeln ('faktorial z cisla ',a,' je ',pocitadlo,' . ');
 readln;
 writeln ('chcete pokracovat?');
 a:=readkey;
end.

v programe chyba nieje on mi isiel ale to opakovanie nie...

a este jedna vec

aj ked ten program funguje tak z faktorialov mi pocita iba male cilsa. ak dam 20! tak mi uz vypise chybu.
neviem kde je chyba... mam tam udajovy typ integer a ten je do vyse 32 000. nefunguje ani ked tam dam longint...[/quote]

juho · Napísal **juho**: 29.01.2011 20:11

no ked tvrdis ze integer je do 32000 tak urcite vies preco ti nefunguje faktorial 20tich

Kód:

 while (b='B') do
 writeln ('zadajte cele cislo vo faktorialoch (!)');
 

pokial bude v premennej b cislo 66 tak ti to bude vypisovat neustale a nikdy neprejde na nacitanie premennej a

Kód:

uses crt;
var a,pocitadlo,i:integer;
      b:char;
begin
 clrscr;
repeat
 writeln ('zadajte cele cislo vo faktorialoch (!)');
 readln (a);
 pocitadlo:=1;
 for i:=1 to a do pocitadlo:= pocitadlo * i;
 writeln ('faktorial z cisla ',a,' je ',pocitadlo,' . ');
  repeat
     writeln ('chcete pokracovat(a/n)?: ');
     b:=readkey; 
  until (b='a')or(b='n');
until b='n';
end. 

dsljohn · Napísal **dsljohn**: 29.01.2011 21:27

lebo nemas definovane ze to B musi byt char

nBXXL · Napísal **nBXXL**: 29.01.2011 21:45

readkey je v kniznici crt, readln je standardnejsi..

dva cykle v sebe?

Kód:

if b = 'n' then break;

by podla mna bolo lepsie..
btw: 20 factorial = 2.43290201 × 10^18.. to je trocha viac ako rozsah longintu :'

F3RY · Napísal autor témy **F3RY**: 29.01.2011 22:45

juho píše:

no ked tvrdis ze integer je do 32000 tak urcite vies preco ti nefunguje faktorial 20tich

Citácia:

btw: 20 factorial = 2.43290201 × 10^18.. to je trocha viac ako rozsah longintu

vdaka neuvedomil som si to...

poznate nejaky vyssi udajovy typ ako je longint?
Juho vdaka za ten zdrojovy kod

nBXXL · Napísal **nBXXL**: 29.01.2011 23:02

vyssi celociselny udajovy typ ako longint je int64.. ale ten funguje len funguje len vo freepascale, v turbopascale nefunguje.. alebo real a extended

ale tie su realne a s presnostou na 12-18 desatinnych miest..

juho · Napísal **juho**: 30.01.2011 18:44

nBXXL píše:

dva cykle v sebe?

no pan brejker prezradte nam ze co by sa stalo keby podla vasho prikladu bolo stlacene nieco ine okrem 'a' a 'n' napriklad 'x' alebo sipka? a ako by sa potom cyklilo until false? bez podmienkovo?

F3RY · Napísal autor témy **F3RY**: 02.02.2011 20:30

cawte
takze som si vyskusal na ten REPEAT viac takych programikov (aby som sa to naucil) a jeden mi nefunguje spravne...
ide o program, ktory nakresli kruhy v hociakej velkosti, a farby. ale na konci, ak sa spytam ci chce nakreslit este raz alebo skoncit, tak to zacne tu hlasku vypisovat za sebou a neda sa ten program vypnut

mozno je to moja chyba, lebo som experimentoval s CRT a GRAPH kniznicami a neviem ci to moze tak byt.

screen (nechce sa mi cely prepisovat, alebo ak vie niekto nech poradi ako zdrojovy kod skopirovat z programu do text. suboru

lebo mne to nejde)
pascal - par jednoduchych otazok

c5x83x™ · Napísal **c5x83x™**: 02.02.2011 23:24

1. Nicim neinicializujes premennu "B".
2. Zdrojovy kod mas ulozeny v subore grafika.pas, cize ho otvor napriklad cez notepad a mozes veselo kopirovat )))

pitbull · Napísal **pitbull**: 02.02.2011 23:43

chýba ti tam načítanie premennej "b"

F3RY · Napísal autor témy **F3RY**: 05.02.2011 17:01

ok dakujem nevsimol som si to

mozete mi este poradit ako spravim, to aby si uzivatel vybral medzi viacerymi pragramami? ako to spravit cez case of?

juho · Napísal **juho**: 05.02.2011 17:23

radsej nerob aby si vyberal medzi viacerymi pragramami a nauc sa pascal od zakladov http://mojeskola.cz/Vyuka/Php/Kurzy/kurz_pascal.php

F3RY · Napísal autor témy **F3RY**: 05.02.2011 20:39

juho píše:

radsej nerob aby si vyberal medzi viacerymi pragramami a nauc sa pascal od zakladov http://mojeskola.cz/Vyuka/Php/Kurzy/kurz_pascal.php

ok dakujem vyzera to byt dobra stranka. pozriem na nu, ale v pascale niesom az taky zaciatocnik

robim v nom uz vyse pol roka, ale ten web je lepsi, ako ten z ktoreho sa ucim ja...

F3RY · Napísal autor témy **F3RY**: 19.02.2011 0:04

skusal som nakodit jeden program ale nechce ist. kod:

Kód:

uses crt;
var p: array [1..100] of char;
    i,a,n,d,s: integer;
begin
 clrscr;
 writeln ('stlacenim klavesy 1 sa zobrazia informacie o programe. Stlacenim lubovolnej klavesy sa spusti program pre vypocet aritmetickej postupnosti.');
 readln (p);
 if p[i]=1 then begin
                clrscr;
                writeln ('email adress: Ferdo933@azet.sk');
                writeln ('Ferdinand');
                readln;
                end.
           else begin
                clrscr;
                writeln ('program pre vypocet aritmetickej postupnosti');
                writeln ('zadajte a1 (hodnota prveho clena)');
                readln (a);
                writeln ('zadajte n (pocet cisel)');
                readln (n);
                writeln ('zadajte d (diferencia/rozdiel');
                readln (d);
                s:=n-1;
                s:=s*d;   {vzorec na vypocet AP postupnosti je an=a1+(n-1)*d}
                s:=s+a;
                writeln ('vysledok je ',s);
                readln;
                end.

ma problem s tymto:

Kód:

if p[i]=1 then begin

neviem preco, ked ho mam definovany v poli a pise: incopatible types: got "char" expenced "longint".

a neviem ci som tie podmienky zakoncil spravne.

samozrejme, ze program este nieje dokonceny... to je len zaklad, na ktorom chcem pracovat. dakujem

pitbull · Napísal **pitbull**: 19.02.2011 0:17

char sa dáva do '1' a nie len 1

číslo 1 je integer
'1' je char
"1" je string

chrono · Napísal **chrono**: 19.02.2011 0:26

Keď tam testuješ prvý znak, tak nie je rozumné používať premennú i (ktorá obsahuje 0 len preto, lebo si použil globálnu premennú).

F3RY · Napísal autor témy **F3RY**: 19.02.2011 11:30

vdaka, ale nefunguje to.
musi byt v niecom inom chyba.
premennu i som zmenil na x a vyzera to asi takto:

Kód:

 x: char; /string;
if p[x]='1' then begin...

a stale pise to iste...

Ďuri · Napísal **Ďuri**: 19.02.2011 12:01

Evidentne nerozumies vsetkemu, co pises. Mas tam kopu chyb. Na riadku 8 sa snazis pouzivat premennu i, ktora nema definovanu hodnotu. Zmenil si to zasa zle - spravne si pouzil apostrofy pri '1', ale index pola (u teba x) nemoze byt char, lebo indexy pola p su u teba integery 1..100. Dalej tam vsade mas end s bodkou, to sa pouziva na konci celeho programu.
Nad tym, ci je tvoj algoritmus spravny, sa zamyslat radsej nejdem, ale napriklad to pole tam vyzera uplne zbytocne.

pitbull píše:

char sa dáva do '1' a nie len 1

číslo 1 je integer
'1' je char
"1" je string

Nie, string je tiez v apostrofoch.

pitbull · Napísal **pitbull**: 19.02.2011 14:09

v pascale som veľmi dlho nerobil... tak si nepamätám presne čo v tom je...

a k tomu poľu... p[i] = '1'

i je integer
p je pole charov - rozmer napr. 10

ak i=4 tak sa z poľa vytiahne položka číslo 4 (tá je typu char, keďže je to pole charov) a porovná sa s jednotkou => nie s číslom 1 ale so znakom(charom) 1

F3RY · Napísal autor témy **F3RY**: 19.02.2011 16:10

ahaaa

vdaka pitbul uz som na to prisiel.
takze ak namiesto 1 mi nacita znak (napr. x) a mam ho zadefinovany pod integer tak to funguje

este poriesim s tym end a program by mal fungovat.

ps mam este jednu otazku ako zapisem vzorec do pascalu:

Kód:

               n
Nx=N0(1+ p/100)               napriklad 0.948 na 20....
          

Ďuri · Napísal **Ďuri**: 19.02.2011 16:21

http://www.pcforum.sk/pascal-ratanie-tr ... 08007.html

F3RY · Napísal autor témy **F3RY**: 19.02.2011 19:58

vdaka duri

ale som zaciatocnik v programovani a nerozumiem tym prispevkom v teme.
ale mohlo by to ist takto?

Kód:

(1+p/100) to vyrata a ulozi do premennej napr. B potom by to islo do cyklu for i:=1 to n do pocitadlo:=pocitadlo*b;

otazka cislo 2: ten program mi uz ide, ale nie tak, ako ma:

Kód:

uses crt;
var p: array [1..100] of char;
    i,a,n,d,s,x: integer;
    b: char;
begin
 repeat
 clrscr;
 writeln ('stlacenim klavesy X sa zobrazia informacie o programe. Stlacenim lubovolnej klavesy sa spusti program pre vypocet aritmetickej postupnosti.');
 readln (p);
 if p[i]='x' then begin
                clrscr;
                writeln ('eamail adress: Ferdo933@azet.sk');
                writeln ('Ferdinand');
                readln;
                end
           else begin
                clrscr;
                writeln ('program pre vypocet aritmetickej postupnosti');
                writeln ('zadajte a1 (hodnota prveho clena)');
                readln (a);
                writeln ('zadajte n (pocet cisel)');
                readln (n);
                writeln ('zadajte d (diferencia/rozdiel');
                readln (d);
                s:=n-1;
                s:=s*d;   {vzorec na vypocet AP postupnosti je an=a1+(n-1)*d}
                s:=s+a;
                writeln ('vysledok je ',s);
                readln;
                end;
 readln;
 repeat
 writeln ('chcete pokracovat? (a/n)');
 b:=readkey;
 until (b='a') or (b='n');
 until b='n';
end.

problem je v tom, ze ak stlacim x a potvrdim enterom, tak aj tak nereaguje a ide pocitat.
skusal som to dat cez readkey, ale tiez to nefunguje.

chrono · Napísal **chrono**: 19.02.2011 20:11

Čo keby si si prečítal základy programovania v Pascale? Pretože robiť náhodné zmeny v kóde, až kým to začne fungovať, nie je zrovna najlepšia stratégia.

Čo podľa teba robí to p[i]='x' ? (a už si bol na ten problém upozornený)

pascal - par jednoduchych otazok

Podobné témy