i mam pytanie czy da sie to zapisac za pomoca petli?, jezeli tak to jak to zrobic?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;
delphi7 - petle
-
- Użytkownik
- Posty: 242
- Rejestracja: 23 kwie 2006, o 13:03
- Płeć: Mężczyzna
- Lokalizacja: Gdynia
- Podziękował: 97 razy
delphi7 - petle
witam, mam za zadanie napisac program ktory oblicza srednia, i mam cos takiego w przycisku
-
- Użytkownik
- Posty: 242
- Rejestracja: 23 kwie 2006, o 13:03
- Płeć: Mężczyzna
- Lokalizacja: Gdynia
- Podziękował: 97 razy
delphi7 - petle
wlasnie probuje z petla forkolanko pisze:petla for pewno w TP taka jest a w delphi nie pamietam
ale nie wiem jak to zrobic
a:=StrToFloat(Edit1.Text);
probowalem "i" zamiast 1 ale wtedy jest blad
- kolanko
- 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
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.
-
- Użytkownik
- Posty: 242
- Rejestracja: 23 kwie 2006, o 13:03
- Płeć: Mężczyzna
- Lokalizacja: Gdynia
- Podziękował: 97 razy
delphi7 - petle
to chyba jednak nie to to bardziej mi w pascalu przypomina a w delphi musze do tego przycisku dodac ta komendekolanko pisze:W prawdzie to jest napisane w TP aleon sie rozni od delphi prawie niczym wiec sobie looknij co tam bedzieKod: 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.
-
- Użytkownik
- Posty: 242
- Rejestracja: 23 kwie 2006, o 13:03
- Płeć: Mężczyzna
- Lokalizacja: Gdynia
- Podziękował: 97 razy
delphi7 - petle
ale jak to zrobic? bo tak naprawde z delphim to dopiero zaczynammat1989 pisze:najlepiej moim zdaniem zamiast robić tyle pól tekstowych, zrobić jedną listę