🚀 go-pugleaf

> witajcie
> 
> aby zdefiniowac tablice należ wpisac
> a:array[1..5]of integer
> 
> ale jak napisac tablice o niewiadomej liczbie elementów(uzytkownik okresla, 
> wpisujac liczby)?
> jak napisac takie cos ze uzytkownik wpisuje liczby i jest pytany po kazdej 
czy 
> wprowadzic kolejna liczbe[tak/nie]
> ja umiem tak zrobic ale tylko dla z góry ustalonej tablicy np array[1..5].
> pomóżcie
> 

zalezy jakiej wersji ppascala uzywasz !  w starszych jes to troche klopotliwe.
we frepascalu  definiuje sie to tak 

type  TTab=array of cos_Tam;

var Tab:Tab;

a w programie przed pierwszym uzyciem tablciy muisz przydzielicj jej pamiec .

SetLength(Tab,Dlugosc_w_bajtach);

lub 

SetLength(Tab, SizeOf(Cos_tam)*ile_komorek_ma_miec_tablica);

jest to tablica dynamiczna-- i mozna  ja rozciagac w miare np splywania nowych 
danych ;

kasuje tablice 
SetLengt( Tab,0);

Tab -- wlasciwie jest taktowany jak wskaznik ( Pointer )na jakis obszar 
pamieci ,
tylko ze odwolujesz sie do niego jak do zwyklej tablicy odwolujesz sie 
normalnie  jak do zwyklej tablicy 

Tab[0]=_cos;


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

webmajsterek@poczta.onet.pl wrote:
> SetLength(Tab,Dlugosc_w_bajtach);


Długość_w_bajtach? Pojebało? Ilość elementów.

Wypierdalaj w podskokach na pl.comp.lang.vbasic.

Do OPa:
Warto zauważyć że Tab jest 0-based, tzn.
poprawne indexy to 0..Ilosc_Elementow-1.

Jeżeli klepiesz w TP czy jakimś innym
przedwojennym kompilatorze to sam
musisz zarządzać pamięcią za pomocą
GetMem()/FreeMem().

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

mat17a@op.pl pisze:
> witajcie
> 
> aby zdefiniowac tablice należ wpisac
> a:array[1..5]of integer
> 
> ale jak napisac tablice o niewiadomej liczbie elementów(uzytkownik okresla, 
> wpisujac liczby)?
> jak napisac takie cos ze uzytkownik wpisuje liczby i jest pytany po kazdej czy 
> wprowadzic kolejna liczbe[tak/nie]
> ja umiem tak zrobic ale tylko dla z góry ustalonej tablicy np array[1..5].
> pomóżcie
> 
Zapoznaj się z tablicami dynamicznymi,
google znajdą Ci mnóstwo informacji.

Sławek

dziękuje za informacje - kozystam z FreePascala

Mam pytanie, jak zmienik ten moj kod, by uzytkownik mógł wpisywac tyle iczb 
chce.... a gdy wpisze tyle ile chce to naciska np. t,y lub cos innego i 
program przechodzi dalej

oto moj program, nie czepiajcie sie ze duzo linijek ze mozna bylo 
prosciej..wiem..ale na razie nie jestem taki super jeszcze xD


program statystyka;

uses     crt;
var    k:longint;
         a:array[1..5]of real;

begin
    repeat
        k:k+1;
        clrscr;
        write('Wpisz cyfre i zatwierdz Enterem');
        readln(a[k]);
    until k=5;
    clrscr;
    (...)

prosze o zaznaczenie pogrybionym kolorem z góry dzieki xD
Program licz srednia ,sume, wariancje, odchylenie i inne f. statystyczne to 
jest wycinek programy, jak widac mozna tylko 5 cyfr wpisac...a jak zrobic wy 
bylo tyle ile sie chce?




