Program - Pascal

[McPopix]

Czy może ktoś napisać mojemu bratu program w Pascalu? Nie chce on zakładać konta bo jeszcze uznacie to za multi i będzie przypał.

 

 

Treść zadania to :

 

Napisz program, który obliczy i wyświetli średnią podanych przez użytkownika liczb.

- w pierwszej kolejności wczytaj, ile liczb chce podać użytkownik,
- aby policzyć średnią, program musi pamiętać sumę wpisanych wyrazów,
- po wpisaniu wszystkich po prostu podzieli ją przez liczbę składników,
- program wypisze na ekranie średnią liczb,
Program rozbuduj o:
- sprawdź, czy wpisana ilość liczb jest poprawna, jeżeli tak - to można wykorzystać ją jako górne ograniczenie liczby iteracji (pętli for), w przeciwnym wypadku zostanie wyświetlony odpowiedni komunikat dla użytkownika,
- program wypisze ilość liczb podanych przez użytkownika,
- zachowaj odpowiedni format wyświetlanego wyniku,
- program wypisze sumę wszystkich liczb.

 

Program zapisz jako TwojeNazwisko.pas.

[IBBT]

Wszędzie te gotowce...

program srednia_arytmatyczna;
uses crt;
var
        x,suma: longint;
        i,j: integer;
begin
   clrscr;
   i:=0; x:=0; suma:=0;
   write('ile liczb chce podać użytkownik: ');
   readln(j);
   repeat
         write('Podaj liczbe: ');
         readln(x);
                 i:=i+1;
                 suma:=suma+x;
   until i=j;
writeln('Srednia arytmetyczna ',i,' liczb wynosi ',(suma/j):0:3);
writeln('Suma wszystkich liczb wynosi ',suma);
readkey;
end.

 

Pisane na kolanie, ale chyba nic nie zapomniałem. Jakieś wyjaśnienia?

[adek1995]

Wszędzie te gotowce...

program srednia_arytmatyczna;
uses crt;
var
        x,suma: longint;
        i,j: integer;
begin
   clrscr;
   i:=0; x:=0; suma:=0;
   write('ile liczb chce podać użytkownik: ');
   readln(j);
   repeat
         write('Podaj liczbe: ');
         readln(x);
                 i:=i+1;
                 suma:=suma+x;
   until i=j;
writeln('Srednia arytmetyczna ',i,' liczb wynosi ',(suma/j):0:3);
writeln('Suma wszystkich liczb wynosi ',suma);
readkey;
end.

 

Pisane na kolanie, ale chyba nic nie zapomniałem. Jakieś wyjaśnienia?

ja bym uzyl tablicy jak znajde adania z pascala to zedytuje i wsatawie z tabklicami