Pascal(Буяк)

 Треугольники. 

program Illuminati;
uses graphABC;
begin
SetWindowSize(600,600);
moveto(100,100);
setpencolor(clYellow);
SetPenWidth(5);
lineto(150,10);
lineto(200,100);
lineto(100,100);
FloodFill(150,50,clgreen);
TextOut(110,120,'Равносторонний');
moveto(400,20);
setpencolor(clred);
SetPenWidth(2);
lineto(400,100);
lineto(450,100);
lineto(400,20);
Floodfill(425,65,clbrown);
TextOut(380,120,'Прямоугольный');
moveto(100,300);
setPenWidth(3);
setpencolor(clTeal);
lineto(150,200);
lineto(200,250);
lineto(100,300);
Floodfill(150,250,clblue);
TextOut(100,320,'Разносторонний');
moveto(400,300);
setpencolor(clLime);
lineto(500,300);
lineto(300,250);
lineto(400,300);
Floodfill(400,290,clMoneyGreen);
TextOut(400,320,'Тупоугольный');
moveto(150,400);
setpencolor(clSilver);
lineto(180,490);
lineto(120,490);
lineto(150,400);
FloodFill(160,460,clFuchsia);
TextOut(100,500,'Равнобедренный');
moveto(400,400);
setpencolor(clMaroon);
lineto(335,480);
lineto(450,480);
lineto(400,400);
TextOut(350,500,'Остроугольный');
Floodfill(400,450,clyellow);
end.

Многоугольники.

program Kubach;
uses graphABC;
begin
SetWindowSize(600,600);
moveto(100,100);
SetPenWidth(5);
setpencolor(clsilver);
rectangle(100,100,200,200);
FloodFill(150,150,clred);
TextOut(130,210,'Квадрат');
SetPenWIdth(4);
setpencolor(clLime);
rectangle(300,150,400,200);
FloodFill(350,180,clPurple);
TextOut(300,205,'Прямоугольник');
Moveto(250,300);
setPenWidth(3);
setpencolor(clOlive);
lineto(380,300);
lineto(340,380);
lineto(300,380);
lineto(250,300);
TextOut(290,400,'Трапеция');
floodfill(350,350,clteal);
setpencolor(clblack);
moveto(500,100);
lineto(480,150);
lineto(500,200);
lineto(520,150);
lineto(500,100);
floodfill(500,120,clmoneygreen);
TextOut(485,210,'Ромб');
setpencolor(clnavy);
moveto(100,300);
lineto(70,350);
lineto(150,350);
lineto(180,300);
lineto(100,300);
FloodFill(150,320,clSkyBlue);
Textout(70,365,'Параллелограм');
setpencolor(clMaroon);
moveto(450,300);
lineto(540,300);
lineto(590,350);
lineto(450,350);
lineto(450,300);
FloodFill(500,320,clyellow);
TextOut(450,360,'Прямая трапеция');
end.

Объёмные фигуры

1.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

Rectangle(30,60,150,180);

line(30,60,60,30);

line(60,30,180,30);

line(180,30,150,60);

line(180,30,180,150);

line(180,150,150,180);

SetPenStyle(psDash);

line(60,30,60,150);

line(60,150,180,150);

line(60,150,30,180);

FloodFill(80,40,clYellow);

FloodFill(80,80,clYellow);

FloodFill(160,60,clYellow);

FloodFill(80,170,clYellow);

FloodFill(160,160,clYellow);

FloodFill(50,50,clYellow);

