O eljárások írása és writeln
Eljárások O WRITE WriteLn és arra szolgálnak, hogy megjelenítse a képernyőn állandók (mind numerikus és szöveges), a változók értékei és kifejezések. Ezek miatt a megfelelő hívást kezelő eljárások, mint például:
Write ( 'a program', X, Y - Z * 3).
E szerint a szolgáltató jelenik meg ugyanabban a sorban a „program”, hogy továbbra is anélkül, hogy rések értéke a X változó és az expressziós Y - Z * 3. Például, ha van X = -3, Y = -5, Z = 12, akkor a képernyőn ez jelenik meg: a programok 3-41.
Hogy szétválassza a elemek egymástól O, O Formázások vétel. Így, write (A 20) - egyetlen formátumban - azt jelzi, hogy az érték a változó egy adott 20 pozíciók a képernyőn. Ha a változó értéke A készítmény kevesebb, mint 20 karakter, akkor térjen át a jobb és a bal oldali vonal tele van üres.
Kettős formátumú csak akkor kell használni, hogy megjelenjen a valós értékeket. Például, WRITE (C: 17: 7) azt jelenti, hogy a kimeneti változó értéke C adott, összesen 17 pozíciók, amelyből hét pozíciók célja, hogy képviselje a törtrész. Ha nincs méret van megadva, az valóséval jelennek exponenciális formában. Megjegyzendő, hogy a méret nem csak változók WRITE nyilatkozatok, hanem a kifejezés, például:
Write (cos (x + 4) 5. 2).
WRITE operátor munkája eltér az üzemeltető WriteLn hogy befejezése után kilép a írásmutatóját végén van a kimeneti listán, míg a writeln megy a következő sorra. A gyakran használt operátor WriteLn megjelenítése nélkül lista megjelenítéséhez egy üres sort.
Mi bemutassa a munka e szereplők a következő példát:
var ELSŐ, MÁSODIK, TROIS, SUM: integer;
writeln ( 'Adja meg a számot 3');
readln (első, második, TROIS);
SUM: = Első + második + TROIS;
writeln ( 'középérték', ELSŐ: 4, '', MÁSODIK: 4 '');
levelet (TROIS: 4, 'egyenlő'; (SUM div 3): 3)
Ez jelenik meg:
Type 3 2 12 9 középértéke 3, 12, 9 egyenlő 8
Lab № 1
A cél a munkát. fejleszteni a gyakorlati készségek Borland Pascal és Delphi programozási rendszer, megtanulják, hogyan kell létrehozni, írhatunk, küldhetünk és végrehajtani a helyes egyszerű programok Pascal, felelnek meg a diagnosztikai fordító hibaüzenetet a példa programok, amelyek megvalósítják a lineáris algoritmusokat.
Ez az úgynevezett lineáris algoritmussal, amelyben az eredményt úgy kapjuk meg egyszer végez előre meghatározott sorrendben intézkedések bármelyik értéke bemeneti adatok. programot nyilatkozatok szekvenciálisan hajtjuk végre, egyiket a másik után, aszerint, hogy azok helyét a programban.
Mielőtt elvégezné a szükséges munkát, hogy megismerjék az elméleti anyag „Pascal leírása”, „Egyszerű állítások. I / O adatok. "
Példa. Határozzuk meg a távolságot a gépen két pont között egy cél pixel M1 (x1, y1) és az M2 (x2, y2).
Ebben a példában elvégzett egy teljes elemzést a megoldás.
Matematikai modell: úthossz egy síkban két pont közötti M1 (x1, y1) és M2 (x2, y2) kiszámítása a következő képlet:
Formában a folyamatábra, majd a tartalmát a blokkok meghatározza „kiszámítása távolság” és „kimeneti távolság” (ld. 1.):
Ábra. 1. A folyamatábra
Részletesebb információk megadása nem szükséges. Fordítás folyamatábra Pascal nyelven, hogy véglegesítse a program, hogy javítsa a felületet:
var x1, x2, y1, y2: integer;
Writeln ( „Ez a program kiszámítja a két pont közötti távolság egy síkban”);
Writeln ( „Add meg a koordinátáit a két pontot:”);
Feladat 2. Írj egy programot, hogy megoldja a következő problémát:
a) Dana kocka élhosszúságú. Keresse meg a kötet egy kocka, és a terület oldalsó felületén.
b) ismert kerülete. Keresse meg a terület egy kör által határolt ezt a kört.
c) Számítsuk ki a magassága a háromszög, csökkentette az oldalán egy. az ismert értékek a hossza az oldalán a, b, c.
d) szerint a téglalap oldalai kiszámítja annak kerületét, terület és hossza az átlós.
3. feladat nyomtatása értéke igaz. ha a nyilatkozatot adni a javasolt kezdeti adatok igaz, és hamis értéket egyébként (összes számok, amelyek nem meghatározott érvényesek):
a) egy adott x szám tartozik az intervallumot [-a, a];
b) egy adott x szám nem tartozik az intervallumot (a, b);
c) adott egész x páratlan;
d) egy adott számú x egy gyökere az egyenlet: AX2 + bx + c = 0;
1. A hallgató kezdte, hogy megoldja a problémákat, a programozási leckét, amikor az elektronikus cserére h1 min1 óra és perc, és véget ért, amikor ez volt h2 min2 óra és perc. Készítsen programot, amely lehetővé teszi, hogy meghatározza, hogy mennyi ideig (óra, perc) a tanuló, hogy megoldja ezeket a problémákat.
2. Adott egy valós szám. Használata nélkül bármilyen más eltérő műveletek szorzás, így: a) A4 két műveletben; b) A6 három műveletet; c) A7 négy művelet; g) a8 három műveletet.