Informatyka T Ciszewski Kolokwium 2 zestaw 8


Zstaw 8

Zadanie 1

procedure TForm1.Button1Click(Sender: TObject);

var i,n:integer;

suma:real;

begin

n:=StrToIntDef(Edit1.Text,1);

Edit1.Text:=IntToStr(n);

for i := 1 to n do suma:=suma+(1)/(i*i);

Label3.Caption:=FloatToStrF(suma,ffNumber,4,2);

end;

end.

Zadanie 2

procedure TForm1.FormShow(Sender: TObject);

var n: integer;

Sn,Sn2: double;

f:textFile;

begin

n:=20;

AssignFile(f,'C:\Rezultaty\wyniki.txt');

Rewrite(f);

repeat

Sn := (1)/(n*n) ;

Sn2 :=Abs( n - Sqr((PI/4)));

Writeln(f,IntToStr(n) + ' ' + FloatToStr(Sn)+ ' ' + FloatToStr(Sn2));

n := n+20;

until n > 2000;

CloseFile(f);

end;

end.

Zadanie 3

Zadanie 4

Zadanie 5

Zadanie 6

procedure TForm1.FormResize(Sender: TObject);

begin

Canvas.Brush.Color := clWhite;

Canvas.Brush.Style := bsSolid;

Canvas.Rectangle(0,0,form1.ClientWidth,form1.ClientHeight);

// rysowanie kwadratów

Canvas.Pen.Color := clRed; //kolor

Canvas.Brush.Style:=bsCross;

Canvas.Brush.Color := clNavy;

Canvas.Rectangle(0,0,200,100);

Canvas.Brush.Style:=bsCross;

Canvas.Brush.Color := clNavy;

Canvas.Rectangle(200,100,400,200);

end;



Wyszukiwarka

Podobne podstrony:
Informatyka T Ciszewski Kolokwium 2 zestaw6
Informatyka T Ciszewski Kolokwium 2 zestaw 2
Informatyka T Ciszewski Kolokwium 2 zestaw 1
Kolokwium zestaw przykladowy
Informacja Naukowa kolokwium
Kolokwium 1 zestaw 2D
kolokwium zestaw C
Informacje dotyczące kolokwium nr 2 ze statystyki
kolokwium zestaw B
Kolokwium 4 zestaw 3
kolokwium zestaw D
Kolokwium 4 zestaw 4
Kolokwium 4 zestaw 3
kolokwium-zestawy-pytań-i-odpowiedzi-2, Politechnika Śląska MT MiBM, Semestr III, Języki programowan
Kolokwium 4 zestaw 2
kolokwium I zestaw b
Kolokwium 1 zestaw 2C

więcej podobnych podstron