Matematické Fórum

Samozrejme že dá, stačí ak to uložíš v nejakom textovom editore(Poznámkový blok) s príponou .pas, najlepšie do zložky kde máš pascal nainštalovaný.
V pascale to už iba otvoríš FILE->OPEN...

Mam, ale pascal neumím tak ti moc nápomocná nebudu.

Teďka jsem to zkoušela přeložit ve Free Pascal IDE a když jsem ručně přepsala to 'S', 's' : (a dalsi taky), tak to najednou začlo fungovat, jestli tam nebyl nějakej neviditelnej znak.

Nebo to bylo tím, že ve druhým řádku toho CASE bylo dvakrát R místo R a r.

Určitě tam máš překlep - zkus to tam zkopírovat znova, jestli jsi si to už neupravil.

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.

Zdravím, tak jsem zkoušel vytvořit tu třetí úlohu, ale nějak to nejde. Neví někdo jak na to? Ten faktorial mi to vůbec nechce vypočítat.

Díky a ta 4tá úloha je něco podobného že?

↑ Templarius: Zdravím. Moderátorská poznámka: mazání příspěvků nemáme rádi. Pokud ti vadí, že jsou tvé příspěvky veřejné, bylo by lepší toto řešit jinak než na fóru. Na druhou stranu, po mailu to s tebou nejspíš nikdo řešit nebude.

Pokud chceš nadále spolupracovat, bylo by dobré se za doposud smazané příspěvky omluvit* a další příspěvky nemazat.
---
* ne mně, ale kolegyňce glatiator01, která se ti tu tak vytrvale snaží pomáhat.

Omlouvám se...

jj

Pomůžeš mi teda? Když mám dělat úlohy na takové počítání, tak jsem v koncích.

↑ Templarius:
Možná večer nebo zítra, říkám, že musím něco dodělat do školy- do večera nejlépe.

A je to opravdu jednoduché snaž se, je to stejné jako ten faktoriál.

Pokud by jsi mi s tím pomohla večer, bylo by to také fajn..díky

program mocneni;
uses crt;
var x,vysledek:real; n,i:integer;
begin
writeln ('Zadej x');
readln (x);
writeln ('Zadej n');
readln (n);
vysledek:=1;
for i:=1 to n do vysledek:=vysledek*x;
writeln (x:6:2,'^',n,'=',vysledek:8:2);
repeat until keypressed;
end.

Funguje to pro reálná čísla x z rozsahu datového typu real, pro nezáporná celá čísla n z rozsahu oboru integer. Pokud potřebuješ i záporné exponenty, musíš přidat podmínku, pokud budeš uvažovat i reálné exponenty, bude to mnohem horší.....

Stačí to takhle?

tak přidám ještě já, když už jsem to udělala (je to sice stejné jako Kondrovo, ale to je jedno):)
Co v tom hledáš za složitosti, vždyť to je pár řádků?

PROGRAM faktorial;
USES crt;
VAR n, i,a,m : integer;

BEGIN
  ClrScr;

  writeln('umocnovani');  writeln;
  write('Zadej cislo: '); readln(a);
  write('mocninu: '); readln(n);
  m:=1;

   for i:=1 to n do
     begin
        m:=m*a;
     end;

    writeln('a^n=',m);

  readln;
END.