PiotrekDudkiewicz |
Wysłany: Wto 22:34, 27 Wrz 2005 Temat postu: |
|
Oto kod do programu "choinki" który robiliśmy na lekcji... W klamrach wstawiłem komentarze jaką funkcję pełnią niektóre linie.. Za chwile postaram sie napisać generator Lotka (gdybym prowadził notatki byłoby o wiele łatwiej ). Link do gotowego pliku pas: http://www.zsti.cba.pl/CHOINKA.PAS
Kod: |
program choinka;
{program wyswietla choinke na okreslonych wspolrzednych}
uses crt; {moduly uzyte w programie}
var x,y:byte; {zmienne - w tym przypadku wspolrzedne srodka}
begin
clrscr; {czysci ekran}
writeln('Podaj wspolrzedne srodka choinki: '); {wyswietlenie polecenia podania wspolrzednych}
readln(x,y); {wczytywanie danych a i b}
gotoxy(x,y);
writeln('*');
gotoxy(x-1,y+1);
writeln('***');
gotoxy(x-2,y+2);
writeln('*****');
gotoxy(x,y+3);
writeln('*');
gotoxy(x,y+4);
writeln('*');
gotoxy(x-1,y+5);
writeln('***');
gotoxy(x-2,y+6);
writeln('*****');
gotoxy(x,y+7);
writeln('*');
gotoxy(x,y+8);
writeln('*');
gotoxy(x-3,y+9);
writeln('*******');
gotoxy(x-7,y+12);
writeln('Wesolych Swiat!');
readln; {ta linia wstrzymuje program przed zamknieciem}
end. |
|
|