Gönderen Konu: pascalda 15 sayının arıtmetıksel ortalaması  (Okunma sayısı 5200 defa)  Share 

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı sonsaatgokhan

  • Çömez
  • **
  • İleti: 92
  • Toplam: 2
pascalda 15 sayının arıtmetıksel ortalaması
« : 22 Mart 2008, 13:24:54 »
arkadaslar acıl lazım 15 sayını arıtmetıksel ortalamasını bulan pascal programını yazabılırmısınız sımdıden tesekkurler

Çevrimdışı Necati GÜNER

  • ""NeCaTi53""
  • Genel Yönetici
  • Usta
  • *****
  • İleti: 2684
  • Toplam: 238
Ynt: pascalda 15 sayının arıtmetıksel ortalaması
« Yanıtla #1 : 22 Mart 2008, 16:10:26 »
PROGRAM Necati53;
VAR
N1:integer;
n=15;
AVG,SUM:REAL;
begin
repeat
if n>15 then;
WRITELN('Bir Değer Girin');
READLN(N1)
SUM:=SUM+N1;
until n=15;
end;
BEGIN
AVG:=(SUM)/15;
WRITELN('AVERAGE=',AVG);
READLN;
END.

Program çalışıyormu bilmiyorum çunku bilgisayarımda pascal derleyici yüklü değil ama kabataslak birşeylere ön ayak olur sanırım.Bazı hatalar yapmış olabilirim çunku unuttum artık pascalı, kontrol et muhakkak...
« Son Düzenleme: 22 Mart 2008, 16:12:58 Gönderen: Necati GÜNER »

Bilişim Forum

Ynt: pascalda 15 sayının arıtmetıksel ortalaması
« Yanıtla #1 : 22 Mart 2008, 16:10:26 »

 

İstediğiniz Sorudan Başlayabilirsiniz | Doktor a Sor