Matematické Fórum

1.)
Vytvoríš si tri premenné, napríklad x a y a budú typu integer, a premennú volba typu char.
Pomocou príkazu pre vstup (z klávesnice) readln resp. read získaš hodnoty premenných x a y.
Za pomoci príkazu CASE ... OF zistíš akú operáciu si užívateľ vybral, a vykoná sa konkrétna operácia...
Napríklad:

CASE volba OF
  'A', 'a' : writeln(x, ' + ', y, ' = ', x + y);
  'B', 'b' : writeln(x, ' - ', y, ' = ', x - y);
  ....
  ....
  END;

2.)
Vytvoríš si premenné x, sucet a pocet... !!! nezabudni inicializovať sucet a pocet na 0 !!! ...
Pomocou cyklu while stanovíš podmienku, a pri telo cyklu bude obsahovať vstup pre hodnotu x, zvýšenie premennej sucet o x, a zvýšenie premennej počet o 1...
Priemer vypočítaš a vypíšeš...
Príklad:

sucet:= 0;
pocet:= 0;
while(x <> 0) do
  begin
    readln(x);
    sucet:= sucet + x;
    pocet:= pocet + 1;
  end;
  write('Priemer je ', sucet div pocet);

3.)
4.) O niečom ako pow (teda power) v pascale neviem, ale to by sme si moc uľachčili :)))
Zase použiješ cyklus...

Nebo to mocnění můžeš udělat takto:

We want z = x^y

Take natural logs of both sides to get

ln z = y * ln x

Now if we use Exp on both sides we get the desired result z because

z = Exp(Ln z) = Exp(y* Ln x)

So the pascal function to get x^y is this:

function PowerFn (number, exponent: float): float;
begin
PowerFn := Exp(Exponent*Ln(Number));
end;

where Exponent = y and Number = x

zdroj a zde jsou další matematické fce

↑ Honzc:
Neprogramuji v pascalu, ale neslouží pro načtení do proměnné to Readln(x); to tam hradecek má.
A když už rýpeš, tak to WriteLn('Zadej číslo: '); nechceš přece opakovat s každým průchodem, tak proč je uvnitř cyklu?
A ohledně to typu cyklu, to je asi jedno, který použiješ.

hradecek napsal(a):

↑ Honzc:
A predsa si povedal že nechceš celé programy ;-), okrem readln tam chýba ešte strašne veľa vecí (deklarácia premenných, začiatok tela, koniec tela hlavnej funkcie...), ale myslel som že máš dostatok IQ aby si to pochopil :-P.

Myslím že pláčeš na špatném hrobě autorem dotazu neni Honzc , ale Templarius.

↑ gladiator01:
Píšeš:
"Neprogramuji v pascalu, ale neslouží pro načtení do proměnné to Readln(x);  to tam hradecek má.
A když už rýpeš, tak to WriteLn('Zadej číslo: '); nechceš přece opakovat s každým průchodem, tak proč je uvnitř cyklu? "
Tak si to rozebereme:
1.ReadLn opravdu slouží pro čtení hodnoty proměnné. To mu ji ale musíš nejdřív zadat.
2.V zadání stojí, že průměr se má dělat ze zadávaných čísel. Tak tedy opravdu při
   každém průchodu se bude jedno číslo zadávat. A zadávání a tím i cyklus se ukončí, až se
   ti uráčí zadat 0 (v souladu se zadáním)
   Pozn.: Jinak, když WriteLn nebude v cyklu, tak jak ta čísla budeš tedy zadávat?
             Cyklus while se dá použít, ale program bude složitější (delší)
Takhle kratký je s repeat

program Prumer;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var p: Integer;
    s,x: Extended;
begin
  s:= 0;
  p:= 0;
  repeat
    WriteLn('Zadej cislo: ');
    Readln(x);
    s:= s + x;
    p:= p + 1;
  until x=0;
  WriteLn('Prumer je: ', Format('%.2f',[s/(p-1)]));
  ReadLn;
end.

↑ gladiator01:

