vytvorenie tabulky do pascalu
vytvorenie tabulky do pascalu
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.
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.
Jaaa osobne by som to riesil cez gotoxy
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
)
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
- Prílohy
-
- tab.rar
- (310 Bajtov) 30 stiahnutí
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,
Ti zapise "111" na piate miesto v piatom riadku...
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');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.
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa: