Zespół Szkól w Sieniawie


http://zssieniawa.com.pl	Absolwenci - Klasy - Zdjęcia

	Menu
	Aktualności
	O szkole
	Nauczyciele
	Uczniowie
	Rodzice
	E-gazetka
	Konkursy

Pierwsze kroki w TP

20/o9/2oo7

Pierwsze kroki w Turbo Pascalu

program p1;

uses crt;

begin

clrscr;

gotoxy(10,10);write('Witaj!');

readkey;

end.

program p2;

uses crt;

var x, y, su: integer;

begin

clrscr;

gotoxy(10,5);write('x = ');read(x);

gotoxy(10,6);write('y = ');read(y);

su:= x+y;

gotoxy(10,7);write('x + y = ',su);

end.

program p3;

uses crt;

var x: integer;

begin

clrscr;

writeln;

write('Podaj liczbe x = '); read(x);

if x>0 then writeln('Liczba dodatnia') else

if x = 0 then writeln('liczba zero')

else writeln('liczba ujemna');

repeat until keypressed;

end.

program p4;

uses crt;

var n:integer;

begin

clrscr;

for n:=1 to 10 do write(n,' ');

readkey;

end.

program p5;

uses crt;

var n:integer;

begin

clrscr;

gotoxy(10,10);

for n:=20 downto 10 do write(n,' ');

readkey;

end.

program p5_1;

uses crt;

var n:integer;

begin

clrscr;

gotoxy(10,10);

for n:=2 to 8 do write('TP ');

readkey;

end.

program p6;

uses crt;

var n, su: integer;

begin

clrscr;

su:=0;

for n:=1 to 10 do

begin

su:=su+n;

end;

writeln('n = ',n);

writeln('su = ',su);

readkey;

end.

cdn.

Programowanie strukturalne w TP

program napisy1_w_crt;
uses crt;
procedure piszXY(xx, yy:byte;tekst:string;kk:byte);
{polaczenie gotoxy z write}
begin
textcolor(kk);
gotoxy(xx,yy);
write(tekst);
end;

begin
clrscr;
piszXY(15,20,'wiem,ze nic nie wiem',yellow);
piszXY(20,30,'nie wszystek umre',red);
readkey;
end.

Program 2 w Turbo Pascalu

23/o3/2oo7

Programowanie zorientowane obiektowo

program napisy2_w_crt;
uses crt;
type napis = object
                           x, y:integer; k:byte; {pola}
                           procedure init(xx,yy:byte;kk:byte); {metody}
                           procedure pisz(ss:string);
                        end;
procedure napis.init;
begin
    x:=xx; y:=yy;k:=kk;
end;
procedure napis.pisz;
begin
   textcolor(k);
   gotoxy(x,y);
   write(ss);
end;
var tnapis:napis; {zmienna obiektowa}

begin
   clrscr;
   tnapis.init(10,5,red);
    tnapis.pisz('Malysz jest swietnym skoczkiem.');
    tnapis.init(10,7,yellow);
    tnapis.pisz('Ma 4 krysztalowe kule.');
   readkey;
end.

Program 3

26/o3/2oo7

Dziedziczność i pokrywanie metod

uses crt, graph;

var st,tr:integer; napis:string;

type

punkt = object

x,y:integer;

k:byte;

Procedure Wspolrzedne(xx,yy:integer);

Procedure Zaznacz(kk:byte);

end;

okrag = object(punkt)

r:integer;

Procedure Wspolrzedne(xx,yy,rr:integer);

Procedure Rysuj(kk:byte);

end;

Procedure punkt.Wspolrzedne;

begin

x:=xx; y:=yy;

end;

Procedure punkt.Zaznacz;

begin

k:=kk;

putpixel(x,y,k);

end;

Procedure okrag.Wspolrzedne;

begin

punkt.Wspolrzedne(xx,yy);

r:=rr;

end;

procedure okrag.Rysuj;

begin

punkt.Zaznacz(kk);

circle(x,y,r)

end;

var apunkt:punkt;

aokrag:okrag;

begin

InitGraph(st,tr,'c:\tp\bgi');

aokrag.Wspolrzedne(getmaxx div 2,getmaxy div 2,50);

aokrag.Rysuj(yellow);

Readkey;

CloseGraph;

end.

Program 4

29/o3/2oo7

Zmienne dynamiczne i grafika

uses crt,graph;
type kolo = object
                         x,y,r:integer;
                         procedure init(xx,yy,rr:integer);
                         procedure pokaz(kk:byte);
                      end;
procedure kolo.init;
begin
x:=xx;y:=yy;r:=rr;
end;
procedure kolo.pokaz;
begin
setcolor(kk);
circle(x,y,r);
end;
var k:^kolo;
s,t:integer;

begin
initgraph(s,t,'c:\tp\bgi');
   new(k);
   k^.init(100,100,50);
   k^.pokaz(red);
   dispose(k);
readkey;
closegraph
end.

Modyfikacja programu 1

30/03/2oo7

Programowanie zorientowane obiektowo.
Metody wirtualne i zmienne dynamiczne

program napisy3_w_crt;
uses crt;
type napis = object
                          x, y:integer; k:byte;
                     constructor init(xx,yy:byte;kk:byte);
                     procedure pisz(ss:string);virtual;
                  end;
constructor napis.init;
begin
   x:=xx; y:=yy;k:=kk;
end;
procedure napis.pisz;
begin
textcolor(k);
gotoxy(x,y);
write(ss);
end;
var tnapis:^napis;

begin
clrscr;
new(tnapis);
tnapis^.init(10,5,red);
tnapis^.pisz('Malysz jest swietnym skoczkiem.');
tnapis^.init(10,7,yellow);
tnapis^.pisz('Ma 4 krysztalowe kule.');
dispose(tnapis);
readkey;
end.

Redakcja

ãhttp://zssieniwa.com.pl