elválik :P

• A Pascal program szerkezete
• Programozási tételek
• A tömb adatszerkezet
• Ciklusok a Pascalban
• CIKLUSOK
• Az IF feltétel és ELSE ága, elágazó utasítás
• Az IF ... THEN parancs, feltételes utasítás-végrehajtás
• Az IF feltételvizsgálat
• Karakterláncok kezelése (string típusú változók)
• Valós típusok
• Az egész típusokról általában
• Konstansok
• Változók beolvasása billentyűzetről - ReadLn
• Változók használata, integer és string alapismeretei
• Változók deklarálása, a típus fogalma, értékadás
• Kiírás a képernyőre - Write, WriteLn eljárás
• Index1
• A Pascal program építőeleme
• Bevezető
• index14
• index13
• index12
• index11
• Index10
• Index9
• Index8
• Index7
• Index6
• Index5
• Index4
• Mostani DOGA
• Keir kezdölap

PDF-ből szöveg konvertáló

 

Az elkészült program    <<menübe>>

1. Leckéböl: Olyan program irása , amely bekér 2 számot öszeadja és kiirja az összeget !

program kerdbe;

var a,b:integer

begin

write('Add meg A t:');

readln(a);

write('Add meg B t:');

readln(b);

writeln(a+b);

readln;

end.

2. Leckéböl: Készitsük olyan programot , amelyben egy megadott érték szerepel , és a másikat mi adjuk meg.

program megfeletetes;

var a,b:integer;

Begin

write('Add meg A t: ');

readln(b);

b:=10 

writeln (a*b);

readln;

end.

3.Leckéböl : Készitsük olyan programot ,amely kiirja a nevünket!

program nevmegad;

var VezNev,KerNev:string;

begin

write ('Add meg a Vezeték neved:');

readln(VezNev);

write ('Add meg a Kereszt neved:');

readln(KerNev);

writeln ('A te neved :',VezNev+KerNev,'.');

readln;

end.

4. Leckéböl : Készitsük olyan programot ,melyel egy teljes név bekérésével ,csak a monogrammunakt iratjuk ki.

program monogram;

var veznev,kernev:char;

begin

write ('Add meg a vezetékneved:');

readln(veznev);

write ('Add meg a keresztneved:');

readln(kernev);

writeln(veznev+kernev);

readln;

end.

5.leckéböl: Irjunk oylan programot , amely eldönti ,hogy az adott szám páros e ,

vagy páratlan:

program eldontendo;

var a:integer;

begin

write('Add meg az értéket');

readln(a);

If (a>0) then

BEGIN

writeln('pozitiv');

end

Else

If (0<a) then

BEGIN

writeln('negativ');

end;

readln;

end.

 

6.Leckéböl: Irjunk olyan programot ,amely bekéri két gyerek nevét és magasságát és kirja ha  egyforma magaságuak.

 

program gyerbe;

var nev1,nev2:string;

var mag1,mag2:integer;

 

begin

 

write('Add meg az elsö gyerek nevét:');

readln(nev1);

write('Add meg a második gyerek nevét: ');

readln(nev2);

write('Add meg az elsö gyerek magaságát:');

readln(mag1);

write('Add meg a második gyerek magasságát:');

readln(mag2);

 

IF (mag1=mag2) then

BEGIN

writeln('Egymagasak');

end

Esle

IF (mag1<>mag2)  then

BEGIN

writeln('Nem egymagasak');

end;

 

readln;

end.

7. Programunk   Kérj be két Nevet , és irasd ki meik a nagyobb , vagy ha egyenlö akkor azt ! Fontos csak egy eredmény lehet ! És 2 If segitségével!

program 10cdoga;

var a,b:integer;

var nev1,nev2:string;

Begin

write('Add meg az elsö pénznemet:');

readln(nev1);

write('Add meg a második pénznemet:');

readln(nev2);

write('Add meg az elsö pénznem értékét:');

readln(a);

write('Add meg a második pénznem értékét:');

IF (a=b ) then 

BEGIN

writeln('Ugyananyit érnek!');

If (a>b) then

Begin

writeln('A ',nev1,'többet ér mint a ',nev2,'pénznem.');

End

Else

Begin

writeln('A',nev2,' többet ér mint a ',nev1,'pénznem.');

End;

end.