Użytkownik "Terrmit" <terrmitv@poczta.onet.pl> napisał w wiadomości 
news:gg1fq2$6v3$1@achot.icm.edu.pl...
> mat17a@op.pl pisze:
>> witajcie
>>
>> aby zdefiniowac tablice należ wpisac
>> a:array[1..5]of integer
>>
>> ale jak napisac tablice o niewiadomej liczbie elementów(uzytkownik 
>> okresla, wpisujac liczby)?
>> jak napisac takie cos ze uzytkownik wpisuje liczby i jest pytany po 
>> kazdej czy wprowadzic kolejna liczbe[tak/nie]
>> ja umiem tak zrobic ale tylko dla z góry ustalonej tablicy np 
>> array[1..5].
>> pomóżcie
>>
> Zapoznaj się z tablicami dynamicznymi,
> google znajdą Ci mnóstwo informacji.
>
> Sławek 

Użytkownik "news.onet.pl" <mat17a@o2.pl> napisał w wiadomości 
news:gg1gr8$m8g$1@news.onet.pl...
> dziękuje za informacje - kozystam z FreePascala
>
> Mam pytanie, jak zmienik ten moj kod, by uzytkownik mógł wpisywac tyle 
> iczb chce.... a gdy wpisze tyle ile chce to naciska np. t,y lub cos innego 
> i program przechodzi dalej
>
> oto moj program, nie czepiajcie sie ze duzo linijek ze mozna bylo 
> prosciej..wiem..ale na razie nie jestem taki super jeszcze xD
>
>
> program statystyka;
>
> uses     crt;
> var    k:longint;
>         a:array[1..5]of real;
>
> begin
>    repeat
>        k:k+1;
>        clrscr;
>        write('Wpisz cyfre i zatwierdz Enterem');
>        readln(a[k]);
>    until k=5;
>    clrscr;
>    (...)
>
> prosze o zaznaczenie pogrybionym kolorem z góry dzieki xD
> Program licz srednia ,sume, wariancje, odchylenie i inne f. statystyczne 
> to jest wycinek programy, jak widac mozna tylko 5 cyfr wpisac...a jak 
> zrobic wy bylo tyle ile sie chce?

Jeśli jest niewiele, tak do 6553 liczb :-), można trzymać
w pamięci operacyjnej. Jeśli więcej, to zapisać na dysk.
I tu znowu możliwe są dwa podejścia. Albo wpisać
do prostego pliku sekwencyjnego, albo zorganizować małą
bazę danych.

Pozdrowienia. Krzysztof z Tychów.
Nie każdy Żywiec to piwo...

On Wed, 19 Nov 2008 19:02:46 +0100, "news.onet.pl" <mat17a@o2.pl>
wrote:

>dziękuje za informacje - kozystam z FreePascala
>
>Mam pytanie, jak zmienik ten moj kod, by uzytkownik mógł wpisywac tyle iczb 
>chce....   

Napisac go w jave.

A.L.

moze cie napisac taki program jak napisałem powyzej???
nie znam sie na tym zabardzo...
prosze.



