[ÁĎМĨŃ]
Webmaster
İtibarı : 5321
Offline
Mesaj Sayısı: 1,877
|
 |
« : Nisan 08, 2007, 11:32:22 ÖÖ » |
|
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.
Alıntıdır..
|
