Program za crtanje grafika funkcije sin(x). Sa malim izmenama moze se koristiti i za ostale funkcije.
******************************************************************************************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    
    procedure CrtajGrafik;
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tacke: array [0..144] of TPoint;
implementation

{$R *.dfm}


procedure TForm1.CrtajGrafik;
var
xOpsegPiksela, yOpsegPiksela: Integer;
KoPocetak: TPoint;
radian, interval: Real;
i: Integer;
begin
        xOpsegPiksela := (paintbox1.Width - 2) div 4;
        yOpsegPiksela := (paintbox1.Height - 2) div 2;
        KoPocetak:= Point(paintbox1.Width div 2, paintbox1.Height div 2);
        radian:= (-2.0) * Pi;
        interval:= (4.0) * Pi / 144.0;
        for i := 0 to High(Tacke) do
        begin
          Tacke[i].X := KoPocetak.x + Round(radian * xOpsegPiksela /Pi);
          Tacke[i].Y := KoPocetak.y - Round(sin(radian) * yOpsegPiksela);
          radian:= radian + interval;
        end;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
KoPocetak: TPoint;
begin
     with PaintBox1.Canvas do
      begin
        Brush.Color := clBtnFace;
        Brush.Style := bsSolid;
        Fillrect(paintbox1.BoundsRect);
        KoPocetak := Point(paintbox1.Width div 2, paintbox1.Height div 2);
        Pen.Color := clBlack;
        Pen.Style := psSolid;
        Pen.Width := 1;
        MoveTo(1, KoPocetak.Y);
        LineTo(paintbox1.Width - 1, KoPocetak.y);
        MoveTo(KoPocetak.x, 1);
        LineTo(KoPocetak.x, paintbox1.Height - 1);
        Pen.Color := clBlue;
        Polyline(Tacke); //crta sinus
       end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
 CrtajGrafik;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 CrtajGrafik;
 PaintBox1.Repaint;
end;
end.

Program za kviz kao konzolna aplikacija iz dva dela.
****************************************************

Program unos;
var
   F:file of string;
   p:string;
   brp,i:integer;
   j:char;
 begin
  i:=0;
  write('Unesi broj pitanja --> ');
  readln(brp);
  Assign(F,'pit1.dat');
  Rewrite(F);
  repeat
   i:=i+1;
   writeln('Unesi pitanje broj (',i,')');
   readln(p);
   write(F,p);
   for j:='a' to 'd' do
    begin
     writeln('Unesi odgovor pod (',j,')');
     readln(p);
     write(F,p);
    end;
    writeln('Unesi resenje za pitanje broj (',i,')');
    readln(p);
    write(F,p);
  until i=brp;
  Close(F)
 end.




program Kviz;
type igrac=record
      ime:string[12];
      poeni:integer;
     end;
var
  ime:string[12];
  F:file of string;
  G:Text;
  Pitanje,o1,o2,o3,o4,res:string;
  Player:igrac;
  Po:string;
  odgovor:Boolean;
 begin
  Write('Unesi ime igraca   ');
  Readln(Player.ime); Player.poeni:=0;
  odgovor:=true;
  Writeln('Unesi naziv datoteke sa pitanjima');
  Readln(ime);
  Assign(F,ime+'.dat');
  Assign(G,ime+'.rez');
  Reset(F);
 repeat
  read(F,Pitanje); writeln(Pitanje);
  read(F,o1);      writeln(o1);
  read(F,o2);      writeln(o2);
  read(F,o3);      writeln(o3);
  read(F,o4);      writeln(o4);
  read(F,res);
  writeln('Tacan odgovor je pod');
  readln(Po);
  if Po<>res then odgovor:=false
             else Player.poeni:=Player.poeni+5;
 until (not(odgovor)) or eof(F);
  Rewrite(G);      {upis rezultata u datoteku zad**.res}
  Write(G,Player.ime);
  Write(G,' ');
  Write(G,Player.poeni);
  Close(G)
 end.