informatyka, program

Nasza ocena:

5
Pobrań: 7
Wyświetleń: 1505
Komentarze: 0
Notatek.pl

Pobierz ten dokument za darmo

Podgląd dokumentu
informatyka, program  - strona 1 informatyka, program  - strona 2 informatyka, program  - strona 3

Fragment notatki:


#include #pragma hdrstop #include "Unit1.h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner)         : TForm(Owner) {     TCanvas *p=Image1-Canvas;     int i;     int R=200;     int a;     int Xs,Ys;     int Xk1,Yk1,Xk2,Yk2,Xk3,Yk3,Xk4,Yk4;     Xs=Image1-Width/2;     Ys=Image1-Height/2;     p-Ellipse(Xs-R,Ys-R,Xs+R,Ys+R);     a=R/pow(2,0.5);     p-Rectangle(Xs-a,Ys-a,Xs+a,Ys+a);     Xk1=Xs;     Yk1=Ys;     Xk2=Xs;     Yk2=Ys;     Xk3=Xs;     Yk3=Ys;     Xk4=Xs;     Yk4=Ys;     for (i=1;iEllipse(Xk1-R,Yk1-R,Xk1+R,Yk1+R);         p-Rectangle(Xk1-a,Yk1-a,Xk1+a,Yk1+a);         p-Ellipse(Xk2-R,Yk2-R,Xk2+R,Yk2+R);         p-Rectangle(Xk2-a,Yk2-a,Xk2+a,Yk2+a);         p-Ellipse(Xk3-R,Yk3-R,Xk3+R,Yk3+R);         p-Rectangle(Xk3-a,Yk3-a,Xk3+a,Yk3+a);         p-Ellipse(Xk4-R,Yk4-R,Xk4+R,Yk4+R);         p-Rectangle(Xk4-a,Yk4-a,Xk4+a,Yk4+a);         } }
#include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner)         : TForm(Owner) {     TCanvas *p=Image1-Canvas;     int R=50;     int i,j;     int a;     int Xk,Yk;     Yk=0;     a=R*pow(2,0.5)-R-5;     for (i=0;iEllipse(Xk-R,Yk-R,Xk+R,Yk+R);             }         }     Yk=R;     for (i=0;i ... zobacz całą notatkę

Komentarze użytkowników (0)

Zaloguj się, aby dodać komentarz