FloodFill(50,100,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(50,200,'куб');

end.

2.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

Rectangle(30,60,150,250);

line(30,60,60,30);

line(60,30,180,30);

line(180,30,150,60);

line(180,30,180,220);

line(180,220,150,250);

SetPenStyle(psDash);

line(60,30,60,220);

line(60,220,180,220);

line(60,220,30,250);

FloodFill(80,40,clRed);

FloodFill(80,80,clRed);

FloodFill(160,60,clRed);

FloodFill(80,170,clRed);

FloodFill(160,160,clRed);

FloodFill(50,50,clRed);

FloodFill(50,100,clRed);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(50,280,'Четырёхугольная правильная призма');

end.

3.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

line(60,30,180,30);

line(180,30,120,60);

line(120,60,60,30);

line(120,60,120,220);

line(120,220,60,190);

line(60,190,60,30);

line(180,30,180,190);

line(180,190,120,220);

SetPenStyle(psDash);

line(180,190,60,190);

FloodFill(70,40,clYellow);

FloodFill(120,40,clYellow);

FloodFill(150,100,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(20,250,'Треугольная правильная призма');

end.

4.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

Rectangle(30,60,250,120);

line(30,60,60,30);

line(60,30,280,30);

line(280,30,250,60);

line(280,30,280,90);

line(280,90,250,120);

SetPenStyle(psDash);

line(60,30,60,90);

line(60,90,30,120);

line(60,90,280,90);

FloodFill(210,50,clYellow);

FloodFill(120,70,clYellow);

FloodFill(270,50,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(20,130,'Прямой параллелепипед');

end.

5.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

line(60,60,280,60);

line(280,60,250,120);

line(250,120,30,120);

line(30,120,60,60);

line(60,60,90,30);

line(90,30,310,30);

line(310,30,280,60);

line(310,30,280,90);

line(280,90,250,120);

SetPenStyle(psDash);

line(90,30,60,90);

line(60,90,30,120);

line(60,90,280,90);

FloodFill(210,50,clRed);

FloodFill(100,80,clRed);

FloodFill(290,60,clRed);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(20,130,'Прямой параллелепипед');

end.

6.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

line(30,250,200,250);

line(200,250,250,200);

line(250,200,160,30);

line(160,30,30,250);

line(160,30,200,250);

SetPenStyle(psDash);

line(250,200,80,200);

line(160,30,80,200);

line(80,200,30,250);

line(80,200,30,250);

FloodFill(100,190,clYellow);

FloodFill(220,190,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(20,280,'Четырёхугольная пирамида');

end.

8.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

line(120,100,120,220);

line(120,220,60,190);

line(60,190,120,100);

line(120,100,180,190);

line(180,190,120,220);

SetPenStyle(psDash);

line(180,190,60,190);

FloodFill(110,190,clYellow);

FloodFill(140,180,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(20,250,'Треугольная пирамида');

end.

9.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

Ellipse(300,200,100,250);

line(300,220,200,60);

line(200,60,100,220);

FloodFill(200,80,clYellow);

FloodFill(200,210,clYellow);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(100,280,'Конус');

end.

10.program cht1;

uses GraphABC;

begin

SetWindowSize(500,500);

ClearWindow;

SetPenWidth(3);

SetPenColor(clPurple);

Ellipse(300,100,100,150);

Ellipse(300,300,100,350);

line(300,125,300,325);

line(100,125,100,325);

FloodFill(200,120,clRed);

FloodFill(200,210,clRed);

FloodFill(200,340,clRed);

SetFontSize(20);

SetFontColor(clBlue);

TextOut(100,30,'Цилиндр');

end.

3.Построить график функций:

А) y = 0.5x*cos x, на промежутке [-12; 12];

uses crt, GraphABC;

var  x0, y0, x1, y1, k: integer; x, y: real;

begin

SetWindowSize (640, 400);

x0:= 320; y0:= 200; k:= 20;

line (20, y0, 620, y0); {Îñü àáöèññ}

line (x0, 20, x0, 380); {Îñü îðäèíàò}

SetPenColor (clRed); {Öâåò ïåðà}

x:= -12; {Íà÷àëüíîå çíà÷åíèå àðãóìåíòà}

While x<= 12 do

begin

y:= 0.5*x*cos(x); {Ôóíêöèÿ}

x1:= trunc (x0 + x * k); {Ýêðàííûå êîîðäèíàòû}

y1:= trunc (y0 + y * k);

circle (x1, y1, 2);

x:= x + 0.02;

end;

end.

Б) y = sinx*cos 2x, на промежутке [-15; 15].

uses crt, GraphABC;

var  x0, y0, x1, y1, k: integer; x, y: real;

begin

SetWindowSize (640, 400);

x0:= 320; y0:= 200; k:= 20;

line (20, y0, 620, y0); {Îñü àáöèññ}

line (x0, 20, x0, 380); {Îñü îðäèíàò}

SetPenColor (clRed); {Öâåò ïåðà}

x:= -15; {Íà÷àëüíîå çíà÷åíèå àðãóìåíòà}

While x<= 15 do

begin

y:= sin(x)*cos(2*x); {Ôóíêöèÿ}

x1:= trunc (x0 + x * k); {Ýêðàííûå êîîðäèíàòû}

y1:= trunc (y0 + y * k);

circle (x1, y1, 2);

x:= x + 0.02;

end;

end.

Объёмные фигуры.

конспект

 1. Составьте программу, которая загружает из файлов и выводит на экран портреты ученых в следующем виде с подписями (внизу):

uses GraphABC;

var pic : integer;

begin

SetWindowSize (640, 520);

ClearWindow (clBlack);

SetBrushColor (clSkyBlue);

pic := LoadPicture ('1000420_O094.jpg');

DrawPicture (pic, 100, 310, 100, 150);

TextOut(150,470,'Бор');

 pic:= LoadPicture ('Xge7que7qu.jpg');

DrawPicture (pic, 200, 163, 100, 150);

TextOut(220,315,'Эйнштейн');

 pic:= LoadPicture ('250px-Galileo.arp.300pix.jpg');

  DrawPicture (pic, 300, 290, 100, 150);

  TextOut(320,450,'Галелео');

  pic:= LoadPicture ('images.jpg');

 DrawPicture (pic, 100,15 , 100, 150);

  TextOut(130,170,'Леонардо');

  pic:= LoadPicture ('Isaac_Newton_Biography.jpg');

  DrawPicture (pic, 300,35 , 100, 150);

  TextOut(320,190,'Ньютон');

end.

2.Составить программу, которая демонстрирует падение яблока с башни под углом.
uses GraphABC;
var  fon, avto, x, y, w, h: integer;
begin
SetWindowSize (900, 600);
fon:= LoadPicture ('TOWER.JPG');
avto:= LoadPicture('APPLE.GIF');
SetPictureTransparent (avto, true);
x:=200; y:= 0; w:= 200; h:= 60;
While x< 700 do
begin
ClearWindow; DrawPicture (fon, 0, 0);
DrawPicture (avto, x, y, w, h);
x:= x + 10; y:=y+4; w:= w+4; h:= h+3;
sleep(20);
 Redraw;
end;
end.

4. Составить программу, которая строит круговую диаграмму, иллюстрирующая:

А) распределение результатов тестирования по трем предметам (данные вводятся с клавиатуры);

program u1;
uses crt, GraphABC;
 const D: array [1..3] of string = ('Русский язык', 'Обществоведение', 'Немецкий язык');
var a,b,c,a1,b1,c1,S:integer;
begin 
   SetWindowsize (640,400);

   write('ВВедите результат первого теста: '); readln(b);

write('ВВедите результат второго теста: '); readln(a);
   write('ВВедите результат третьего теста: '); readln(c);

   SetBrushColor(clGreen);

S:=a+b+c;
   a1:=round(a*360/S);
   SetBrushColor(clRed);
   Pie(220,240,140,0,a1);
   b1:=a1+round(a*360/S);
   SetBrushColor(clBlue);
   Pie(220,240,140,a1,b1);
   c1:=b1+round(a*360/S);
   
SetBrushColor(clGreen);
   Pie(220,240,140,b1,c1);



  end.

Б) химический состав земной кары: кислород – 47,2%, кремний – 27,6%, алюминий – 8,3%, железо – 5,1%, кальций – 3,6%, другие элементы- 8,2%.

uses crt, GraphABC;

const A: array [1..6] of real = (47.2,27.6,8.3,5.1,3.6,8.2  );

B: array [1..6] of string = ('Êèñëîðîä', 'Êðåìíèé', 'Àëþìèíèé', 'Æåëåçî ', 'Êàëüöèé','Äðóãèå ýëåìåíòû');

var s:real;

var u, u0, i: integer;

begin

SetWindowSize (400, 400);

s:= 0;  u0:= 0;

for i:= 1 to 6 do S:= S + A [ I ];{Âû÷èñëåíèå ñóììàðíîé ïëîùàäè ïîñåâîâ}

for i:= 1 to 6 do

begin

Writeln (B [ i ], ' ', A [ i ], '%', round (100 * A [ i ] / S ), '\\' );

SetBrushColor (rgb (random (255), random (255), random (255)));

u:= u0 + round(A[ i] * 360 / S); {Âû÷èñëåíèå êîðè÷íåâîãî óãëà ñåêòîðà}

Pie (220, 240, 140, u0, u); {Ðèñîâàíèå ñåêòîðà}

u0:= u; {Íîâîå çíà÷åíèå íà÷àëüíîãî óãëà ñëåäóþùåãî ñåêòîðà}

end;

end.

1. Составьте программу, которая загружает из файла и выводит на экран изображение одной из планет Солнечной планеты на фоне звёздного неба.

program dhh;

uses crt,GraphABC;

var fon,pic:integer;

begin

SetWindowSize(170,150);

fon:=LoadPicture('SKY.GIF');

DrawPicture(fon,0,0);

pic:=LoadPicture('luna3.GIF');

DrawPicture(pic,30,30,100,100);

end.

2.Составьте программу, которая демонстрирует: 

 а)прямолинейное движение спутника на фоне звёздного неба:

