Rné-Ildi

Órai feladatok Pascal ban. A dupla perjel után a magyarázat található!!

Program koszon;                                       // Rrogram fej, program neve

Uses Crt;                                                     //Karakteres üzemmód

Var Nev: String;                                          //Nev váltózó deklarálása

Begin                                                           //Program törsz, program kezdés

  ClrScr;                                                       // Képernyő törlés

  WriteLn;                                                    // Üres sor

 Write(’Kerem adja meg a nevet:  ’);       // Adatbekérés a felhasználótól  

  ReadLn(Nev);                                      // A nev váltózóba eltárolja az adatot

  WriteLn;                                                     // Üres sor

  Write (’ HELLO! ’,Nev);                              // Kiíratás

   ReadLn;                                                      // Nyom le az enter billentyűt 

End.                                                                //Program vége               

___________________________________________________________ 

Uses Crt;                                                               // Karakteres mód

Var a, k, t: Integer;                                              // Változók deklarálása

Begin                                                                     // Program törzs

  ClrScr;                                                                 // Képernyő törlés

  WriteLn;                                                              // Üres sor

   Write(’Kerem adja meg a negyzet oldalat: ’)   // Adat bekérés

   ReadLn(a);                                                      // Adat eltárolás a váltózóba

   k:= (4*a);                                                           // Kerület számítás

   t:= (a*a);                                                             //Terület számítás

   WriteLn;                                                               // Üres sor

   WriteLn (’A négyzet kerülete: ’, k , ’ cm’);        // Kerület kiírása

   WriteLn;                                                               // Üres sor

  WriteLn (’A négyzet kerülete: ’, t , ’ cm’);          // Terület kiírása  

  ReadLn;                                                                 // Entert üsd le 

End.                                                                        // Program vége

___________________________________________________________

Program haromszogkerter;                               // program neve

Uses Crt;                                                             // Karakteres mód

Var a, m, t: Real;                                               // Valós típus 

       b, c, k: Integer;                                          // Egész típus

Begin                                                                 //Program törzs 

  ClrScr;                                                             // Képernyő törlés

  WriteLn;                                                         // Üres sor

  Write(’ Kerem adja meg az a oldalt: ’);       // Adat bekérés

  ReadLn(a);                                                    // Adat eltárolás

Write(’ Kerem adja meg az b oldalt: ’);

  ReadLn(b);

Write(’ Kerem adja meg az c oldalt: ’);

  ReadLn(c);

Write(’ Kerem adja meg a haromszog  magasságát: ’);

  ReadLn(m);

WriteLn;                                                                // Üres sor

k:=(a+b+c);                                                         // Kerület számítás

t:=(a*m/2);                                                        // Terület számítás

WriteLn;                                                               // Üres sor

Write(’ A háromszög kerülete: ’, k, ’ cm’);        // Kerület kiíratattása

WriteLn;                                                               // Üres sor

Write(’A háromszög területe: ’, t:6:2, ’cm2);

                           // Formázott kiíratás, hat egészszám és két tizedes

ReadLn;                                                                // Üsd le az entert

End.                                                                       // Program vége

___________________________________________________

 Oszthatóság vizsgálata  maradék képzéssel.

A progra a bekért számról eldönti, hogy osztható hárommal vagy nem. Az oszthatóság viszgálatát a maradék képzéssel (mod művelettel) tudjuk elvégezni.

Program Harommaloszthato;

uses Crt;

Var a: Integer;

Begin 

  ClrScr;

  WriteLn;

  Write('Kérem adjon meg egy szamot: ');

  RadLn(a);

  If a Mod=3 Then 

  WriteLn(' A szam oszthato harommal!')

  Else  WriteLn(' A szam nem oszthato hárommal');

  ReadLn;

End.

____________________________________________________

Összetett logikai kifejezéseket is készíthetünk. Ekkor a NOT, az AND, OR vagy XOR használjuk.

A minta program a bekért számrol eldönti, hogy háromjegyű-e.

Program Haromjegyu;

Uses Crt;

Var x: Integer;

Begin

  ClrScr;

  WriteLn;

  Write('Kerem adjon meg egy szamot: ');

  ReadLn(x);

  If (x>99) And (x<1000) Then

  WriteLn(' A szám háromjegyű!')

  Else

  WriteLn(' a szam nem haromjegyu!');

 ReadLn;

End.

A HuPont.hu ingyen weblap készítő egyszerű. Weboldalak létrehozására: Ingyen weblap

ÁSZF | Adatvédelmi Nyilatkozat