pascal - par jednoduchych otazok

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

1. nemáš naplnené pole.... tak s čím chceš to písmeno X porovnať? s prázdnootu? nerovnajú sa... teda nič sa nikdy nebude rovnať s niečím

2. prečo tam máš vlastne to pole, keď ho vôbec nepoužívaš? Nájdi si na nete príkaz case of v Pascale a použi radšej ten...

3. toto:

Kód:

 repeat
 writeln ('chcete pokracovat? (a/n)');
 b:=readkey;
 until (b='a') or (b='n');
 until b='n'; 

stačí nahradiť len týmto:

Kód:

 writeln ('chcete pokracovat? (a/n)');
 b:=readkey;
 until b='n'; 

4. eamail ???? daj tam len email

nBXXL · Napísal **nBXXL**: 19.02.2011 22:45

pole je zbytocne.. nahrad to normalnym charom.. aj tak tam porovnavas iba jeden znak.. a potom p[i]='x' nahrad p='x'..

nebolo by jednoduchsie ten vypocet zjednodusit na:

Kód:

writeln(a+(n-1)*d)

usetris 3 riadky a jednu premennu

@pitbull: naco case of na 2 moznosti? case of je vhodny ked je moznosti vela (ja ho pouzivam len ked mam 4 a viac moznosti.. inak staci obycajny if-then-else)

pitbull · Napísal **pitbull**: 19.02.2011 22:58

písal čosi, že ta bude viac možností... preto nech spraví case of hneď na začiatku ako by ho mal dorábať... potom by to nevedel spraviť, vzhľadom na to, že nechápe ani základy...

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

pitbul
uz som pochopil

ze s tym polom nedosiahnem nic. ja som mylel, ze klavesu nacita do pola, potom ju preveri a ak sa tam ta klavesa nachadza, potom nech zobrazi informacie. a ak nie tak nech ide na ten priklad. Ale to bola blbost. Vyskusam to cez case of.
ten EAMAIL to bol preklep.

nBXXL
vdaka

nenapadlo ma to, ze sa to da vyratat aj tak. a pitbul ma pravdu, ten program by som chcel este dorabat dalej.

F3RY · Napísal autor témy **F3RY**: 27.02.2011 11:57

este sa chcem niec spytat. nefunguje mi toto:

Kód:

uses crt;                {                      n  }
                         {vzorec: Nx=N0(1+p/100)   }
var N0,p,n,i,pocitadlo: integer;
    d: real;
begin
 clrscr;
 writeln ('zadaj N0   (celkova suma)');
 readln (n0);
 writeln ('zadaj p (percenta)');
 readln (p);
 writeln ('zadaj n (pocet obdobi)');
 readln (n);
 pocitadlo:=1;
 d:=1+p/100;
 for i:=1 to n do
  pocitadlo:=pocitadlo*d;
 d:=pocitadlo*N0;
 writeln ('vysledna suma bude',d);
 readln;
end.

co mam zle spravene??

pitbull · Napísal **pitbull**: 27.02.2011 12:43

nechce sa mi tomu pochopiť

ale asi toto:

for i:=1 to n do
pocitadlo:=pocitadlo*d;
d:=pocitadlo*N0;
writeln ('vysledna suma bude',d);

asi chceš aj to

Kód:

d:=pocitadlo*N0;

aby sa ti opakovalo nie? Treba tam dať begin - end;

F3RY · Napísal autor témy **F3RY**: 27.02.2011 12:48

nie

Kód:

d:=pocitadlo*N0;

ma byt az po cykle, nie v cykle. Sa mi zda, ze ked vykonavam jeden prikaz netreba tam dat begin... ale vyskusam

pitbull · Napísal **pitbull**: 27.02.2011 13:14

Kód:

pocitadlo:=pocitadlo*d;

pocitadlo - integer

prenásobíš ho desatinným číslom... dostaneš? real? ale vkladáš ho zasa do integeru...