program ypr8;

uses crt,GraphABC;

var fon,pic,din,x:integer;

begin

SetWindowSize(170,150);

fon :=LoadPicture('SKY.GIF');

pic :=LoadPicture('earth.gif');

din :=loadPicture('Sputnik.jpg');

x:=0;

while x<50 do

begin

ClearWindow;

DrawPicture(fon,0,0);

DrawPicture(pic,0,50,400,200);

DrawPicture(din,x,20,20,20);

x:=x+1;

sleep(10);

end;

end.

б)движение планеты вокруг Солнца по круговым орбитам:

program ypr8;

uses crt,GraphABC;

var fon,pic,din1,din2,x0,y0,x,y,u,R:integer;

begin

SetWindowSize(170,150);

fon :=LoadPicture('SKY.GIF');

pic :=LoadPicture('images.jpg');

din1 :=LoadPicture('earth.gif');

din2:=LoadPicture ('images (1).jpg');

x0:=75;y0:=55;

R:=50; u:=1;

while u<=360 do

begin

ClearWindow;

DrawPicture(fon,0,0);

DrawPicture(pic,70,60,30,30);

x:=round(x0+R*cos(pi*u/180));

y:=round(y0-R*sin(pi*u/180));

DrawPicture(din1,x,y,10,10);

