Matice a další věci v Delphi – Delphi – Fórum – Programujte.com

Ahoj, moc bych potřebovala pomoc, máme ve škole udělat semestrálku a vůbec nevím jak na to, alespon jak mám začit. Delphi se totiž učíme jen měsíc. 

Naplňte matici pomocí generátoru náhodných čísel
Matici vytiskněte po řádcích ve tvaru tabulky, použijte proceduru na tisk.
Definujte funkci pro výpočet součtu čísel v řádcích
Vypište součty ve všech řádcích vedle jednotlivých řádků
Nalezněte řádek s minimálním součtem a vypište tento řádek
Setřiďte prvky matice v jednotlivých řádcích vzestupně a změněnou matici opět vytiskněte.

Děkuji moc.

#1 studentka
Jak máš začít?

Začni tím, že se rozhodneš, jestli se to opravdu chceš naučit nebo ne.

V tom prvním případě, pokud jsi nevyužila ten měsíc, který už se to "učíte", nezbývá než tomu věnovat zvýšené úsilí. Požádej třeba spolužáka, ať tě doučuje, protože takhle přes internet to moc nejde, obzvláš´t když netušíme, co jsi za ten měsíc zatím zvládla.

V tom druhém případě není co řešit, opět požádej spolužáka, nebo kohokoliv tady, ať ti ten program udělá, on se vždycky někdo ochotný najde.

PS: vidím, že i vysoká škola už přizpůsobila nároky nové generaci "studentů", takovéhle "semestrálky" se dělaly na střední škole normálně v rámci hodiny, nebo na půlhodinové písemce...

#2 JoDiK

Chodím pořád na přednášky a cvika, jenže to stejně nejde, mám knižku z Delphi dokonce. Snažím se, jestli si myslíš že jsem blondinka v růžovém a zvykla že všechno za mně uděla někdo jiný, tak to se fakt mýlíš. Spolužaci jsou na tom stejně, myslím si že problém bude v přistupu učitele, proto jsem napsala sem. 

No tady toho s přístupem vyučujícího moc nenaděláme ... každopádně, k tématu.

Začni tím, že si nadefinuješ nějaké pole (rozměry v zadání nemáš, čili si je buď nejprve vyžádej od uživatele, nebo tam něco "na tvrdo" loupni) ...

Potom si pomocí dvou do sebe vnořených cyklů FOR projdi to pole a pomocí funkce RANDOM si vygeneruj obsahy jednotlivých buněk.

Definuj si proceruru která bude dělat v podstatě to stejné co předchozí krok (procházet matici a na konkrétních souřadnicích cosi dělat) jen s tím rozdílem, že nebude obsahy buněk generovat, ale vypisovat. Nezapomeň že se pokaždé při přechodu na nový řádek můsíš přesunout na nový řádek i ve výpisu.

S tímhle doporučuju začít, to další už půjde samo.

#3 studentka
Nebuď citlivka, já přece nabízel dvě možnosti...

Nevím jakým způsobem ta výuka probíhá, jestli je to jen teorie, nebo i nějaká cvičení, jakou formou vám vyučující předává informace, jaké máte k dispozici materiály a tak nemůžu posoudit, kde je problém.

Je-li problém v přístupu učitele, tak bys měla asi začít tam... Buď se domluvte se spolužáky a vyšlete k němu schopného vyjednavače, nebo za ním zajdi sama. Musíte společně hledat a najít příčinu tohoto problému. Pokud projevíte zájem a snahu se to naučit, nechce se mi věřit, že by ten vyučující nezměnil přístup a neumožnil vám látku zvládnout. Možná jsem naivní, ale chci věřit tomu, že učitel udělá všechno pro to, aby věděníchtivé studenty naučil.

Ano, je možné že existují i "učitelé", kteří sežrali všechnu moudrost světa, a obtížný hmyz (tedy studenti) mu jen otravují život a pokud něco nezvládají, je to přece jejich problém, pak platí to co jsem navrhoval minule.

V případě, že nejsi "blondýna", a pálí ti to, je možné, že ti pomůžou i šikovní kluci na tomto serveru, ale musíš dodat informace...

Například zkopírovat sem kus programu, co už máš hotový a ptát se s čím nevíš jak dál, nebo tak...

Já proti blondýnkám nic nemám, jsou super. Akorát nechápu, co má společného barva porostu s maticí v Delphi. Asi jsem hroznej geek :)

#3 studentka
Jestli sis vybrala variantu, že to zkusíš tady, tak můžeš začít třeba takto:

