graph Pascal
sabunia portal
Program Wykres_funkcji;
uses crt, graph;
var karta,tryb,n,j:integer;
x,y,Dx:real;
function f(x:real):real;
begin
f:=3/(x-2);
end;
begin
karta:=detect; initGraph(karta,tryb,'');
j:=20;
setColor(darkGray);
for n:=-319 div j to 320 div j do
line(n*j+320,0,n*j+320,479);
for n:=-239 div j to 240 div j do
line(0,n*j+240,639,n*j+240);
setColor(white); line(0,240,639,240);
line(320,0,320,479);
x:=-320/j; Dx:=0.00025;
repeat
x:=x+Dx;
y:=f(x);
if abs(y)<240/j then
putPixel(round(x*j+320),round(y*j+240),red);
until x>40/j;
repeat until keypressed;
closeGraph;
end.
Kod programu w Pascalu rysujący wykres funkcji. Wysyłałem koledze
Pomóżnie mi co jej źle zrobione bo wyświetla mi obraz lecz brakuje brakuje czarnego obramowania co jest nie tak??
program yingyang;
uses graph ;
var
sterownik:integer;
tryb:integer;
begin
sterownik:=Vga;
tryb:=VGAHi;
initgraph(sterownik,tryb,'C:Program FilesTPBIN');
setfillstyle(1,white);
floodfill(0,0,red);
setfillstyle(1,black);
setcolor(black);
circle(320,240,200);
line(320,40,320,440);
floodfill(321,240,black);
setfillstyle(1,white);
setcolor(white);
circle(320,140,99);
floodfill(321,140,white);
circle(320,240,200);
line(320,40,320,440);
floodfill(321,240,black);
setfillstyle(1,white);
setcolor(white);
circle(320,140,99);
floodfill(321,140,white);
setfillstyle(1,black);
setcolor(black);
circle(320,340,99);
floodfill(319,340,black);
circle(320,140,20);
floodfill(321,140,black);
setfillstyle(1,white);
setcolor(white);
circle(320,340,20);
floodfill(321,340,white);
readln;
closegraph;
end.
Witam.
Musze zrobić flage GRUZJI w PASCALU w module GRAPH... no i męcze sie z tym od 2 dni i nic.
Jak jest ktos, kto zna sie na rzeczy, to prosze o pomoc.
(Jak to zaczac i w ogole jak to zrobic - moze jakis szablon z innych flag, zebym mogl zobaczyc mniej wiecej co i jak)
zadanie wygląda nastepujaco:
witam, mam podany program i muszę pozmieniać dane tak, aby wyszedł jakiś ciekawy wzór.
Trochę się pobawiłam, ale szału nie ma...te moje kształty są raczej przeciętne, a podobno
mogą wyjść nawet motyle. Jeśli ktoś ma czas, bardzo proszę o pomoc! :)
program grafika;
uses graph,crt;
var x,y,x1,y1,r,i: integer;
k: real;
begin
detectgraph(ster,tryb);
initgraph(ster,tryb,'c: pgi');
x:=getmaxx div 2;
y:=getmaxy div 2;
r:=100;
for i:=1 to 180 do
begin
k:=2*i*pi/180;
x1:=round(2*r*cos(k));
y1:=round(2*r*sin(k));
line(x+r+x1,y+y1,x-r+x1,y-y1);
end;
repeat until keypressed;
closegraph;
end.
no i np. pozamieniać miejscami sinusy z cosinusami, mnożyć, dodawać,zmiana r itp...
mam nadzieję, że dobrze przepisałam, w razie czego wstawiam link do kartki:
Imageshack - p1170688.jpg
dziękuję !
Jestem jaki jestem i to już wasz problem :D :F.
Poza tym, jestem od lat 16 (taka ładna okrągła liczba, 2^4 :P) i trochę.
Znam jakieś podstawy php, w wolnych chwilach czytam sobie "Thinking in C++", zaczynam dzięki temu rozumieć ludzi, którzy szerokim łukiem omijają wszelkie C-pochodne a sam C++ zwykłem nazywać "C, tylko z dwoma krzyżykami na drogę" ;). Tak, czy owak, lektura przyjemna, czasem tylko nadmiernego myślenia wymaga ;). Możliwe, że jak się mocniej wkurzę na jakieś dziwne, niezrozumiałe dla mnie zadanie z owej ksiażki - napiszę, ale raczej wolę sam kombinować.
Oczywiście znam w stopniu takim, w jakim wypada znać, HTML-a, a że się czasem udzielam, to i bbcode jak i mediawiki.
Drzewiej się Pascala uczyłem, jakieś podstawy z tego wyniosłem. W życiu nie programowałem z wykorzstaniem biliotek graficznych (no może chwilę w graph w pascalu ;P). Wiem, czym jest programming, ale samemu raczej nazbyt dobrze programować nie umiem - chyba moje wrodzone lenistwo nie pozwala mi zacząć szerszego projektu.
Poza tym: Yo ZiOmAsY, PoKlIkAcHe??!! xDxD ^^ !!!!!11!!1!11~1
Oczywiście w trybie graph?
Jeśli umiesz zmieniać kolor, rysować linie, wypełniać kolorem i przenosić "pisak". To rozrysuj sobie na kartce (w kratkę) wszystkie linie, zmierz i przepisz to do pascala.
Możesz też napisać procedurę na jedną gwiazdkę i potem ją 12 razy narysować.
Jak chcesz mogę podrzucić jakikolwiek program w trybie graficznym (jeśli nic nie kumasz) i wytłumaczyć co oznaczają polecenia.
[Pascal] Problem z pogrubieniem
Cześć, mam taki problem - mam zrobić flagę olimpisjką i mam szkielet :
Program flagaolimp;
Uses CRT,Graph;
Var j,i,driver,mode: integer;
Begin
Driver := Detect;
InitGraph(driver,mode,'C:BPBGI');
for i:= 1 to 700 do
Rectangle(100+1,100,700+1,400);
Setcolor(blue);
Circle(200,250,70+j);
Setcolor(yellow);
Circle(300,330,70+j);
Setcolor(white);
Circle(400,250,70+j);
Setcolor(green);
Circle(500,330,70+j);
Setcolor(red);
Circle(600,250,70+j);
repeat until Keypressed;
CloseGraph;
End.
Ale muszę to wszystko jeszcze pogrubić ( średnice kółek) i wypełnić tło kolorem (w prostokącie też )- może ktoś mi napisać jak to zrobić ? (czytałem przykłady w internecie ale u mnie albo nic się nie dzieje albo wyskakuje błąd)
z góry wielkie dzięki za pomoc...
;) wiem co potrafi Pascalowy Graph, ale to nie zmienia faktu, że w toku nauczania programowania nawet nie dochodzi się do takiego poziomu, nie mówiąc już o takich rzeczach jak tryb 13h. Teraz jednak Pascal powinien pójść w odstawke zdecydowanie. Na szczescie w liceum mialem juz Delphi, chociaz zdecydowanie wolalbym C++, niestety nie mi było to wybierac.
@up właśnie,
zapomniałem dodać, do tego trzeba jednak Turbo Pascala, ponieważ bez TP nie mamy biblioteki graph. Czyli jeżeli chcemy odpalić musimy zainstalować TP i wkleić plik .exe do folderu BIN lub po prostu otworzyć plik .pas i skompilować,
Pozdrawiam,
Bockwurstpaule
Cytat
A sami byli dla siebie większym ciężarem niż ciemność. Mdr 17,20
A sami byli dla siebie większym ciężarem niż ciemność. Mdr 17,20_2