1.Já jsem si na rozdíl od tebe ten můj program odzkoušel (i když jsem si vědom, že píšeš v C)
   Protože, to co jsi napsal skončí tak, že se vypíše:
   Zadej cisla, pro konec zadej 0:
   Prumer je: 0.00
   a nic tě to nenechá napsat, nebo lépe řečeno nechá, ale pak už nic nespočítá.
   Oprava: vložit řádek: x := 1;
2."Já teda napíšu pět čísel a nulu a potom teprve stisknu enter."
   Tomu zase nerozumím já, jak je tedy budeš bez Enteru zadávat. Co budeš psát mezi
   jednotlivými zadávanými čísly? Při zadávání musíš mezi jednotlivými čísly dávat Enter
   (to je psát čísla na samostatný řádek) - alespoň si myslím.
3.Tvůj program s mojí opravou bude mít o jeden řádek víc než ten můj.

↑ gladiator01:
"Náš" (není to můj) skvělý Pascal opravdu neumí číst mezery mezi čísly na jednom řádku.
Pokud to napíšeš s mezerami, tak vezme jenom první číslo.
Samozřejmě, že by se to dalo napsat na jeden řádek a pomocnou funkci z toho vytahat jednotlivá čísla (jako oddělovač by mohla být ta mezera), ale to by bylo složitější a pro začátečníka těžko proveditelné.
Proměnné se všechny na vstupu nemusí inicializovat, ale pak jsou automaticky nastaveny na 0 (pokud jsou to čísla)-to zde ovšem při tvém řešení je právě na závadu.

↑ LukasM:
Omlouvám se, přehnala jsem to. To to zkouškové :).
Samozřejmě, že je vhodné inicializovat proměnné, ale tady v tom případě se nic nestane v x by bylo prostě nějaké náhodné číslo.

Honzc ze sebe nemá dělat odborníka - když si myslí, že bez popisku (že mam zadat číslo) se mu nic nenačte, tak to s ním bude asi špatné.

↑ Honzc:
Možná bychom tuto diskuzy mohly od tvého #6 přispěvku smazat.

↑ Bajro:
A co se to začít učit sám hned? Nápověd už tady pár padlo.. Co dělá problémy?

↑ Templarius: Zdravím. Taková dobrá zásada: pokud na tebe Pascal něco při překladu křičí, tak to opiš na fórum. Jinak v klasickém TurboPascalu / BorlandPascalu vynech

{$APPTYPE CONSOLE}

uses
  SysUtils;

a to Format('%.2f',[s/(p-1)]) možná taky nepoběží, zkus místo toho jen (s/(p-1)).

1.)

PROGRAM mat_operacie;
USES crt;
VAR cislo1, cislo2 : integer;
       volba : char;
BEGIN
  ClrScr;

  write('Zadaj prve cislo: '); readln(cislo1); ClrScr;
  write('Zadaj druhe cislo: '); readln(cislo2); ClrScr;

  writeln('Vyber si operaciu');
  writeln('S - sucet');
  writeln('R - rozdiel');
  ...

  volba:= readkey;
  CASE volba OF
    'S', 's' : writeln('Sucet: ', cislo1, ' + ', cislo2, ' = ', cislo1 + cislo2);
    'R', 'R' : writeln('Rozdiel: ', cislo1, ' - ', cislo2, ' = ', cislo1 - cislo2);
    ...
  END;

  readln;
END.

Tam kde som dal tri bodky, si doplň vlastné mat. operácie, a ten výber môžeš urobiť nejaký krajší...
Namiesto toho volba:= readkey; môžeš použiť aj klasicky readln(volba)...ak ale budeš chcieť použiť readkey musíš pripojiť aj crt...Uses crt;
Načo si dávaj POZOR je že delenie pri celočíselných typoch je div a pri reálnych je /

↑ Templarius:
No myslím, že stlačiť CTRL+C a CTRL+V a F9 zvládne každý :-P
P.S.- Dúfam že tie programy fungujú, neskúšal som ich...