Programalama > PASCAL


Ort. 0
Puan ver:
program hesap;
uses crt;
        VAR dosya:text;
        i,j,k,top,n:integer;
        ort,top1,r:real;
        x:array[1..10] of integer;

        BEGIN
         clrscr;
        assign(dosya,'tas.txt');
        reset(dosya);
        for i:=1 to 10 do
        readln(dosya,x[i]);
        top:=0;
        for j:=0 to 10 do
        top:=top+x[i];
        ort:=top/10;
        for k:=1 to 10 do
        top1:=top1+(ort-x[i])*(ort-x[i]);
        r:=sqrt(top1/9);
        append(dosya);
        writeln(dosya,r:0:0);
        close(dosya);
        reset(dosya);
        close(dosya);
        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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.