Pomocte – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Pomocte – Pascal – Fórum – Programujte.comPomocte – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Malirka
~ Anonymní uživatel
34 příspěvků
31. 12. 2008   #1
-
0
-

Čus.Nemůže mi někdo poradit s jedním úkolem...Já mám část, ale nevím jak to mám dokončit.Díky tomu kdo mi pomůže.
Zadání:
Sestavte program, který umožní v načtené matici (soubor MATICE4.TXT) vyhledat zadanou hodnotu H. Při prvním nalezení zadané hodnoty se vypíše pozice (řádek, sloupec) nálezu a hledání se ukončí. V případě nenalezení hodnoty se vypíše příslušné hlášení. Po prvním hledání se zobrazí dotaz, zda hledat další hodnotu. Při odpovědi "A" se hledání opakuje, v ostatních případech program skončí.

Nahlásit jako SPAM
IP: 78.110.208.–
Reklama
Reklama
rainbof0
Newbie
31. 12. 2008   #2
-
0
-

bufou to vnorene dva cykly neco jako

for X=0 to MaxX do
for y=0 to maxY do
if hodnota=matice[x,y] then writeln('nasel jsem to na souradnicich x=',x,' y=',y)
....

Nahlásit jako SPAM
IP: 82.117.140.–
Malirka
~ Anonymní uživatel
34 příspěvků
31. 12. 2008   #3
-
0
-

Já to takhle vymyslela, ale asi tam mám nějaké chyby...Mrkněte se někdo na to..

Uses crt;
const max=100;
var P: array [1..max] of integer;
I,C,POC,H: Integer;
S: Text;

begin
assign (S,'C:\SIMPAS\matice4.txt');
reset(S);
I:=0;
while not eof (S) do
begin
read (S,C);
I:= I+1;
P[I]:=C;
end;
close(S);
POC:=I;
Write('Zadej hledanou hodnotu: ');
Readln(H);
I:=1;
While (P[I]<>H) and (I<=POC) do
begin
I:=I+1;
end;
Writeln;
if P[I]=H then writeln ('Nalezeno na ',I, '. miste')
else writeln ('Nenalezeno');
Readln;
end.

Nahlásit jako SPAM
IP: 78.110.208.–
o-lox0
Super člen
31. 12. 2008   #4
-
0
-

Třeba takhle pro matice až 100*100 :

Uses crt; 

const max=100;
var
Mat : array[1..100,1..100]of integer;
I,J,C,H: Integer;
S: Text;
sloupcu,radku:integer;
z:char;
begin
assign (S,'matice.txt');
reset(S);
I:=0;
read(s,sloupcu);
read(s,radku);
For i:=1 to radku do
For j:=1 to sloupcu do
begin
read(s,c);
mat[i,j]:=c;
If eof(s) then begin write('spatny soubor'); halt(1); end;
end;
close(S);
Write('Zadej hledanou hodnotu: ');
Readln(H);
I:=1;j:=1;
Repeat
While (i<=radku)and(Mat[i,j]<>H) do
begin
If j>sloupcu then begin j:=1; inc(i); end;
While (j<=sloupcu)and(Mat[i,j]<>H) do
begin
inc(j);
end;
end;
If i>10 then begin writeln('Nenalezeno'); break; end;
writeln ('Nalezeno na sloupci ',j, ' a radku ',i,'.');
inc(j);
Writeln;
Writeln('Dalsi hledani: A/N');Readln(z);
z:=upcase(z);
Until z<>'A';
end.

Nahlásit jako SPAM
IP: 85.71.152.–
Malirka
~ Anonymní uživatel
34 příspěvků
31. 12. 2008   #5
-
0
-

To o-lox : Moc ti děkju, ale když to spstím a na konci se mě to zeptá jesti chci Další hledání,tak já pak dám A jako tdy ano a ono s mi nezobrazí jaké číslo chci, ale rovno kde se to nachází. Nechápu, jakto, že se najde číslo, které jsem nezadala, a když to zksím na potřëtí, tak se ten program vypne..Kde je tedy chybka?

Nahlásit jako SPAM
IP: 78.110.208.–
o-lox0
Super člen
31. 12. 2008   #6
-
0
-

sorry mě to takhle přes fóŕa neba, odesílám ti doupřesnění na maila.. (nějak doufám že jsi ta která jsi :-))

Nahlásit jako SPAM
IP: 85.71.152.–
Malirka
~ Anonymní uživatel
34 příspěvků
31. 12. 2008   #7
-
0
-

To o-lox : Jo jsem to já..můžeš mi to teda poslat prosím na email, jak to má být správně..Doufám, že ti neva, že to jsem já?Díky moc

Nahlásit jako SPAM
IP: 78.110.208.–
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, 7 hostů

Podobná vlákna

Pomocte — založil martin

Prosím pomocte...... — založil lukik

Moderátoři diskuze

 

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