IPB

Vítejte ( Přihlášení | Registrace )

60 Stran(y): V  < 1 2 3 4 > »   
Reply to this topicStart new topic
> Programuju!, No tyvole!
Hodnocení 5 V
Sakrblé
příspěvek 16.11.2007, 21:04
Příspěvek #16


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




rek bych ze je to tim, ze chces zapsat matici do txt souboru x)

pokud predelas t:text na t:file of matice (nejsu si jistej zda to pisu dobre) tak by to melo jit

Příspěvek upravil Sakrblé, 16.11.2007, 21:05.


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
Arnold.Rimmer
příspěvek 16.11.2007, 21:17
Příspěvek #17



Ikona skupiny

Skupina: Guru
Příspěvků: 2122
Registrován: 03.11.2004
ID: 3457




Zapis do souboru je uplne stejnej jako zapis na obrazovku, akorat je tam pretizena fce write(x,txt); (pripadne writeln - pro odradkovani). Prvni parametr je soubor, do kteryho chces zapisovat a druhy je samotny text. Jen si ted presne nepamatuju, jak tam je to Assignfile apod. .. zkus pouzit strycka Googleho (necetl jsem to - ale urcite to pomuze).


Jinak Pascal (Deplhi) je uz daaaaaaaaavno mrtvej jazyk ...


--------------------
Go to the top of the page
 
+Quote Post
MadOnion
příspěvek 16.11.2007, 21:27
Příspěvek #18


John Fitzgerald Kennedy
Ikona skupiny

Skupina: Guru
Příspěvků: 4484
Registrován: 13.02.2005
Bydliště Luka nad Jihlavou / Brno
ID: 5016




To že je to mrtvý mě neva, já potřebuju zápočet:-)

Nvm mě to prostě do toho texťáku nezapíše, no neva, budu konzultovat, snad mě nezabije za nesplňenej du.

Příspěvek upravil MadOnion, 16.11.2007, 21:35.
Go to the top of the page
 
+Quote Post
Nerubian
příspěvek 17.11.2007, 00:04
Příspěvek #19


Ninja #2
Ikona skupiny

Skupina: Guru
Příspěvků: 3942
Registrován: 27.08.2004
ID: 2587




Což mi připomíná že bych moh začít dělat úkoly z Javy a pomalu si vybrat co dělat k semestrálce... :(


--------------------

Go to the top of the page
 
+Quote Post
Sakrblé
příspěvek 17.11.2007, 09:52
Příspěvek #20


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




QUOTE(MadOnion @ 16.11.2007, 21:27) *
To že je to mrtvý mě neva, já potřebuju zápočet:-)

Nvm mě to prostě do toho tex?áku nezapíše, no neva, budu konzultovat, snad mě nezabije za nesplňenej du.


ja nevim, ale pole poli do datovyho typu text nezapises


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
MadOnion
příspěvek 19.11.2007, 16:01
Příspěvek #21


John Fitzgerald Kennedy
Ikona skupiny

Skupina: Guru
Příspěvků: 4484
Registrován: 13.02.2005
Bydliště Luka nad Jihlavou / Brno
ID: 5016




HA!!!
Víte kde byla chyba?
Zapoměl jsem na:


closefile(t);


to je magořina co?
btw dneska potěšilo tripl "ej" z konstrukce, ale informatika pánové, to budou 2 body z 10...:-(

Příspěvek upravil MadOnion, 19.11.2007, 16:02.
Go to the top of the page
 
+Quote Post
Sakrblé
příspěvek 19.11.2007, 16:03
Příspěvek #22


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




jak to tak rikas, tak si taky vzpominam ze bez closefile(t); jsem mel problem


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
coldik
příspěvek 19.11.2007, 16:23
Příspěvek #23





Skupina: Uživatel
Příspěvků: 7640
Registrován: 16.01.2005
ID: 4565




mno s pascalem teprve začínám a abych řekl pravdu, tak ho moc nepobírám Oo neporadil by mě nekdo jak stvořit tuto uloho v pascalu, která pro vás bude určitě primitivní, ale pro mě bohužel ne - Zjistěte, jaký úhel svírají na hodinách hodinové ručičky, když jedna z nich je nastavena na číslo x a druhá na číslo y. Počítejte menší ze dvou možných úhlů. (Kde x je číslo od 1 do 12, y od 1 do 60.)
Go to the top of the page
 
+Quote Post
Sakrblé
příspěvek 19.11.2007, 16:27
Příspěvek #24


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




uz to vidim

Příspěvek upravil Sakrblé, 19.11.2007, 16:28.


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
Sakrblé
příspěvek 19.11.2007, 16:32
Příspěvek #25


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




chces cely program nebo jen navod jak na to


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
coldik
příspěvek 19.11.2007, 16:51
Příspěvek #26





Skupina: Uživatel
Příspěvků: 7640
Registrován: 16.01.2005
ID: 4565




mno spis napsanej celej program.. abych to skouknul..
od uses crt; až po end. nejlip :)

Příspěvek upravil coldik, 19.11.2007, 16:52.
Go to the top of the page
 
+Quote Post
Sakrblé
příspěvek 19.11.2007, 17:03
Příspěvek #27


consequences will never be the same
Ikona skupiny

Skupina: Guru
Příspěvků: 4751
Registrován: 29.12.2005
Bydliště Brno
ID: 10315




