Programalama > PASCAL

Etiketler: ortalama, programi

Ort. 0
Puan ver:
uses crt;
var
   ogr:array[1..5,1..3] of integer;
   ort:array[1..5] of real;
   S:BYTE;
   procedure ortalamahesaplama;
begin
     for s:=1 to 5 do
     ort[s]:=(ogr[s,1]+ogr[s,2]+ogr[s,3])/3;
end;
procedure gir;
begin
     for s:=1 to 5 do
     begin
     write(s,'.”grencinin  1.yazl notunu gir=');readln(ogr[s,1]);
     write(s,'.”§rencinin  2.yazl notunu gir=');readln(ogr[s,2]);
     write(s,'.”§rencinin  3.yazl notunu gir=');readln(ogr[s,3]);
     end;
     end;

procedure listeleme;

begin
clrscr;
     writeln('S.NO                  ORTALAMA');
     writeln('------------------------------');
     for s:=1 to 5 do
     begin
     gotoxy(1,s+2);write(s,'.™¦R.ORT......:');
     gotoxy(25,s+2);write(ort[s]:3:0);
     end;
end;
{ana program}
BEGIN
     CLRSCR;
     gir;
     ortalamahesaplama;
     listeleme;
     READLN;
END.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.