Algoritma ve programlamaya Giriş

Örnek : Öğrencinin Vize ve final notundan ortalamasını hesaplayıp geçti veya kaldı yazan
program.
Var
Not1, Not2 : Integer;
Ortalama: Real;
Begin
Write('Not 1´i giriniz : '); Readln(Not1);
Write('Not 2´i giriniz : '); Readln(Not2);
If (Not1 >=0) and (Not1=0) and (Not2= 50 Then
Writeln('Geçtiniz Ortalamanız = ', Ortalama:4:2)
Else
Writeln('Kaldınız Ortalamanız = ', Ortalama:4:2);
Writeln('Yanlış giriş yaptınız...');
Readln
End.
============================================
Konu Sonu Çalışma Soruları
Soru 1. Vergi iadesini hesaplayan programı yazınız. ( Emekli aylığı alanlar için: 0-180
milyon arası %10, 180-360 milyon arası %20, 360-600 milyon arası %12, 600 milyon
üzeri % 5)
Soru 2. Üç kenarı girilen bir üçgenin eşkenar-çeşitkenar-ikiz kenar olup olmadığını bulan
programı yazınız.
Soru 3. Đki sayının Ortak Bölenlerinin En Büyüğünü (OBEB) ve Ortak Katlarının En
Küçüğünü (OKEK=A'B/OBEB) bulan programı yazınız.
Soru 4. Üç sayının en küçüğünü bulan programı yazınız.
Soru 5. 4 işlem yapan basit bir hesap makinesi programı yazınız.
Soru 6. Bir sayının tek mi çift mi olduğunu bulan programı yazınız.
Soru 7. y=x2+ax+c denklemin köklerini bulan programı yazınız.
Algoritma ve Programlamaya Giriş 40 Öğr. Gör. Mustafa AKSU