Użytkownik "news.onet.pl" <mat17a@o2.pl> napisał w wiadomości 
news:gg1gr8$m8g$1@news.onet.pl...
> dziękuje za informacje - kozystam z FreePascala
>
> Mam pytanie, jak zmienik ten moj kod, by uzytkownik mógł wpisywac tyle 
> iczb chce.... a gdy wpisze tyle ile chce to naciska np. t,y lub cos innego 
> i program przechodzi dalej
>
> oto moj program, nie czepiajcie sie ze duzo linijek ze mozna bylo 
> prosciej..wiem..ale na razie nie jestem taki super jeszcze xD
>
>
> program statystyka;
>
> uses     crt;
> var    k:longint;
>         a:array[1..5]of real;
>
> begin
>    repeat
>        k:k+1;
>        clrscr;
>        write('Wpisz cyfre i zatwierdz Enterem');
>        readln(a[k]);
>    until k=5;
>    clrscr;
>    (...)
>
> prosze o zaznaczenie pogrybionym kolorem z góry dzieki xD
> Program licz srednia ,sume, wariancje, odchylenie i inne f. statystyczne 
> to jest wycinek programy, jak widac mozna tylko 5 cyfr wpisac...a jak 
> zrobic wy bylo tyle ile sie chce?
>
>
>
>
> Użytkownik "Terrmit" <terrmitv@poczta.onet.pl> napisał w wiadomości 
> news:gg1fq2$6v3$1@achot.icm.edu.pl...
>> mat17a@op.pl pisze:
>>> witajcie
>>>
>>> aby zdefiniowac tablice należ wpisac
>>> a:array[1..5]of integer
>>>
>>> ale jak napisac tablice o niewiadomej liczbie elementów(uzytkownik 
>>> okresla, wpisujac liczby)?
>>> jak napisac takie cos ze uzytkownik wpisuje liczby i jest pytany po 
>>> kazdej czy wprowadzic kolejna liczbe[tak/nie]
>>> ja umiem tak zrobic ale tylko dla z góry ustalonej tablicy np 
>>> array[1..5].
>>> pomóżcie
>>>
>> Zapoznaj się z tablicami dynamicznymi,
>> google znajdą Ci mnóstwo informacji.
>>
>> Sławek
> 

news.onet.pl wrote:
> moze cie napisac taki program jak napisałem powyzej???
> nie znam sie na tym zabardzo...


Pora do literatury i do netykiety. Zadań domowych nie
"odrabia my".

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

[ciach]
> ty pewnie jesteś mistrzem
> w Pascalu wiec nie potrzebujesz od nikogo pomocy?tak?to poco tu siedzisz?
> Po drugie to nie jest zadanie tylko samodzielna inicjatywa i cheć nauczenia
> sie innego jężyka programowania.
[ciach]

A przeczytałeś choć trochę na temat tablic dynamicznych?
Jeśli coś nie rozumiesz to pytaj, ale nie proś żeby ktoś
zrobił Ci gotowca. Skoro chcesz się czegoś nauczyć, to
musisz pisać sam. Coś nie będzie działać jak trzeba, lub
nie będzie się chciało kompilować i nie będziesz
wiedział dlaczego, to wtedy każdy Ci podpowie gdzie
szukać problemu.

Masz tu link i się ucz:
http://4programmers.net/Delphi/Tablice

temat: Tablice dynamiczne
zobacz też: Polecenia Low i High

a najlepiej przestudiuj cały artykuł.

Czegoś nie rozumiesz - pytaj.

Sławek

news.onet.pl wrote:
> Po pierwsze jeslis taki mądry to co sie odzywasz? ty pewnie jesteś
> mistrzem w Pascalu wiec nie potrzebujesz od nikogo pomocy?tak?to poco
> tu siedzisz? Po drugie to nie jest zadanie tylko samodzielna
> inicjatywa i cheć nauczenia sie innego jężyka programowania.

Tak, kurwa, jestem tak zajebisty, w OP, i w wielu innych językach,
jaki Ty nigdy nie będziesz ;). Jestem tu, bo lubie pomagać
*kompetentnym* ludziom, chętnym do nauki, mającym >80 IQ. I nie,
nie potrzebuję nigdy pomocy bo umiem czytać dokumentacje, wszelkie,
w przeciwieństwie do tych poniżej 80 IQ. Jakoś nie rozumiem jak
"samodzielna inicjatywa i chęc nauczenia" ma być analogią do
"zróbcie mi to za mnie".

Czy "Czy ktoś pomoże mi zmienić ten program co napisałem wcześniej?"
znaczy "Zróbcie to za mnie"?

> Czy ktoś pomoże mi zmienić ten program co napisałem wcześniej?

Ok, zmienie ten program:

program statystyka2;

uses     crt;
var    k:longint;
         a:array[1..5]of real;

