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 birkac 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 gore sonucu Birse Tek Sayı yaz
Değilse Cift 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ı Cifttir')
Readln
End.
***Uc kenarı girilen bir ucgenin ne tur bir ucgen (ceş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 Ucgen
Değilse
Eğer ab ve ac ve bc ise Ceşit Kenar Ucgen
Değilse İkiz Kenar Ucgen
4. Son
Programın kodu:
Program Ucgen;
Var
a, b, c : Integer;
Begin
Write('Ucgenin 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 Ucgen')
Else
if (ab) and (ac) and (bc) Then Writeln ('Ceşitkenar Ucgen')
Else
Writeln('İkiz Kenar Ucgen');
Else
Writeln('Yanlış Giriş Yaptınız...');
Readln
End.
Not
'....')apostrof arasına turkce karakter yazılabilir ***Uc Sayının En Buyuğunu Bulan Program
Algoritması:
1. Başla
2. a, b ve c'yi gir
3. Eğer a>b ve a>c ise En Buyuk Sayı A'dır
Değilse
Eğer b>a ve b>c ise En Buyuk Sayı B'dir
Değilse En Buyuk Sayı C'dir
4. En Buyuk Sayıyı Yaz.
5. Son
Programın kodu:
Program Uc_Sayinin_En_Buyugu;
Var
a, b, c, EnBuyuk : Integer;
Begin
Write('Uc 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 Buyuk Sayı = ', EnBuyuk);
Readln
End.
DONGULER
FOR BAŞLANGIC 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;
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 faktoryeli bulan bir program yazalım.
Algoritması:
1. Başla
2. N sayısını gir.
3. Faktoriyel değişkenine 1 ata
4. i=1'den i=N'e kadar tum sayıları birbiriyle carp
5. Faktoriyel'i yaz.
6. Son
Programın kodu:
Program Faktoryel;
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
__________________