vytvorenie tabulky do pascalu

Programovacie jazyky, rady, poradňa...
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

vytvorenie tabulky do pascalu

Príspevok od používateľa A7X »

bry vecer prajem.
najde sa prosim vas dobra dusa kt. by mi vedela spravit tabulku(vid priloha) kde by sa mi jednotlive uz zadane udaje vypisali donej??moc krat dakujem.
Prílohy
DSC01112 - kópia.jpg
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

Jaaa osobne by som to riesil cez gotoxy :D Mozno nejako cez graph, ale s tym ja neviem, tagze ja iba takto...
Teda vykreslil by som si pomocou gotoxy(x,y) tabulku... to mas jednoduche, trochu pracne, ale lahke... potom by som zadane hodnoty zase zapisal na gotoxy(x,y) vo vnutri tabulky... hotovo :)

edit//

Teda myslim to nejako takto (vyzera to hrozne, ale je to lahke :D)
Prílohy
tab.rar
(310 Bajtov) 30 stiahnutí
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

hadze to error....skusim volaco kuknut :? ale aj tak
dikes...btw ako spravim aby mi to vypisovalo hodnoty do tich policok?
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

Aky error ti to hadze?
A hodnoty tam nahadzes bud konstanty v zdrojaku, alebo si ich vypytas vo volnom priestore, alebo pred vytvorenim tabulky. Potom ich normalne zapises do gotoxy(x,y); -> x su stlpce(okno ma 80 stlpcov) a y su riadky(24) ;)
- inak ak by si nevedel,

Kód: Vybrať všetko

gotoxy(5,5); 
write('111');
Ti zapise "111" na piate miesto v piatom riadku...
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

error-division by zero

dakujem
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

Tak to nieje chyba u mna :D Ja tam nemam kde delit nulou ;)
neutronmind
Expert
Expert
Príspevky: 189
Registrovaný: 05 aug 2008, 14:17

Príspevok od používateľa neutronmind »

Skus dat do uses fdelay
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

ale ved gotoxy som pouzival uz predtym a islo to...tak preco to teraz nejde,??
a mam pracovat s crt kniznicu
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

musi to ist! Mne to normalne ide... delenie nulou ti da, ked zapnes to moje, alebo ked to das do niecoho svojho?
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

ked zapnem to tvoje....totiz do svojho som nekopiroval lebo este robim par veci na svojom
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

tak si skus urobit novy a skopiruj to tam:

Kód: Vybrať všetko

var i,j:integer;
begin
     clrscr;

     for i:=2 to 23 do begin
                            gotoxy(1,i);
                              write(#186);
                            gotoxy(79,i);
                              write(#186);
                       end;
     for j:=2 to 78 do begin
                            gotoxy(j,1);
                             write(#205);
                            gotoxy(j,9);
                             write(#205);
                            gotoxy(j,17);
                             write(#205);
                            gotoxy(j,24);
                             write(#205);
                       end;
     for i:=10 to 23 do begin
                             gotoxy(27,i);
                              write(#186);
                             gotoxy(54,i);
                              write(#186);
                        end;
     gotoxy(1,1); write(#201);
     gotoxy(1,24); write(#200);
     gotoxy(79,1); write(#187);
     gotoxy(79,24); write(#188);



     readkey;
end.
 
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

aj tak to pise error
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

aky pouzivas compiler?
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

koho co?? :lol: proste mam turbo pascal tot je vse...
neutronmind
Expert
Expert
Príspevky: 189
Registrovaný: 05 aug 2008, 14:17

Príspevok od používateľa neutronmind »

A skusal si to uses fdelay?
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

error 15:file not found(fdelay.tpu)

a otazka...pojde mi pri tom fdelay vsetko ako na CRT??
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

neutronmind fdelay TP nepozna :!:

Skus si checknut nastavenia... daj hore ze Options->Compiler->skontroluj podla prilohy

// btw. Turbo Pascal je compiler ;)

//
audiotrack napísal: ...
- aj tak sa da :D
Prílohy
2009-05-28_165929.jpg
A7X
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 431
Registrovaný: 20 júl 2008, 14:23

Príspevok od používateľa A7X »

bttw uz mi to ide...
ale ako maju byt tie hodnoty ked mam taketo okno,???
Prílohy
DSC01106.jpg
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Príspevok od používateľa BX »

Nechapem co chces...
Napísať odpoveď