Pascal ile Programlama Sanatı - 2

~~StraToWariuS~~ · 09-08-06, 13:54

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.

Devamı sonraki yazıda...
Alıntıdır

09-08-06, 13:54	#1 (permalink)
~~StraToWariuS~~ Banlandı Giriş Tarihi: 09-03-2006 Yer: ๑۩Sana Bakmak Butun Rastlantilari Reddedip Bir Mucizeyi Anlamaktir ۩๑ Yaş: 28 Mesajlar: 644 Rep Puanı: 77425 Rep Gücü: 0	Pascal ile Programlama Sanatı - 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. Devamı sonraki yazıda... Alıntıdır

Konu Araçları
Çıktı Görüntüsünü Göster Sayfayı E-posta İle Yolla