x:=round(x0+R*0.8*cos(pi*u/180));

y:=round(y0-R*0.8*sin(pi*u/180));

DrawPicture(din2,y,x,10,10);

u:=u+1;

sleep(10);

Redraw;

end;

end.

География

Составьте программу которая:

а)выводит карту Беларуси и обозначает национальные парки и заповедники квадртами ,размеры которых пропорциональны площади парка:Беловежская пуща,Нарочанский, Брославские озёра,Припятский,Березинский биосферный заповедник,Полесский государственный радиационно-экологический заповедник.

Program Geograf1;

Uses GraphAbc;

Var karta, A : integer;

Begin

setWindowSize(520,480);

karta := LoadPicture('belarus.gif'); DrawPicture(karta,10,10);

setBrushColor(clBlue); {Задание цвета кисти. Рисование кружков}

rectangle(60,320,75,335); { Беловежская пуща }

rectangle(190,130,205,145); { Нарочанский }

rectangle(210,50,225,65); { Браславские озера}

rectangle(250,370,265,385); { Припятский }

rectangle(270,140,285,155); { Березинский биосферный заповедник }

rectangle(360,395,375,410); { Полесский государственный радиационно-экологический заповедник }

End.

Астрономия

1. Составить программу, которая загружает из файла и выводит на экран изображение одной из планет Солнечной системы на фоне звёздного неба. 