CODE
function uhelNaHodinach(velka,mala:byte):byte;
  begin
     if velka=12 then velka:=0;
     if mala=60 then mala:=0;
     uhelNaHodinach:=abs(5*x-y)*6;
  end;


Příspěvek upravil Sakrblé, 19.11.2007, 17:03.


--------------------
"no ja kdyz cumel na nejaky ty kradeny fotky z libka a videl co jsou ty maly kurvicky schopny nafotit, se dneska uz nicemu nedivim"
Conan
Go to the top of the page
 
+Quote Post
A.l.i.3.n
příspěvek 19.11.2007, 17:18
Příspěvek #28


Om ňom ňom ...


Skupina: Uživatel
Příspěvků: 8888
Registrován: 19.11.2003
ID: 516




QUOTE(I-I.e.r.g.o.t.I-I @ 16.11.2007, 20:32) *
Když už sme u toho, kdyby jste někdo věděl, jak v JAVĚ udělat textový piškvorky (pole hvězdiček, xka, nuly) hráč proti hráči, byl bych š?asten.

Umim, ale v Cčku, nebo Pascalu :)

QUOTE(Arnold.Rimmer @ 16.11.2007, 21:17) *
Jinak Pascal (Deplhi) je uz daaaaaaaaavno mrtvej jazyk ...

Zas jeden chytrák, co by nejrači vyučoval základy programování v C++ nebo C# ...

Příspěvek upravil A.l.i.3.n, 19.11.2007, 17:20.


--------------------
- dope
Go to the top of the page
 
+Quote Post
marek_z
příspěvek 19.11.2007, 17:18
Příspěvek #29





Skupina: Uživatel
Příspěvků: 9
Registrován: 19.11.2007
ID: 23247




Špatně thumbsdown.gif

Nebude ti to fungovat například, když bude velká na 1 a malá na 59.
1*5-59 = abs(-54) = 54*6 = 324

1) 324 se mi rozhodně nezdá jako menší úhel
2) 324 nemůže být typu byte(byte je 0..255), tak by to vyhodilo error
Go to the top of the page
 
+Quote Post
A.l.i.3.n
příspěvek 19.11.2007, 17:22
Příspěvek #30


Om ňom ňom ...


Skupina: Uživatel
Příspěvků: 8888
Registrován: 19.11.2003
ID: 516




Já mam taky jednu záludnost:

QUOTE
Na standardním vstupu je dáno nejprve jedno kladné celé číslo N, které není větší než 100. Následuje permutace množiny přirozených čísel {1, 2, ..., N}, přičemž jednotlivá čísla jsou na vstupu od sebe oddělena mezerami. Všechny vstupní údaje jsou umístěny na jednom řádku.
Program k zadané permutaci určí permutaci bezprostředně po ní následující v lexikografickém uspořádání. Výslednou permutaci vypíše do jednoho řádku na standardní výstup, její jednotlivé členy budou na výstupu opět odděleny mezerami. Pokud byla zadána poslední permutace v lexikogafickém uspořádání a následující permutace tedy neexistuje, program vypíše pouze znakový řetězec NEEXISTUJE a skončí.
Příklad vstupu:
6 1 3 6 2 5 4
Odpovídající správný výstup:
1 3 6 4 2 5


Napsal jsem to následovně, ale prográmek který to testuje mi v jednom z 5ti vstupů vyhodnotí špatný výstup, ale nemůžu zaboha přijít, jaký to může být případ.

Exe: Připojený soubor  permu.zip ( 2.48k ) Počet stažení: 5


CODE
program Permutace;
var N,m          : byte;
    P            : array[1..100] of byte;
    i,x, pi      : byte;
    exist,sorted : boolean;

begin
exist:=false;

read(N);
for i:=1 to N do read(P[i]);

m:=N;
repeat
begin
  for i:=m-1 downto 1 do
   begin
    if P[m] > P[i] then
     begin                     {Prohodime hodnoty}
      x:=P[m];
      P[m]:=P[i];
      P[i]:=x;
      pi:=i;
      exist:=true;
      break;
     end;
   end;
  dec(m);
end;
until ((exist=true) or (m=1));


repeat
begin
  sorted:=true;
  for i:=pi+1 to N-1 do
   begin
    if P[i] > P[i+1] then
     begin
      x:=P[i];
      P[i]:=P[i+1];
      P[i+1]:=x;
      sorted:=false;
     end;
   end;
end;
until sorted=true;

writeln('');

if exist = true then
begin
  for i:=1 to N do write(P[i], ' ');
end;

if exist = false then write('NEEXISTUJE');
end. {14.11. 14:52}


Btw když vynechám první z "repeatů" a nechám tam jen jeho vnitří for cyklus, tak mi to vyhodnotí špatně zas jiný vstup, ale ten co je špatně teď je naopak dobře :) ... chápu, proč to bez repeatu hází jednu chybu, ale proč to po přídání repeatu udělá z jednoho správného špatný, to nechápu.

Příspěvek upravil A.l.i.3.n, 19.11.2007, 17:31.


--------------------
- dope
Go to the top of the page
 
+Quote Post

60 Stran(y): V  < 1 2 3 4 > » 
Reply to this topicStart new topic
3 Uživatel(é/ů) pročítá toto téma (3 neregistrovaných a 0 anonymních uživatelů)
0 registrovaní:

 



RSS Lo-Fi verze Dnes je: 28.03.24 - 11:43
Darkness Skin by Danellis. Converted by New Horizon Skins.
Toplist