Algoritma ve programlamaya Giriş

Soru: Dışarıdan iki sayı okuyup bunların aritmetik ortalamasını bulun problemin çözümü.
Algoritma
1. Başla
2. X,Y sayısını oku
3. Toplam= X+Y al
4. ort=toplam / 2 al
5. Toplam’ı ve ort’u yazdır
6. Bitir.
Akış Diyagramı
Pascal Kodu
Algoritma ve Programlamaya Giriş 18 Öğr. Gör. Mustafa AKSU
Var
X,Y,Toplam:integer;
Ort:real;
Begin
end.
write (‘Đki sayı girin’);
readln (X,Y);
toplam:=X+Y;
ort:=toplam / 2;
writeln(‘Sayıların Toplamı =‘ , toplam);
writeln(‘Sayıların Ortalaması =‘ , ort);
readln;