ág nyilatkozat

FOR ciklus operátor, az úgynevezett hurok nyilatkozatot paraméter a következő:

Ha ez a parancs hajtódik végre először számítva néhány kezdeti értékét, amely hozzá van rendelve a változó én, nevezett ciklus paraméter. Ezután kiszámítja a végső értéke a B és a pro-ellenőrizte, hogy az egyenlet I. = V. Ha nincs egyenlőség, Folyamatban S, ami lehet szerves üzemeltető, és a változó már visszavonták Chiva egység. Ezt követően ellenőrzést (hogy a paraméter nem azonos a végső érték), a teljesítmény üzemeltető S változások és a megnövekedett I-hidrogén-egység ciklikusan végezzük, amíg amíg-egyenlet I = V. Paraméter ciklus I., valamint a kezdeti és a végső ZNA-szakasza (A és B) is tartozhatnak bármilyen sorrendben típusú (például, egész vagy Char). (Ugyanakkor meg kell mind ugyanolyan típusúak.) Ha a kezdő érték nagyobb vagy egyenlő, mint a végső értéke az önálló start, S nem szereplő egyszer végrehajtja.

Ahogy itt használjuk, a fenntartott szó, az alábbiakra, és IME-out értelme. és végrehajtani kell.

FOR ciklus nyilatkozat azt az alábbi jellemzőkkel:

• A hurok test tilos kifejezetten változtatni a paramétert (az értékadó operátor, például);

• A befejezése a FOR ciklus operátor, a paraméter értéke

(I) nem definiált. Van még egy másik formája ciklus operátor a lehetőséget:

Itt elvégzésére az üzemeltető S, a kezdeti érték egy meg kell haladnia az ellenszolgáltatás B. Ezen kívül ebben az esetben a paraméter azt minden egyes ciklusban csökkentjük eggyel, amíg nem válik egyenlő a végső érték V.

Operator ciklusban egy paramétert kell használni, amikor a per előtt ismeretes, hogy mennyi idő kell a ciklus törzse.

Íme néhány példa a ciklus operátor a lehetőséget:

i: = l és 5 do x: = sqr (x);

i: = z downto egy do write (i);

Az első példában, a változó értéke X négyzetes, majd a kapott érték van hozzárendelve az X változó, és így öt alkalommal.

A második példában a kezelő ciklus a paramétert használjuk a kimeneti a latin ábécé fordított sorrendben (képest a Z). Az a tény, hogy a Char az a típusú szekvencia, az elején a betûjelei, hogy (amint Char érték típus) kell tekinteni, kevesebb betű, vett végén al-favita. Nem, például a hibás egyenlőtlenség A<В

Ahhoz, hogy megértsük a különbség a szolgáltatók a while ciklus és a FOR, nézd meg a releváns részei a programok, amelyek Megjelenik egy üres sort.

sor: = l, míg vonal

a vonal = L-N do writeln

Ha a változó deklarált sor (lásd a változó leírását) tartozóknak egész típusú FOR megjeleníti az N-edik sorban genny. A feladatok végrehajtása segítségével FOR egyszerűbb, mert nincs szükség arra, hogy értékadó operátort: ​​= l, és a sort: = sor + 1.

Primer№4. Megjelenítéséhez 20 vonalak szimbólumok ********************

var A, n, i: integer;

Adjuk szám 2-10, és kiad egy válasz formájában mértékben beírt szám 2 és 10 Például:

„2.00 a hatalom 2értéke 4,00

2,00-8,00 fok egyenlő 3

2.00 A 10 fokos 1024. "

Egy példa erre a programra.

Példa ismétlési ciklus típusát. amíg. Számának meghatározása n, ahol a négyzetének összege a természetes számok 1-től n nem haladja meg K, be a billentyűzetről. Ez azt jelenti,

programot sum_sq; használja crt; var k, s, n. integer; kezdődik clrscr; writeln ( 'Enter K'); readln (k); s: = 0; n: = 1; ismételje s: = s + n * n; n: = n + 1; amíg s> k; writeln ( 'N =', n 3, 's =' s 5 ...); végén.

Számítsuk ki az első 20 feltételei szekvenciájának Fibonacci chesel:
u1 = 1; u2 = 2; u (n) = u (n-1) + u (n-2), és az értéke az Arany V. szakasz (n) = u (n) / u (n-1)

