Názory ke článku Turbo Pascal - 10. lekce – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

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

 

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

Tesik   NOVÝ
20. 3. 2006

kdy bude dalsi dil?

ladis_001   NOVÝ
31. 3. 2006

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

Carix   NOVÝ
31. 3. 2006

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.

marval   NOVÝ
7. 4. 2006

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

Vlk_001   NOVÝ
17. 1. 2007

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

Honza   NOVÝ
10. 2. 2007

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

Petr Macek   NOVÝ
10. 6. 2007

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.

  NOVÝ
25. 11. 2007

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

JiriVavru   NOVÝ
10. 1. 2008

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;

Petr   NOVÝ
10. 5. 2008

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>
je to problém u mě, nebo to dělá taky někomu dalšímu?

blackjOker   NOVÝ
10. 5. 2008

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

tomtom.klima   NOVÝ
16. 9. 2008

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ě

Kokot   NOVÝ
2. 6. 2009

boha to je kokotina

jan   NOVÝ
16. 5. 2011

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

Juraj Lukačka   NOVÝ
6. 5. 2012

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 .

Přidej svůj názor

×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:
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo e-mailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Reaguješ na příspěvek:
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové názory e-mailem (pouze pro přihlášené)
Sleduj názory ke článku a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.



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