program dhh;

uses crt,GraphABC;

var nebo,planeta:integer;

begin

SetWindowSize(700,600);

nebo:=LoadPicture('nebo.jpg');

DrawPicture(nebo,0,0);

planeta:=LoadPicture('planeta.jpg');

SetPictureTransparent (planeta, true);

DrawPicture(planeta,200,60,300,240);

end.

2. Составьте программу, которая демонстрирует:

а) прямолинейное движение спутника на фоне звездного неба и Земли;

program dhh;

uses crt,GraphABC;

var nebo,zeml,spt,x:integer;

  begin

   SetWindowSize(500,400);

   nebo:=LoadPicture('nebo.jpg');

   zeml:=LoadPicture('zeml.jpg');

    SetPictureTransparent (zeml, true);

   spt:=LoadPicture('sputnik.jpg');

   SetPictureTransparent (spt, true);

   x:=0;

   while x<400 do

   begin

   ClearWindow;

   DrawPicture(nebo,0,0);

   SetPictureTransparent (zeml, true);

   DrawPicture(zeml,0,100,500,400);

   DrawPicture(spt,x,40,50,40);

   x:=x+1;

   sleep(20);

   Redraw;

   end;

end.

Биология

1. program ghfy ;

  var N,P,i,t,u0:integer; u:real;

  begin

  write('Введите уровень загрязнения воды');

  readln(u0);

  write('Введите значение уменьшения загрязнения воды '); readln(P);

  write ('Введите кооффициент уменьшения загрязнения воды'); readln(N);

  t:=0; u:=u0;

  while u>=u0 div N do

  begin

  u:=u-u*p/100;

  t:=t+1;

  end;

  write('Через',t,'дней');

  end.

2.program ghfy;

   var k0:integer; k,t:real;

   begin

  write('Введите количество атомов радиоактивного изотопа Йод-131');

  readln(k0);

  t:=0; k:=k0;

  while k>=k0 div 100 do

  begin

  k:=k/2;t:=t+8.14;

  end;

  write('Через',t,'дней');

  end.

3.program ghfy;

var t:integer ;

k:real;

begin

t:=0;

k:=50;

while k >=12 do

begin

k:=k-k*20/100;

t:=t+1;

end;

write('Через',t,'дней');

end.

Физика

1.uses crt, GraphABC;

var pic,R:integer;

begin

SetWindowSize (600,500);

 write('Введите расстояние от предмета до зеркала (5-100):');

 readln(R);

pic:=LoadPicture('robotA.jpg');

SetPenColor(clYellow);

 SetPenWidth(5);

 line(320,50,320,400);

line(50,400,590,400);

DrawPicture(pic,320-R,100,200,290);

DrawPicture(pic,320-R,100,-200,290);

  SetPenColor(clblue);

  SetPenWidth(2);

   line(trunc(120+R/2),100,trunc(520-R/2),100);

  end.

2.uses crt, GraphABC;
var u,x,y:integer;
begin
SetWindowSize (400,400);
write('Введите угол падения луча(0-90):');
readln(u);
SetPenColor(clBlue);
SetPenWidth(4);
line(150,50,150,350);
SetPenColor(clGray);
line(0,200,300,200);
FloodFill(50,250,clWhite);
SetPenColor(clRed);
x:=abs(round(150*sin(pi/180*(180-u))));
y:=abs(round(150*cos(pi/180*(180-u))));
line(150,200,150-x,200-y);
x:=round(150*sin(pi/180*u));
y:=round( 150*cos(pi/180*u));
line(150,200,150+x,200-y);
SetPenColor(clyellow);
x:=abs(round(150*sin(pi/180*(270+u))));
y:=abs(round(150*cos(pi/180*(270+u))));
line(150,200,150+ x,200+y);
end.