Ďuri · Napísal **Ďuri**: 27.02.2011 13:15

ferdo93, najskor upresni, co to ma robit a ako sa prejavuje "nefunguje".

F3RY · Napísal autor témy **F3RY**: 27.02.2011 19:02

vdaka pitbul. Chyba bola s tym pocitadlom. nevsimol som si to. stacilo spravit namiesto:

Kód:

pocitadlo:=pocitadlo*d;

toto:

Kód:

d:=pocitadlo*d;

no, program funguje, ale nejak divne pocita... vychadzaju z neho vysledky typu: 1,000000000E+004 nemyli si ten program tie premenne? ak zakazdym prepisem d?? alebo chyba bude skor v mod/div.

duri: ten program ma pocitat ten vzorec:

Kód:

              n
Nx=N0(1+p/100)

pitbull · Napísal **pitbull**: 02.03.2011 15:06

dávaš tam moc veľké čísla? ten výsledok je normálny... len ho treba chápať... je to 4 mocnina čisla 10 ... je to formát typu real... a ten sa dá upraviť...

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

ako upravit?

vyskusal som toto: writeln(x:0:2);
vysledok mi vypise na dve desatine miesta.
Ano davam tam velke cisla. N0: 10 000, n: 20 p:20, ale na integer to staci.

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

ok, kaslite na to...
este sa chcem nieco spytat.
ako porovnam 3 premenne?? alebo viacej?

da sa to tak? a=b=c

Ďuri · Napísal **Ďuri**: 07.03.2011 17:00

(a=b) and (a=c)

F3RY · Napísal autor témy **F3RY**: 14.03.2011 20:33

dakujem duri

vyskytol sa dalsi problem. mam knihu algoritmy v pascale: http://www.elegenda.sk/knihy/technika-pocitace/pocitac-web-e-mail-mobil/maria-bellusova-informatika-pre-stredne-skoly-algoritmy-s-pascalom/
len ak chcem robit podla nej, musim tam mat kniznicu GRAFIKA. ja ju vo F.P. nemam a ani ju nemozem stiahnut. v kniznici graph su ine prikazy.

//uz tu kniznicu mam, ale neviem akm ju mam nakopirovat :oops:

pouzivam free pascal a v units mam plno priecinkov.

Gregi555 · Napísal **Gregi555**: 18.03.2011 12:51

Kód:

Program Aritmeticka_postupnost;
uses Crt;
var
  stl_kla: string;
  a,n,d: Integer;

BEGIN
  repeat
    ClrScr;
    WriteLn ('Stlacenim klavesy X sa zobrazia informacie o programe.');
    Write ('Stlacm inej klavesy sa spusti program pre vypocet aritmetickej postupnosti. ');
    ReadLn (stl_kla);
    if stl_kla='x' then begin
      WriteLn ('email address: Ferdo933@azet.sk');
      WriteLn ('Ferdinand');
    end
    else begin
      WriteLn ('program pre vypocet aritmetickej postupnosti');
      Write ('zadajte ''a'' (hodnota prveho clena), ''n'' (poc. cisiel), ''d'' (diferencia): ');
      ReadLn (a,n,d);
      WriteLn ('vysledok je ',a+(n-1)*d);
    end;
    Write ('chcete pokracovat? (n - nie): ');
    ReadLn (stl_kla);
 until stl_kla='n';

END.

Ak by si chcel nacitavat klavesy cez ReadKey, musel by si pridavat dalsiu kniznicu v sekcii "uses: Crt, Dos" a to by zvacsilo zbytocne program. Nacitavanie hodnot zabezpecis v jednom riadku a to oddelenim jednotl. zadanych hodnot TABelatorom, alebo medzerou.
Co sa tyka pridavania novych kniznic a pouzitie v programoch. Musis si ju nakopirovat do zlozky, kde mas nastavenu cestu pre unity. Potom v programe v sekcii "uses:" pridas za bezne units tu svoju novu.

pascal - par jednoduchych otazok

Podobné témy