Download
1 / 12
120 likes | 281 Vues
PASCAL’a GİRİŞ. ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün. Pascal’da atama işaretleri. Var j,toplam : integer; Const adi = ‘Mustafa’; yas = 28; Begin toplam := 0 for j := 1 to 10 do toplam := toplam + j; writeln (toplam); End. : = :=.
E N D
PASCAL’a GİRİŞ ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Pascal’da atama işaretleri Var j,toplam : integer; Const adi = ‘Mustafa’; yas = 28; Begin toplam := 0 for j := 1 to 10 do toplam := toplam + j; writeln (toplam); End. : = := ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Alıştırmalar Hataları bulunuz: Var yas = 25 Const araba : ‘Cadillac’ Nasıl yazarsınız? Adınızı, Yaşınızı, Doğum Yerinizi ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Write writeln Program yazma1; Uses wincrt; begin writeln; writeln ('Sınav sonuçları'); writeln (100:10,87:10,95:10); writeln (89:10,82:10,45:10); writeln (73:10,64:10); writeln (123.54:10:3); writeln (123.6754:10:3); writeln (125:8,3452.98:10:2); end. ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Write writeln Program yazma2; Uses wincrt; begin write ('Pascal bir'); writeln (' yapısal dildir.'); writeln; writeln ('Pascal dilinin kurucusu '); writeln ('Niklaus Wirth''tir'); end. ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Aritmetik işlemler İfade veya işlem Öncelik ( ) Önce parantez içi. İçten dışa *, mod, div Çarpma, bölme +, - Toplama, çıkarma • İfade Sonucu • -3 + 2 -1 • -3 * 2 - 6 • 3 * (-2) - 6 • 3 * (-2) 6 • 17 div 3 5 (tam bölen) • 17 mod 3 2 (kalan) • -17 div 3 - 5 • -17 mod 3 1 • -17 div (-3) 5 ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
(3 – 4) + 18 div 5 + 2 -1 + 18 div 5 + 2 -1 + 3 + 2 2 + 2 4 • 12 3 • 4 • 0 12 div 3 • 12 mod 3 • 3 • 4 • 2 14 div 3 14 mod 3 ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
18.2 + (-4.3) * (10.1 + (72.3 /3.0 – 4.5)) 18.2 + (-4.3) * (10.1 + ( 24.1 – 4.5)) 18.2 + (-4.3) * (10.1 + ( 19.6 )) 18.2 + (-4.3) * (10.1 + 19.6 ) 18.2 + (-4.3) * ( 29.7 ) 18.2 + -127.71 -109.51 Sınav sorusu İfade Sonucu -1.0 + 3.5 + 2.0 4.5 -1.0 + 3.5 * 2.0 6.0 2.0 * (1.2 - 4.3) -6.2 2.0 * 1.2 - 4.3 -1.9 -12.6 / 3.0 + 3.0 -1.2 -12.6 / (3.0 + 3.0) -2.1 ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Doğru/Yanlış İfade Doğru mu Veri tipi -2.0 * 17 Evet Real 13.1 – 22 Evet Real 14 / 7 Evet Real 14 / 7.0 Evet Real 10.0 mod 2 Hayır 10 mod 2.0 Hayır -15 div 3 Evet Integer -15 div 3.0 hayır 32.0 div 4.0 hayır 7 + 5.0 Evet Real Writeln (-7.0:8:2) Evet -7.00 Writeln (187:6) Evet 187 Writeln (187:6:2) Hayır Writeln (-9.0:8) Doğru -9.0E+0 Writeln (-9.0:6:2) Doğru -9.00 ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
VAR Topl : integer; Ort : real; Harf : char olduğunda Doğru/Yanlış İfade Doğru mu Yanlış nedeni Topl := 50; doğru Topl := 10.5; yanlış integer değil Ort := 15.6; doğru Ort := 33; doğru Harf := ‘A’; doğru Harf := ‘HI’; yanlış tek harf olacak Harf := 20; yanlış Harf := A; yanlış ‘ ‘ içinde Harf := ‘7’; doğru Topl := ‘7’; yanlış ‘’ içinde olmalı ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Program hesap; Uses wincrt; begin writeln(17 - 3 + 2); writeln(-15 * 3 + 4); writeln(123 mod 5); writeln(123 div 5); writeln(5 * 123 mod 5 + 123 mod 5); writeln(-21 * 3 * (-1)); writeln(14 * (3 + 18 div 4) - 50); writeln(100 - (4 * (3 + 2)) * (-2)); writeln(-56 mod 3); writeln(14 * 8 mod 5 - 23 div (-4)); end. ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
Program hesap2; Uses wincrt; begin writeln (3.21 + 5.02 / 6.1:8:2); writeln (6.0 / 2.0 * 3.0:8:4); writeln (6.0 / (2.0+3.0):8:5); writeln (-20.5 * (2.1 + 2.0):8:1); writeln (-2.0 * (56.8 / 4.0 + 0.8) + 5.0:8:3); writeln (1.0482 * 0.0283:8:4); writeln (800.0E-2 / 4.0 + 15.3:8:2); end. ALGORİTMA VE PROGRAMLAMAYA GİRİŞ ***** Prof.Dr. Mustafa Ergün
