Názory ke článku Turbo Pascal - 10. lekce – Programujte.com

kdy bude dalsi dil?

Nemohl by jsi sem dát nějaký příklad na domácí úkol ... pro inspiraci.
Nevim jak přesně to udělat.
Díkes

Všem se omlouvám, ale poslední dobou nemám špetku času napsat další lekci. Stihl jsem vám opravit úkoly ale i to mi dalo zabrat. V nejbližší době by se mi ale měl čas uvolnit a tak sepíšu další lekci.

nemoh by si my pascal hodit na muj e-mail marval@post.sk

Nechci vypyadat jako Hujer, ale tvorbu menu jsme, prosím, ještě nebrali...

Chcu treba otevrit soubor http://www.seznam.cz/help.htm, jenze mi to nejde

Program hra2;
uses crt;
var volba:char;
pokus,tip,cislo:integer;
s:text;
radek,jmeno:string;

procedure game;
begin
clrscr;
writeln('Myslim si cislo od nuly do dvacitky, zkus ho uhodnout!');
writeln;
pokus:=0;
randomize;
cislo:=random(20);
repeat
readln(tip);
pokus:=pokus+1;
until tip=cislo;
writeln('---------------------------------------------');
writeln;
writeln('Vyborne, cislo jsi uhodl na ',pokus,' pokus');
readkey;
assign(s,'Hra.txt');
{$I-}
reset(s);
{$I+}
if ioresult<>0 then rewrite(s) else close(s);
append(s);
clrscr;
write('Zadejte sve jmeno: ');readln(jmeno);
write(s,jmeno);
write(s,pokus:15);
writeln(s);
close(s);
end;

procedure tabulka;
begin
assign(s,'Hra.txt');
{$I-}
reset(s);
{$I+}
if ioresult<>0 then rewrite(s) else close(s);
reset(s);
clrscr;
while not eof(s) do begin
readln(s,radek);
writeln(radek);
end;
repeat until keypressed;
close(s);
end;
begin
clrscr;
repeat
clrscr;
writeln('Hra uhadni cislo:');
writeln('------------------');
writeln;
writeln('Pro novou hru stisknete [H]');
writeln('Pro tabulku score stisknete [T]');
writeln('Pro opusteni programu stisknete [K]');
volba:=upcase(readkey);
case volba of
'H': begin
game;
tabulka;
clrscr;
end;

'T': begin
tabulka;
clrscr;
end;
'K': exit;

end;
until volba=chr(27);

end.

tedka jsem odevzdal svuj ukol tkaže se mužete kouknout do odevzdanejch ;)

Zdravím
Mám následující problém,z programu matice,mám dostat vysledek do textového souboru.
Podařilo se mi ale zatím zapsat pouze rozměry dané matice,ale již nevím,jak zprovoznit aby se mi výsledek vypsal do textoveho souboru,přikládám zdrojový kod...
Pomuze mi prosím někdo?

Děkuji za odpověď.



program nasobeni_matic(input,output);{MVTp,verze 1.0}
uses crt; {pouziti vystupu monitoru}
var m1,m2,m3: array [1..12,1..12] of integer; {urceni velikosti pole}
k,l,m,i,j,t :integer; {k,l,m - velikost matic}
y :integer; {souradnice graf. kurzoru}
s :text; {Prirazeni promenne souboru}

begin
clrscr; window(22,2,78,25); clrscr; {prikaz pro smazani obrazovky z unitu}
gotoxy(45,24); write('Jiri Vavru'); gotoxy(1,1); {umisteni souradnic na novem screenu hor a vert}
writeln('Nasobeni matic v 1.0 ');writeln;
write('Zadej velikost prvni matice a stiskni enter: x _ ');
gotoxy(45,3); read(k); gotoxy(49,3); read(l); {urcim souradnice,na kterych zadavam hodnoty}
write('Zadej cleny 1. matice: ');
writeln; y:=wherey;
for i:=1 to k do writeln(#179:2,#179:l*4); {vykresleni mrizky a zacatek cyklu for,prirazeni pocatecni hodnoty,ktera se nam bude navysovat}
for i:=1 to k do {vlozeni prvku do matice}
for j:=1 to l do
begin
gotoxy(4*j,i+4);
read(m1[i,j]);
end;

writeln; write('Zadej velikst druhe matice s stiskni zase enter: ',l,' x _ '); {druha matice analogicky postup}
y:=wherey; gotoxy(54,y); read(m);
write('Zadej cleny 2. matice: '); {zde jiz mame omezeno pouze zadani hodnot 2 matice,jelikoz je zde oblivnovana hodnotami z matice prvni}
writeln; y:=wherey; {vracˇ aktu lnˇ souýadnice polohy kurzoru}
for i:=1 to l do writeln(#179:2,#179:m*4); {vykresleni mrizky a opet cyklus for,tentokrat pro hodnoty druhe matice}
for i:=1 to l do {vlozeni prvku do matice}
for j:=1 to m do
begin
gotoxy(4*j,y+i-1);
read(m2[i,j]);
end;

writeln; m3[1,1]:=0; {zacatek algoritmu nasobeni matic}
for i:=1 to k do {"projizdim" radek krat sloupec pomoci cyklu
presneji prvni hodnotu prvni radku
nasobim 1 hodnotou 1 sloupce az do kon poctu}
for t:=1 to m do
for j:=1 to l do
m3[i,t]:=m3[i,t]+m1[i,j]*m2[j,t];


Assign(s,'vysledek.txt'); {Vypis do souboru,pomoci Append,pripis novych hodnot}
{$I-} {* Vypnutˇ vnitýnˇ kontroly chyb *}
Append(s);
if IOResult<>0 then Rewrite(s); {Overeni dostupnosti souboru}
{$I+} {Znovu zapnutˇ vnitýnˇ kotroly chyb}
writeln(s,'Soucinem matic je matice typu: ',k,' x ',m);{vypise hlavicku souboru}
close(s);

writeln('Soucinem matic je matice typu: ',k,' x ',m);

y:=wherey;
for i:=1 to k do writeln(#179:2); {vykresleni mrizky}
for i:=1 to k do {vypsani vysledku soucinu matic}
begin
for j:=1 to m do
begin
gotoxy(4*j,y+i-1);
write(m3[i,j]);
end;
write(#179:2);
end;
write('---------------------------------------------');
writeln('Data byla pridana do souboru vysledek.txt');
END.key;

měl bych takový dotaz, když otevřu tuto stránku v prohlížeči Opera, tak se mi místo zvýrazněného textu zobrazí:

<STRONG>soubor:Text;</STRONG>

Reagoval na komentář od uživatele Petr :
prostě chyba v kodu webu asi to dělá všem

Reagoval na komentář od uživatele Petr :
mě to dělá taky, a protože mám zrovna Operu zabloklu, tak si toto prohlížím v IE, a taky se to zbrazuje stejně

boha to je kokotina

Chtel bych se zeptat jak mam udelat v Pascalu zapisování do textoveho souboru a ukladalo se to tam.Dekuji.

Dobry den napisal by tu niekto pre mna program neviem si dat s tym rady prosim vas :((((     

 Napíš program, ktorý vynásobí dve matice rovnakej veľkosti mxn a vpíše výslednú maticu .