Delphi i kod zrodlowy do programu

[Voytek]

Witam
Mam problem (jak zwykle z czymś) z napisaniem w Delphi programu do obliczania sredniej arytmetyczniej. Nie wiem jak za to sie wziac. Zastanawia mnie fakt jak to zrobic prosto.....bo dopiero zaczynam zabawe z Delphi.
Jak powinien wyglądać kod zrodlowy aby po wpisaniu ciagu cyfr np 5656 nastepowalo sumowanie 5+6+5+6 i dzielenie wyniku przez 4 zgonie ze wzorem na srednia arytmetyczna.

Proszę o pomoc
Voytek

[andy]

Aplikacja konsolowa będzie wyglądała tak:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   a, b, c: integer;
begin
  Write('Podaj pierwsza liczbe: ');
	 Readln(a);
  Write('Podaj drugą liczbe: ');
	 Readln(b);
  Write('Podaj trzecią liczbę: ');
	 Readln(c);
  Writeln('Średnia arytmetyczna liczb ' ,a,' ',b,' ',c,' wynosi: ',((a+b+c)/3):0:2);
	 Readln;
end.

Jeżeli chcesz zrobić na przyciskach i editach to podpinasz zmienne do nich.

[Posłany]

Pewnie Tobie chodziło aby to była dowolna liczba, np. 84328746327865432646523
A więc to proste, dziś napisze jak to zrobić, a jutro, jakbyś nie dał rady napisać sam to napisze tu(dziś już czasu nie mam )
Zapisujesz liczbę do stringa, następnia sprawdzasz długość stringa (Count bodajże), i zaopetlasz to w for.
Co jedno przejscie pętli for zmienna licznik(integer) zwieksza się o 1, a do zmiennej suma dodaje sie aktualna liczba:
suma:=suma+StrToInt(liczba[index_pętli_for]);

potem dzielisz i tyle Aha - typ wyniku daj jako real

[Voytek]

Napisany przez @ndy

Aplikacja konsolowa będzie wyglądała tak:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   a, b, c: integer;
begin
  Write('Podaj pierwsza liczbe: ');
	 Readln(a);
  Write('Podaj drugą liczbe: ');
	 Readln(b);
  Write('Podaj trzecią liczbę: ');
	 Readln(c);
  Writeln('Średnia arytmetyczna liczb ' ,a,' ',b,' ',c,' wynosi: ',((a+b+c)/3):0:2);
	 Readln;
end.

Jeżeli chcesz zrobić na przyciskach i editach to podpinasz zmienne do nich.

@ndy tez tak chciałem zrobic i dzieki za checi i podpowiedz, ale myslalem
o tym co Posłany

Napisany przez Posłany

Pewnie Tobie chodziło aby to była dowolna liczba, np. 84328746327865432646523
A więc to proste, dziś napisze jak to zrobić, a jutro, jakbyś nie dał rady napisać sam to napisze tu(dziś już czasu nie mam )
Zapisujesz liczbę do stringa, następnia sprawdzasz długość stringa (Count bodajże), i zaopetlasz to w for.
Co jedno przejscie pętli for zmienna licznik(integer) zwieksza się o 1, a do zmiennej suma dodaje sie aktualna liczba:
suma:=suma+StrToInt(liczba[index_pętli_for]);

potem dzielisz i tyle Aha - typ wyniku daj jako real

Poprosze jak bedziesz mial czas o kod bo debugowanie mi wyskakuje....
Pozdrawim
Voytek

[Voytek]

Zrobilem ....tak

program Zadanie1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,x,suma,ile:integer;
srednia:real;
begin
writeln('Obliczanie sredniej n-liczb naturalnych');
writeln;
writeln;
writeln('Podaj ciag liczb naturalnych zakonczony zerem: ');
writeln;
ile:=0;
x:=0;
repeat
readln(a);
suma:=x+a;
x:=suma;
ile:=ile+1;
until a=0;
srednia:=x/(ile-1);
writeln;
writeln(srednia:8:2);
readln
end.