isopc - pascal programlama dili bölüm-2

PASCAL KODLAMA DİLİ BÖLÜM-2
Pascal programla dili yazı dizisi bölüm 2. Reserved words, standart ifadeler, karar verme ve örnek programlar.AYRILMIŞ SÖZCÜKLER ve STANDART İFADELER (Reserved Words and Standard Identifiers)

RESERVED WORDS

And ,Else ,Inline ,Procedure, Unit ,Asm, End ,Interface, Program ,Until

Array, Exports ,Label, Record ,Uses ,Begin, File ,Library ,Repeat ,Var

Case ,For, Mod ,Set, While ,Const, Function ,Nil ,Shl, With

Constructor, Goto, Not, Shr, Xor ,Destructor, If ,Object, String

Div ,Implementation ,Of ,Then ,Do ,In ,Or, To ,Downto, Inherited ,Packed, Type

STANDART İFADELER

Sabitler : False, True, MaxInt

Tipler : Integer, Boolean, Real, Char ,Text, String, ShortInt ,LongInt, Byte,Byte ,Word

Single, Double ,Extenteed ,Comp ,WordBool ,LongBool ,Pointer

Program Parameters :Input, Outpuut

Procedures and Functions:

Flow Control :Break, Continue, Exit, Halt, RunError

Transfer : Chr, High, Low, Ord, Round ,Trunc

Arithmetic : Abs, ArcTan, Cos, Exp, Frac, Int, Ln, Pi ,Sin, Sqr, Sqrt

Ordinal : Dec, Inc, Odd, Pred, Succ

String : Concat, Copy ,Delete ,Insert, Length ,Pos , Str, Val

Dynamic Allocation : Dispose, FreeMem, MaxAvail, MemAvail, New

Pointer and Adress :Addr, Assigned ,Cseg, Dseg ,Ofs, Ptr,Seg, SPtr, Sseg

Miscellaneous :Exclude ,FillChar, Hi ,Include, Lo, Move,ParamCount, ParamStr, Random ,Randomize

SizeOf, Swap,TypeOf, UpCase

Input and Output : Append, Assign, BlockRead ,BlockWrite, ChDir ,Close,Eof, Eoln, Erase, FilePos

FileSize ,Flush,GetDir, IOResult, MkDir ,Read, ReadLn ,Rename,Reset, ReWrite, RmDir, Seek ,SeekEof

SeekEoln,SetTextBuf ,Truncate ,Write, WriteLn

Units os, Crt, Overlay, Printer, String, Graph

KARAR VERME

IF KOŞUL THEN İŞLEM1 ELSE İŞLEM2

Eğer koşul doğru ise İşlem 1'i yap değilse İşlem 2'yi yap.

Pascalda yazımı:

:

if Koşul Then

Begin

İşlem1;

Else

İşlem 2;

End;

Not: End 'in sonuna sadece programın sonunda .(nokta)konur.Sadece bir işlem değil birkaç işlem yapılabilir.

if Koşul1 Then

Begin

İşlem1;

İşlem2;

End

Else

if Koşul2 Then

Begin

işlem3;

işlem4

End

Else

İşlem5;

***Şimdide tek sayıları bulan bir programı ve algoritmasını yazalım.

Algoritması:

1. Başla

2. Sayı gir

3. Eğer sayının Mod 2'ye göre sonucu Birse Tek Sayı yaz

Değilse Çift Sayı yaz.

4. Son.

Programın kodu:

Program TekCift_bulma;

Var

a : Integer;

Begin

Write('Bir sayı giriniz: '); Readln(a);

If (a mod 2 = 1 Then

Writeln ('Girdiğiniz Sayı Tekdir')

Else

Writeln ('Girdiğiniz Sayı Çifttir')

Readln

End.

***Üç kenarı girilen bir üçgenin ne tür bir üçgen (çeşitkenar , ikizkenar, eşkenar) olduğunu yazan program

Algoritması:

1. Başla

2. a, b ve c'yi gir

3. Eğer a=b ve b=c ise EşKenar Üçgen

Değilse

Eğer a<>b ve a<>c ve b<>c ise Çeşit Kenar Üçgen

Değilse İkiz Kenar Üçgen

4. Son

Programın kodu:

Program Ucgen;

Var

a, b, c : Integer;

Begin

Write('Üçgenin kenarlarını giriniz: '); Readln(a, b, c);

If (a>0) and (b>0) and (c>0) Then

if (a=b) and (a=c) Then Writeln ('Eşkenar Üçgen')

Else

if (a<>b) and (a<>c) and (b<>c) Then Writeln ('Çeşitkenar Üçgen')

Else

Writeln('İkiz Kenar Üçgen');

Else

Writeln('Yanlış Giriş Yaptınız...');

Readln

End.

Not'....')apostrof arasına türkçe karakter yazılabilir

***Üç Sayının En Büyüğünü Bulan Program

Algoritması:

1. Başla

2. a, b ve c'yi gir

3. Eğer a>b ve a>c ise En Büyük Sayı A'dır

Değilse

Eğer b>a ve b>c ise En Büyük Sayı B'dir

Değilse En Büyük Sayı C'dir

4. En Büyük Sayıyı Yaz.

5. Son

Programın kodu:

Program Uc_Sayinin_En_Buyugu;

Var

a, b, c, EnBuyuk : Integer;

Begin

Write('Üç Sayı giriniz: ');

Readln(a, b, c);

If (a>=b) and (a>=c) Then EnBuyuk:=a

Else

If (b>=a) and (b>=c) Then EnBuyuk:=b

Else

EnBuyuk := c;

Writeln('En Büyük Sayı = ', EnBuyuk);

Readln

End.

DÖNGÜLER

FOR BAŞLANGIÇ DEĞERİ TO SON DEĞER DO

N kez "İşlem" yap

1'den N'e kadar "İşlem" yap

i = 1 den i = N'e kadar "İşlem" yap

Pascal'da Yazımı:

For i := 1 to N do

****1'den N'e Kadar Tam Sayıların toplamını bulan program ve algoritmasını yazalım.

1. Başla

2. N sayısını gir.

3. Toplam'a sıfır ata

4. i=1'den i=N'e kadar tam sayıları topla

5. Toplam'ı yaz.

6. Son

Programın kodu:

Program Toplama;

{Bir den N e kadar tam sayıları toplayan program}

Var

i, N, Toplam : Integer;

Begin

Write('Son sayıyı gir: '); Readln (N);

Toplam := 0;

For i := 1 To N Do

Toplam := Toplam + i;

Writeln('1´den N´e kadar sayıların toplamı = ', Toplam);

Readln;

***N faktöryeli bulan bir program yazalım.

Algoritması:

1. Başla

2. N sayısını gir.

3. Faktöriyel değişkenine 1 ata

4. i=1'den i=N'e kadar tüm sayıları birbiriyle çarp

5. Faktoriyel'i yaz.

6. Son

Programın kodu:

Program Faktoryel;

{N Faktöriyeli Hesaplayan program}

{$N+}

Var

i, N : Integer;

Faktoryel : Extended;

Begin

Write('Son sayıyı gir: '); Readln (N);

Faktoriyel := 1;

For i := 1 To N Do

Faktoriyel := Faktoriyel * i;

Writeln('N Faktoriyel = ', Faktoriyel:5:0);

Readln;

End.