Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#2 11. 03. 2010 21:13 — Editoval hradecek (12. 03. 2010 18:03)
Re: Pascal-cykly
1.Použiješ cyklus FOR
PROGRAM od_1_po_n;
USES crt;
VAR sucet, i, n : integer;
BEGIN
ClrScr;
sucet := 0;
write('Zadaj cislo: ');
readln(n);
for i:= 1 to n do
sucet := sucet + i;
writeln('Sucet cisel je: ', sucet);
readkey;
END.
2. tiež použiješ cyklus FOR
PROGRAM prvych_n_neparnych_cisel;
USES crt;
VAR i, n : integer;
BEGIN
CrlScr;
write('Zadaj cislo: ');
readln(n);
for i:=0 to n do
begin
if((i mod 2) = 1) then write(i, ' ');
readkey;
END.
Keď máš teda formátovať si ich môžeš doplniť ešte napríklad o TextBackground atď...
↑ RePRO: Vďaka za poopravenie, a moja čeština tiež nie je asi ktoviečo. (sudé = párne; liché = nepárne)
Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~
Offline
#3 11. 03. 2010 21:30
- RePRO
- Místo: Jihlava
- Příspěvky: 363
- Škola: AI VŠPJ (09-12, Bc.)
- Pozice: programátor
- Reputace: 11
- Web
Re: Pascal-cykly
↑ Toni: Ahoj, v pascalu už jsem dlouho nedělal, ale zkusím narychlo sesmolit. Samozřejmě se to dá udělat pomocí funkcí. Pro demonstraci kódu jsem použil dva cykly - while a for:
Code:
program soucetCisel;
uses CRT;
var horniMez, n, soucet: integer;
begin
horniMez := 5;
n := 1;
soucet := 0;
while (horniMez >= n) do
begin
soucet := soucet + n; n := n + 1;
end;
writeln('Soucet cisel je: ', soucet);
readkey;
clrscr;
end.------------------------------------------------------------------
Code:
program nLichych;
uses CRT;
var kolikLichych, liche: integer;
begin
kolikLichych := 10;
for liche:=1 to kolikLichych*2 do
begin
if ((liche mod 2) <> 0) then writeln(' ', liche);
liche := liche + 1;
end;
readkey;
clrscr;
end.Srdcem trochu-programátor, duší rádoby-matematik a povoláním analytik-vývojář.
Offline
#5 11. 03. 2010 21:33
- RePRO
- Místo: Jihlava
- Příspěvky: 363
- Škola: AI VŠPJ (09-12, Bc.)
- Pozice: programátor
- Reputace: 11
- Web
Re: Pascal-cykly
↑ hradecek: Jenom taková malá připomínka k tomu prvnímu programu. Má to být součet čísel. ;-)
Srdcem trochu-programátor, duší rádoby-matematik a povoláním analytik-vývojář.
Offline