Napiš program, který vygeneruje náhodné číslo z rozsahu 1-100 a vypíše ho.

Zkopíruj ten program sem. Pokud cokoliv nezvládneš, ptej se...

#7 JoDiK

Vypadá to nějak tak, jenže nevím kde je ta matice a co dal....
var 

Form1: TForm1;
a:array[1..100] of integer;
n:integer;
implementation

{$R *.dfm}
procedure vymena(var a,b:integer);
forward;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize; //spusteni generatoru nahodnych cisel
n:=strtoint(edn.Text);

lb.Clear;
for i:=1 to n do
Begin
a[i]:=random(10); //nahodne cislo
lb.Items.Add(inttostr(a[i]));
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,v,s:integer; b:boolean;
begin
repeat
b:=true;
for i:=1 to n-1 do
begin
if a[i]>a[i+1] then
begin
vymena(a[i],a[i+1]);
b:=false;
end;
end;
until b;
lb.Clear;
for i:=1 to n do
lb.Items.Add(inttostr(a[i]));
end;
Procedure vymena (var a,b:integer);
var pom:integer;
Begin
Pom:=a;
A:=b;
B:=pom;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.

#8 studentka
Aha, takže něco už máš.

To, co jsi poslala je tvoje práce a rozumíš tomu, co se tam děje?

No mám to z hodiny, napsala jsem to sama, nebo spíš opsala. Takhle u nas probihají hodiny, učitel tohle má na proektoru a my to musíme opsat a aby to fungovalo, jenže skoro nic z toho nevysvětli, rozumím jenom začatek..

#10 studentka
Tak napiš ten prográmek, co jsem ti zadal, ať vidím, že tomu rozumíš...

Napiš program, který do proměnné n vygeneruje náhodné číslo z rozsahu 1-100 a vypíše ho.

Já bych ještě poprosil ať sem slečna vkládá zdroják pomocí konstrukcí k tomu určených. Takhle se to hrozně blbě čte...

#10 studentka
A ještě jedno upřesnění, nejsi náhodou nervózní z té semestrálky moc brzy? Kdy ji máš odevzdávat? Nemáš na ní náhodou pracovat tak dva měsíce a během této doby se postupně ve výuce dovíš jak na to?

#13 JoDiK
Mám ještě další tří semestrálky, a nechci to pak dělat na poslední chvíli. Nebyla jsem nervózní, ale teď když jsem to zkoušela udělat a nic, tak už jsem nervózní, myslila jsem že to umím líp, ale bohužel...Příští týden mám test, už vidím jak to dopadne...

Jinak jsem zkoušela tohle, ale to nejde a nevím co s tim

var n:integer;
begin
Randomize;
n:=random(100);

#12 miHan

Jak že to mám správně vkládat? Nějak se v tom nevyznám...

#14 studentka
Klikneš na toto

Připojen obrázek
a tam vložíš kód.

Co se týče toho kousíšku kódu který jsi sem vložila, je psaný správně. Ale nefunguje nejspše proto, že nemáš ukončený blok BEGIN-END.

#15 miHan
Děkuji, že tam má být begin a end to znám

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    n: TEdit;
    lb: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var n:integer;
begin
 Randomize;
 n:=random(100);
end;

end.

ale stejně to nejde..

Ale jde, jde to přesně tak jak jsi to napsala. Číslo to sice vygeneruje, ovšem dál s ním už nepracuješ.  Zkus si vypsat obsah té tvé proměnné n do Editu (který se pro mě nepochopitelně také jmenuje n)...

čili si to zkus upravit takto:

procedure TForm1.Button1Click(Sender: TObject);
 var n:integer;
begin
 Randomize;
 n:=random(100);
 Self.n.Text:=IntToStr(n);
end;

Až to doladíš, mám druhý úkol (navazuje na předchozí).

Ulož do paměti přesně tolik náhodných čísel z rozsahu -10 až 10, kolik ti vyšlo n.

Pak je všechny projdi, najdi a vypiš největší (maximální) hodnotu.

Heh :-) zdravím :-) vsadím se, že slečna chodí na Dfjp na UPCI že? :D že by pan Šroll?? :D já jen, že teďka pracuji na dost podobných SP :))

Dobrý den mám taky učitele Šrolla a potřebovala bych pomoci s jednou funkcí nevím totiž jak se vyměňují sloupce první a poslední,když mám předem již vyplněnou matici. V  pohodě to zvládám pokud mám pomocí editu vložit které se mi promění, ale když mám zadáno první a poslední dělá mi to problém. Předem děkuji za odpověď