delphi7 - petle

woznyadam
Użytkownik
Użytkownik
Posty: 242
Rejestracja: 23 kwie 2006, o 13:03
Płeć: Mężczyzna
Lokalizacja: Gdynia
Podziękował: 97 razy

delphi7 - petle

Post autor: woznyadam »

witam, mam za zadanie napisac program ktory oblicza srednia, i mam cos takiego w przycisku
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c,d,e,f,g,h,i,j,k,l:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=StrToFloat(Edit4.Text);
e:=StrToFloat(Edit5.Text);
f:=StrToFloat(Edit6.Text);
g:=StrToFloat(Edit7.Text);
h:=StrToFloat(Edit8.Text);
i:=StrToFloat(Edit9.Text);
j:=StrToFloat(Edit10.Text);
k:=(a+b+c+d+e+f+g+h+i+j)/10;
Edit11.Text:=FloatToStrf(k,fffixed,5,2);
end;
i mam pytanie czy da sie to zapisac za pomoca petli?, jezeli tak to jak to zrobic?
Awatar użytkownika
kolanko
Użytkownik
Użytkownik
Posty: 1905
Rejestracja: 9 gru 2006, o 14:23
Płeć: Mężczyzna
Lokalizacja: Łańcut
Podziękował: 32 razy
Pomógł: 172 razy

delphi7 - petle

Post autor: kolanko »

petla for pewno w TP taka jest a w delphi nie pamietam
woznyadam
Użytkownik
Użytkownik
Posty: 242
Rejestracja: 23 kwie 2006, o 13:03
Płeć: Mężczyzna
Lokalizacja: Gdynia
Podziękował: 97 razy

delphi7 - petle

Post autor: woznyadam »

kolanko pisze:petla for pewno w TP taka jest a w delphi nie pamietam
wlasnie probuje z petla for
ale nie wiem jak to zrobic
a:=StrToFloat(Edit1.Text);
probowalem "i" zamiast 1 ale wtedy jest blad
Awatar użytkownika
kolanko
Użytkownik
Użytkownik
Posty: 1905
Rejestracja: 9 gru 2006, o 14:23
Płeć: Mężczyzna
Lokalizacja: Łańcut
Podziękował: 32 razy
Pomógł: 172 razy

delphi7 - petle

Post autor: kolanko »

Kod: Zaznacz cały

program srednia_arytmetyczna;

uses crt;
const n=10;
type tab=array[1..n] of real;
var  a:tab;


procedure czytaj(b:tab);
var i:integer;
begin
     writeln('Podaj ciag ',n,' liczb rzeczywistych: ');
     for i:=1 to n do
         begin
              write('>');
              readln(a[i]);
         end;
end;


function srednia(b:tab):real;
var i:integer;
    x:real;
begin
     x:=0;
     for i:=1 to n do x:=x+b[i];
     srednia:=x/n;
end;

begin
clrscr;
czytaj(a);
writeln('Srednia arytmetyczna podanych liczb wynosi: ',srednia(a):2:2);

readln;
end.

W prawdzie to jest napisane w TP aleon sie rozni od delphi prawie niczym wiec sobie looknij co tam bedzie :)
woznyadam
Użytkownik
Użytkownik
Posty: 242
Rejestracja: 23 kwie 2006, o 13:03
Płeć: Mężczyzna
Lokalizacja: Gdynia
Podziękował: 97 razy

delphi7 - petle

Post autor: woznyadam »

kolanko pisze:

Kod: Zaznacz cały

program srednia_arytmetyczna;

uses crt;
const n=10;
type tab=array[1..n] of real;
var  a:tab;


procedure czytaj(b:tab);
var i:integer;
begin
     writeln('Podaj ciag ',n,' liczb rzeczywistych: ');
     for i:=1 to n do
         begin
              write('>');
              readln(a[i]);
         end;
end;


function srednia(b:tab):real;
var i:integer;
    x:real;
begin
     x:=0;
     for i:=1 to n do x:=x+b[i];
     srednia:=x/n;
end;

begin
clrscr;
czytaj(a);
writeln('Srednia arytmetyczna podanych liczb wynosi: ',srednia(a):2:2);

readln;
end.

W prawdzie to jest napisane w TP aleon sie rozni od delphi prawie niczym wiec sobie looknij co tam bedzie :)
to chyba jednak nie to :( to bardziej mi w pascalu przypomina a w delphi musze do tego przycisku dodac ta komende
mat1989
Użytkownik
Użytkownik
Posty: 3393
Rejestracja: 29 sty 2006, o 14:15
Płeć: Mężczyzna
Podziękował: 466 razy
Pomógł: 197 razy

delphi7 - petle

Post autor: mat1989 »

najlepiej moim zdaniem zamiast robić tyle pól tekstowych, zrobić jedną listę
woznyadam
Użytkownik
Użytkownik
Posty: 242
Rejestracja: 23 kwie 2006, o 13:03
Płeć: Mężczyzna
Lokalizacja: Gdynia
Podziękował: 97 razy

delphi7 - petle

Post autor: woznyadam »

mat1989 pisze:najlepiej moim zdaniem zamiast robić tyle pól tekstowych, zrobić jedną listę
ale jak to zrobic? bo tak naprawde z delphim to dopiero zaczynam
ODPOWIEDZ