Anonymní profil Buckyx – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Buckyx – Programujte.comAnonymní profil Buckyx – Programujte.com

 

Příspěvky odeslané z IP adresy 178.40.31.–

Buckyx
Pascal › mensi problem s nacitanim pr…
23. 11. 2010   #136208

zdravim mam mensi problem
program uz je ale musim nacitat 2x string v jednom radku z klavesnice
pokud nacitam obe promenne zvlast tak program funguje ale mam pocit ze kdyz najednou tak ne



var m,j,i,n:byte;
kod,pom:string;
a,b:array[byte] of string;

begin
readln(m);

for j:=1 to m do readln(a[j],b[j]); - tady je ten problem

readln(n);
readln(kod);

for i:=1 to n do begin
pom:=pom+kod[i];

for j:=1 to m do if pom=b[j] then begin
write(a[j],' ');

pom:='';
end;
end;

writeln;
readln;
end.

 

 

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