Načítáni dvou matic z jednoho souboru – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Načítáni dvou matic z jednoho souboru – Delphi – Fórum – Programujte.comNačítáni dvou matic z jednoho souboru – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
liaz0
Duch
24. 6. 2014   #1
-
0
-

Zdravím Vás potřeboval bych poradit

mam načíst z jednoho souboru 2 různé matice oddělené od sebe prázdným řádkem neznám předem počet sloupců ani radků ani jedné z matic, mám toto vyřešené pro jednu matici. Zajímalo by mě jestli to vůbec jde a popř. jak.

Děkuji za reakce

program mat;

{$APPTYPE CONSOLE}

uses
SysUtils;

var A:array[1..100,1..100] of real;
      i,j,m,n:integer;
      vstup,vystup:text;

begin
  assign(vstup,'data.txt');
  assign(vystup,'data2.txt');
  reset(vstup);
  rewrite(vystup);

  //nacitani matice ze vstupniho souboru kdyz nezname predem
  //pocet radku a pocet sloucu
  i:=1;
  repeat
    begin
      j:=0;
        repeat
           begin
              j:=j+1;
              read(vstup,A[i,j]);
           end;
        until eoln(vstup);
        readln(vstup);
        i:=i+1;
    end;
 until eof(vstup);
n:=i-1;
m:=j;

//vypis matice
for i:= 1 to n do
   begin
       for j:= 1 to m do
          write(vystup,A[i,j]:6:2);
       writeln(vystup);
end;

close(vstup);

close(vystup);

end.

Nahlásit jako SPAM
IP: 89.29.126.–
Reklama
Reklama
JoDiK
~ Anonymní uživatel
981 příspěvků
24. 6. 2014   #2
-
0
-

#1 liaz
Půjde to tak, že musíš najít ten prázdný řádek.

V tvém programu to zjistíš tak, že pokud dočteš vstupní řádek, hned otestuj, jestli nejsi zase na konci řádku:

        readln(vstup);
        if eoln(vstup) then writeln('prazdny radek');


A když jo, víš že máš jít na druhou matici...

Nahlásit jako SPAM
IP: 88.103.228.–
liaz0
Duch
25. 6. 2014   #3
-
0
-

Aha super takže tímto způsobem se dá načíst libovolný počet matic...
Moc děkuji za pomoc :)

Nahlásit jako SPAM
IP: 89.29.126.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 11 hostů

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý