Object Pascal/Przykłady kodu

Z Wikibooks, biblioteki wolnych podręczników.
Przejdź do nawigacji Przejdź do wyszukiwania
Program czytający ciąg znaków i informujący, czy jego długość jest liczbą parzystą czy nieparzystą.[edytuj]
program parzysta_nieparzysta; {nagłówek, obowiązkowy - "program" oznacza program główny ale}
                              {może być też "unit" jako moduł programu (np: CRT)}

uses crt; {uzywa biblioteki crt (potrzebna do podstawowych operacji)}

var t:string; {deklaracja zmiennych}

begin {początek programu}
  writeln('Podaj dowolny ciąg znaków i nacisnij ENTER.'); {wyświetlenie napisu na ekranie}
  readln(t); {pobranie łańcucha}
  if length(t) mod 2 = 0 then  {Sprawdzenie podzielności długości łańcucha przez 2}
    writeln('Długość jest liczbą parzystą.') {jeśli podzielna}
  else
    writeln('Długość jest liczba nieparzystą.'); {w innym przypadku}
  readln; {pobranie danych, w tym przypadku zapobiega natychmiastowemu zamknięcia się okienka}
end. {koniec programu}
Program ruszający gwiazdką na ekranie za pomocą kursorów. Pomysł oparty na kodzie z KŚE 7-8/06.[edytuj]
program ruch;
uses Crt;
var x,y : Integer;
    kierunek : Char;
begin
 ClrScr;
 x:=10;
 y:=10;
 repeat
 ClrScr;
   TextColor(WHITE);
   GotoXY(X,Y);
   Write('*');
   kierunek:=ReadKey;
   if kierunek=#0 then
   begin
     kierunek:=ReadKey;
     GotoXY(x,y);
     Write('*');


     if (kierunek=#75) AND (x>1) then x:=x-1;
     if (kierunek=#77) AND (x<79) then x:=x+1;
     if (kierunek=#72) AND (y>1) then y:=y-1;
     if (kierunek=#80) AND (y<25) then y:=y+1;
   end;

  until kierunek=#27;
end.
Program wyszukujący dla dwóch podanych liczb największy wspólny dzielnik.[edytuj]
uses crt;
var a,b,n:byte;
     begin
         clrscr;
         write('Podaj pierwsza liczbe ');
         readln(a);
         write('Podaj druga liczbe ');
         readln(b);
         n:=a;
         while (a mod n<>0) or (b mod n<>0) do n:=n-1;
         writeln('Najwiekszy wspolny dzielnik liczb ',a,' i ',b,' to ',n:0);
         readln;
     end.
Program wyszukujący dla dwóch podanych liczb najmniejszą wspólną wielokrotność.[edytuj]
uses crt;
var a,b,n,x:word;
    begin
    	clrscr;
    	write('Podaj pierwsza liczbe ');
	readln(a);
    	write('Podaj druga liczbe ');
    	readln(b);
    	n:=a;
    	while (n mod a<>0) or (n mod b<>0) do n:=n+1;
    	writeln('Najmniejsza wspolna wielokrotnosc liczb ',a,' i ',b,' to ',n:0);
    	readln;
    end.
Program obliczający silnię podanej liczby.[edytuj]
uses crt;
var a:byte;
	function silnia(n:byte):longint;
		begin
		if n=0 then silnia:=1
		else silnia:=silnia(n-1)*n;
		end;
	begin
		clrscr;
		write('Podaj liczbe: ');
		readln(a);
		silnia(a);
		write('Silnia tej liczby to ',silnia(a));
		readln;
	end.