begin
    repeat
        k:k+1;
        clrscr;
        write('Wpisz cyfre i zatwierdz Enterem');
        readln(a[k]);
    until k=5;
    clrscr;
    (...)

Zmieniłem "statystyka" na "statystyka2". Ambitny refactoring.
Aczkolwiek nie wiem co może oznaczać:
"prosze o zaznaczenie pogrybionym kolorem"

Bo nie mam zielonego pojęcia co znaczy "pogrybiony
kolor", bah, nawet "pogrubiony kolor" - podaj RGB
tego koloru.

A pomoc miałeś wyżej, od webmajsterka(sic) i poprawke
odemnie, z czym masz problem? SetLength() w FPC.

Powoli rozumiem Pana Andrzeja L. w tym wątku.
Ale czemu od razu wrzucać niewinną osobę na
Java'e ;)?. Oprócz tego że w J to nawet sprzątaczki
klepią ,,aplikacje" ;).

BP, NMSP - delikatnie sfrustrowany dniem dzisiejszym ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

Po pierwsze jeslis taki mądry to co sie odzywasz? ty pewnie jesteś mistrzem
w Pascalu wiec nie potrzebujesz od nikogo pomocy?tak?to poco tu siedzisz?
Po drugie to nie jest zadanie tylko samodzielna inicjatywa i cheć nauczenia
sie innego jężyka programowania.

Czy ktoś pomoże mi zmienić ten program co napisałem wcześniej?
dziekuję

Użytkownik "Łukasz 'Maly' Ostrowski" <maly@USUNnemo.pl> napisał w wiadomości 
news:gg22cb$jam$1@news.dialog.net.pl...
> news.onet.pl wrote:
>> moze cie napisac taki program jak napisałem powyzej???
>> nie znam sie na tym zabardzo...
>
>
> Pora do literatury i do netykiety. Zadań domowych nie
> "odrabia my".
>
> -- 
> Pozdrawiam,
> Łukasz 'Maly' Ostrowski.
> http://maly.nemo.pl/ 

On Thu, 20 Nov 2008 01:09:10 +0100, Łukasz 'Maly' Ostrowski
<maly@USUNnemo.pl> wrote:

>news 
>
>Powoli rozumiem Pana Andrzeja L. w tym wątku.
>Ale czemu od razu wrzucać niewinną osobę na
>Java'e ;)?. Oprócz tego że w J to nawet sprzątaczki
>klepią ,,aplikacje" ;).

Hm.... Jakos nie przypominam sobie aby ktorykolwiek z kandydatow
ktorych zdarzylo mi sie pzresluchiwac, wiedzial na przyklad co to sa
"slabe referencje" czy "security manager"... To tyle jak idzie o
"sprzataczki"

A.L.


>

A.L. pisze:
> On Thu, 20 Nov 2008 01:09:10 +0100, Łukasz 'Maly' Ostrowski
> <maly@USUNnemo.pl> wrote:
> 
>> news 
>>
>> Powoli rozumiem Pana Andrzeja L. w tym wątku.
>> Ale czemu od razu wrzucać niewinną osobę na
>> Java'e ;)?. Oprócz tego że w J to nawet sprzątaczki
>> klepią ,,aplikacje" ;).
> 
> Hm.... Jakos nie przypominam sobie aby ktorykolwiek z kandydatow
> ktorych zdarzylo mi sie pzresluchiwac, wiedzial na przyklad co to sa
> "slabe referencje" czy "security manager"... To tyle jak idzie o
> "sprzataczki"

To chyba jednak nie jest dowód na to, że przyjmujesz profesjonalistów 
tylko wręcz przeciwnie.


-- 
   Darek

> zobacz też: Polecenia Low i High
To nie "polecenia" tylko "funkcje".

Andrzej Grażyński pisze:
>> zobacz też: Polecenia Low i High
> To nie "polecenia" tylko "funkcje".
Słusznie :) Tak mi się głupio napisało :)