Programuju!, No tyvole! |
Vítejte ( Přihlášení | Registrace )
Programuju!, No tyvole! |
16.11.2007, 21:04
Příspěvek
#16
|
|
consequences will never be the same 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 |
|
|
16.11.2007, 21:17
Příspěvek
#17
|
|
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 ... -------------------- |
|
|
16.11.2007, 21:27
Příspěvek
#18
|
|
John Fitzgerald Kennedy 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. |
|
|
17.11.2007, 00:04
Příspěvek
#19
|
|
Ninja #2 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... :(
-------------------- |
|
|
17.11.2007, 09:52
Příspěvek
#20
|
|
consequences will never be the same Skupina: Guru Příspěvků: 4751 Registrován: 29.12.2005 Bydliště Brno ID: 10315 |
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 |
|
|
19.11.2007, 16:01
Příspěvek
#21
|
|
John Fitzgerald Kennedy 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. |
|
|
19.11.2007, 16:03
Příspěvek
#22
|
|
consequences will never be the same 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 |
|
|
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.)
|
|
|
19.11.2007, 16:27
Příspěvek
#24
|
|
consequences will never be the same 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 |
|
|
19.11.2007, 16:32
Příspěvek
#25
|
|
consequences will never be the same 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 |
|
|
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. |
|
|
19.11.2007, 17:03
Příspěvek
#27
|
|
consequences will never be the same 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 |
|
|
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 |
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 :) 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
|
|
|
19.11.2007, 17:18
Příspěvek
#29
|
|
Skupina: Uživatel Příspěvků: 9 Registrován: 19.11.2007 ID: 23247 |
Špatně
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 |
|
|
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: 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
|
|
|
Lo-Fi verze | Dnes je: 26.04.24 - 20:20 |