Lessons programozás Turbo Pascal (al) hírlevél

A gyakorlatban, jól ismert probléma, további folyamán az oldat, amely függ a teljesítését bármilyen körülmények között. Az életben gyakran jár a körülményeknek megfelelően, bizonyos feltételek mellett. De ha a életben gyakran keresnek kiutat a helyzet csak akkor fogott meg, a program szükséges, hogy minden olyan intézkedéseket kell végrehajtani, miután állapotának ellenőrzésére, mint abban az esetben, annak végrehajtását, és mulasztás esetén. Sorrendjének módosításához a különböző részein a programban, egy feltételes utasítás.







7.1. Feltételes nyilatkozat.
Feltételes utasítás lehetővé teszi, hogy kihagyja a program, illetve nyilatkozatokat függően bizonyos körülmények között. Feltételes operátor két formája lehet:

Teljes üzemben.
utasítás formátum
IF feltétel THEN ELSE operator_1 operator_2;

Hiányos nyilatkozatot.
utasítás formátum
IF feltétel THEN nyilatkozatot;

Ha lefordították orosz angol szavakat kapjuk:

IF feltétel THEN ELSE operator_1 operator_2; vagy ha a körülmények az üzemeltető;

Összehasonlításképpen működési feltételek érvényesek: = <>, <=,>= <,>. A bal és jobb összehasonlítás megjelölés írásbeli aritmetikai kifejezéseket.

Például az üzemeltető
Ha x<>0, akkor Z: = y / x
mást write ( 'Hiba!');
hozzárendeli az érték a magán Z változó y / x, ha x<>0, különben nem fog megjelenni a kijelzőn a „Hiba!”.

7.2. Vegyület nyilatkozatot.
Bizonyos esetekben, amikor a szavak és akkor más is végre kell hajtani a több mint egy szolgáltató, hanem több. Aztán ezek az üzemeltetők az úgynevezett nyilatkozatot zárójelben, ahol kezd - nyitó zárójel, END - záró zárójel. Minden szereplők zárójelben található üzemben úgynevezett összetett utasítást. Mielőtt a szót ELSE pontosvessző soha ne tegye.

Parancs formátum: BEGIN üzemben; Operator,. operátor END;

Például:
Ha egykezdődik
R: = a;
A: = b
B: = r
vég

Miután végrehajtás ilyen egy üzemeltető a változó értéke nagyobb, és a B változó - a kisebbik a két érték, hogy a korábban ott.







Amint végzett feltételes utasítás intézkedés lehet egy másik feltételes állítás. Például:
Ha sqr (x) + sqr (y)> 1, akkor
Ha x> y, akkor z: = 0
Else z: = 1;

Ebben a formában a felvétel egy jobbra tolódása az egyes belső akciók könnyen belátható, hogy a két szavak szót, ha mást. Tekintsük a példa egy program segítségével a feltételes állítás. Hagyja, hogy a két egész kell meghatározni, hogy azok még vagy sem. Használatához paritás feltétele fennmaradó osztás 2 0 páros szám.

Program prim_7;
Var a, b: egész szám;
kezdődik
Write ( 'Adjon meg két egész szám);
Readln (a, b);
Ha egy mod 2 = 0, akkor WriteLn ( 'egy - még')
Else writeln ( 'a - páratlan');
Ha b mod 2 = 0, akkor WriteLn ( 'b - még')
Else WriteLn ( 'b-páratlan');
Readln
vég

Célokat képzés.
1. Számítsuk ki az értéke y adott értéke x:

2. Írja be a két szám. Az első nyomat kevesebb, akkor több közülük.
3. Tekintettel az x és y. Számítsuk ki a Z, egyenlő x + y, ha x<=y, и 1 - х + y в противном случае
4. Mivel a két számot. Nyomtatás az első közülük, ha ez nagyobb, mint a második, és mind a száma, ha nem.
5. Ha az x szám kisebb, mint nulla, majd állítsa a z értéke a nagyobb két egész szám x és y, vagy z értéke, állítsa a fele-összege ezeket a számokat.
6. * Mivel a két szám. Kevesebben, cserélje ki a fele összeget ezek a számok, és - a termék.
7. adott kör sugara, és egy szögletes arcát. Az adott területen a szám több?
8. Egy egész szám. meghatározni:
a. Van még;
b. függetlenül attól, hogy végződik a 7-es szám;
c. függetlenül attól, hogy osztható 13.

Elemzés a munkahelyi képzés lecke 6.

* 8. A valós szám, amely két pont és két különálló utánig. Kap egy új számot, változó számban A integer és tört részei.

Ez a feladat nem vonatkozik az aritmetika, mert kap egy valós, és nem egy egész szám. Próbáljuk megtalálni az egész és tört részei. És akkor csak összegyűjti az új számot növeli a tört része 100-szor, és csökkenti egész része is 100-szor.

Program prim_8;
Var a, b, x1, x2: real;
kezdődik
Write ( „Enter number„);
Readln (a);
X1: = int (a);
X2: = frac (a);
b: = x1 / 100 + x2 * 100;
WriteLn (b);
Readln
Vége.

9. * Az irodában van címletű megnevezésétől K rubelt, és 1 rubel. Biztosítja N rubel meghatározott minimális számlák adott méltóságot.

Meg, hogy hány címletű K kibocsátásához szükséges összeg a legközelebb ehhez, de ez kevésbé. És akkor mennyi van hátra adni.

Program prim_6;
Var k, n, m, p: integer;
kezdődik
Write ( „adja meg a számát rubelt”);
Readln (n);
Write ( 'Enter előny bankjegy');
Readln (k);
m: = n div k;
p: = n mod k;
WriteLn (p, 'számlák 1 Rouble,', m, 'számlákat a', k, 'RUB Összesen =', p + m);
Readln
Vége.

Sok sikert kívánok!
Ganilova Tatiana E. [email protected]