const nmax = 20; var i: integer; U1, U2, U3: integer; v: real; beginu1: = 1; u2: = 2; v: = U2 / U1; writeln ( 'u (1) =', u1); writeln ( 'u (2) =', u2, 'v (2) =' v: 2: 2); i: = 3, hogy nmax do kezdeni U2: = U2 + u1; u1: = U2-U1; v: = U2 / U1; writeln ( 'u (', i, ') =', u2, 'v (', i, ') =', v: 2: 2); end; readln; vége. Primer№5 const nmax = 20; funkció FIB (n: egész szám): integer; beginif (n = 1), akkor kezdődik a fib: = 1; kilépés; vége, ha (n = 2), majd kezdődik fib: = 2; kilépés; end; fib: = fib (n -1) + fib (n-2); end; funkció SECH (n: egész szám): valós; beginsech: = FIB (n) / fib (n-1); end; var i: integer; beginwriteln ( 'u (1) =', fib (1)); i: = 2 és Nmax do writeln ( 'u (', i, ') =', fib (i), 'V (', i, ') =', SECH (i): 2: 2); readln; vége.

Billentyűzet bemenet pozitív egész n, p és a. Készítsen programot kiszámítására egy előre meghatározott tagjainak száma az N szekvencia, és, n. Megjeleníteni a kapott értékeket.

Határozat. Mi egy változót teljesítmény (power) teljesítmény számításához szükséges funkciója N; változó exponens (index), hogy kiszámítsuk az exponenciális függvény és egy változó faktor (szorzó) a faktoriális n !.
Programok a következőkből áll:
• Blokk leírással, amely meghatározza a használt modulok használt változók és típusok;
• A testületek a program, többek között;
- A képernyő tisztítása;
- A billentyűzet bemeneti adatok;
- számítási elemek egy szekvenciát rekurzióval kapcsolatok, a kiindulási értékek a változók a következők:
teljesítmény = 1, exponens = 1, faktor = 1,
A képlet a általános kifejezés
poweri = poweri-11 • N
exponenti = exponenti-11 • N,
factori = factori-11 • i;
- kijelző az eredmények a képernyőn.
A programok változók n, p és - egész típusú egész szám (a nemnegatív egészek tartományban változások 0-32 767); változó energia, exponens, faktor - valós számok legalább 6-7 igazi jelei után a pont (pozitív számok a megengedett tartományon a típusú, mint például a 1,4 • (10 -45) a 3,4 • (10 38) ). Használt adattípusok elemzi egyetlen, igazi, lebegnek a nyelv BASIC, Pascal, C, ill. Ha a kimeneti változó kívül deklarált tartomány típus jelenik meg a túlcsordulás hiba (túlcsordulás).
Formázott kimeneti eredmények valamennyi program ugyanazon a programozási nyelv, mint például, ha n = 10, p = 3, a = 3. Van: n = lO = 1000 és = 3 * 10 = 59 049, n. == 10! = 3.628.800.

Legyen Primer№7 számítási program n !.

var n, I, p: integer;

i: = 1-től n-do p: = p∋i;

Anélkül, standard funkciók (kivéve ABS), amely ki volt számítva pontossággal 0,0001 függvény az y = f (x). Ez azt feltételezi, hogy a szükséges pontosság érhető el, ha a következő kifejezés abszolút értéke kisebb, mint 0,0001, az azt követő szempontból már nem lehet figyelembe venni. Ólom és y értékét, hogy találtak segítségével szabványos funkciók.

var x, y, n, u: a valós;

amíg abs (u) <0.0001;

levelet ( 'kapott y =', y: 2, 4, 'szabvány x =', cos (x))

var x, y, n, u: a valós;

Míg az ABS (u)> = 0,0001 do

levelet ( 'kapott x =', x: 8: (x) 4 'szabványos x =', cos: 8: 4)

Mivel nem üres sorozata a pozitív valós számok,

majd egy negatív szám. Készítsen számítási program

számtani átlaga ezeket a számokat.

var x, s: a valós; n: egész szám;

levelet ( 'x', n + 1, '='); readln (x);

levelet ( 'cp. számtani. =', s / n)

var x, s: a valós; n: egész szám;

míg X> = 0 do

levelet ( 'x', n + 1, '='); readln (x)

levelet ( 'cp. számtani. =', s / n)

Adott egy n> 0 Írj egy programot, amely kiírja az összes prímszám származó

var n, m, k, p: integer;

az m: = 2 és n do

k: = 2 a TRUNC (sqrt (m)) do

ha m mod k = 0, akkor p: = 1;

ha p = 0, akkor levelet (m, '')

var n, m, k: integer;

az m: = 2 és n do

k: = 2 a TRUNC (sqrt (m)) do

ha m mod k = 0, akkor Goto 1;

var n, m, k: integer; t: logikai;

levelet ( 'n ='); readlln (n);

az m: = 2 és n do

amíg t vagy (k> = TRUNC (sqrt (m));

ha nem t, akkor levelet (m, '')

Hasznos dolog? Ossza meg ezt:

Nem találja, amit keres? A Google, hogy segítsen!

Oldal keletkezett: 0.023 mp.

Kapcsolódó cikkek