Составить программу которая выводит на экран олимпийские кольца паскаль

• Алгебра
• Математика
• Русский язык
• Українська мова
• Информатика
• Геометрия
• Химия
• Физика
• Экономика
• Право
• Английский язык
• География
• Биология
• Другие предметы
• Обществознание
• История
• Литература
• Українська література
• Беларуская мова
• Қазақ тiлi

Показать ещё

Программа для вычисления площади кольца с использованием подпрограммы / Pascal ABC

Источник: www.shkolniku.com

Составить программу которая выводит на экран олимпийские кольца паскаль

March 2022 1 24 Report

Составить программу паскаль, которая выводит на экран олимпийские кольца.
Срочно, заранее большое спасибо)

Answers
var
gd, gm, xc, yc, r, x, y: integer;

begin
clrscr;
repeat
writeln(‘Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:’);
readln(xc, yc);
until((xc >= 50) and (xc = 50) and (yc

gd := 0;
initgraph(gd, gm, »);
setbkcolor(15);
cleardevice;

r := 50;
setlinestyle(0, 0, 3);
setcolor(9);
circle(xc, yc, r);
setcolor(8);
circle(xc + 2 * r, yc, r);
setcolor(12);
circle(xc + 4 * r, yc, r);
setcolor(14);
circle(xc + r, yc + r, r);
setcolor(10);
circle(xc + 3 * r, yc + r, r);
readln
end.

Источник: scholar.tips

Pascal Полный курс с нуля за 4 часа

Елена Козлова

Program grey_1;
uses GraphABC;
begin
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clblack);
SetPenWidth(5);
Line(100,125,560,125);
Line(100,125,100,585);
Line(100,585,560,585);
Line(560,585,560,125);
floodfill (150,300,clblue);

end.

Прямоугольник
Program grey_2;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clgreen);
SetPenWidth(5);

Line(100,125,570,125);
Line(100,125,100,400);
Line(100,400,570,400);
Line(570,400,570,125);
floodfill (150,300,clred);

Program grey_3;
uses GraphABC;
begin
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clyellow);
SetPenWidth(5);
Line(225,125,340,125);
Line(225,125,170,300);
Line(170,300,285,300);
Line(285,300,340,125);
floodfill (230,200,clgray);
end.
Ромб

Program grey_4;
uses GraphABC;
begin
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clred);
SetPenWidth(5);
Line(225,125,180,300);
Line(225,125,270,300);
Line(270,300,225,475);
Line(180,300,225,475);
floodfill (200,300, clpurple);

end.

Program grey_5;
uses GraphABC;
begin

SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clgreen);
SetPenWidth(5);
Line(225,125,500,125);
Line(225,125,100,300);
Line(100,300,625,300);
Line(625,300,500,125);
floodfill (500,250, clblack);

end.

Прямоугольная трапеция

Program grey_6;
uses GraphABC;
SetWindowWidth(800);
SetWindowHeight(800);
SetPenColor (clbrown);
SetPenWidth(5);
Line(225,125,600,125);
Line(225,125,225,400);
Line(225,400,750,400);
Line(750,400,600,125);
floodfill (500,250, clblue);

Равнобедренная трапеция

Program grey_7;
uses GraphABC;
SetWindowWidth(750);
SetWindowHeight(700);
SetPenColor (clskyblue);
SetPenWidth(5);

Line(225,125,500,125);
Line(225,125,100,300);
Line(100,300,700,300);
Line(700,300,500,125);
floodfill (500,250, clred);
Треугольник

Program _1;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clred);
SetPenWidth(5);
Line(225,125,100,300);
Line(100,300,400,200);
Line(400,200,225,125);
floodfill (200,200, clblue);

Равносторонний треугольник

Program _2;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clblue);
SetPenWidth(5);
Line(225,175,150,300);
Line(150,300,300,300);

Line(300,300,225,175);
floodfill (225,280, clgreen);
Равнобедренный треугольник

Program _3;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clblack);
SetPenWidth(5);
Line(225,105,150,300);
Line(150,300,300,300);

Line(300,300,225,105);
floodfill (225,280, clyellow);
Прямоугольный треугольник

Program _4;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (cllime);
SetPenWidth(5);
Line(225,125,225,400);

Line(225,400,400,400);
Line(400,400,225,125);
floodfill (235,180, clyellow);
Тупоугольный треугольник

Program _5;
uses GraphABC;
SetWindowWidth(700);
SetWindowHeight(700);
SetPenColor (clgreen);
SetPenWidth(5);
Line(225,125,265,400);
Line(265,400,400,400);

Line(400,400,225,125);
floodfill (300,350, clskyblue);
Астрономия(остальные фигурки размещу позже:они у меня есть, но флешку мама забрала)

Program astronomija;
uses GraphABC;
Var earth, fon:integer;
Begin
SetWindowSize(800,800);
fon:=LoadPicture(‘SKY.GIF’);
DrawPicture(fon,0,0,800,800);
earth:=LoadPicture(‘earth.gif’);
DrawPicture(earth,180,150,500,500);
End.

2)Program astronomija;
Uses Crt, GraphABC;
Var a,b,c,x:integer;
Begin
SetWindowSize(1000,500);
a:=LoadPicture(‘SKY.GIF’);
b:=LoadPicture(‘earth.gif’);
c:=LoadPicture(‘Sputnik.jpg’);
SetPictureTransparent(c,true);
LockDrawing;
while x begin
inc(x,10);
DrawPicture(a,1,1,999,499);
DrawPicture(b,-150,250,1300,800);
DrawPicture(c,x,100,50,40);
redraw; sleep(20);
end;
End.
*движение планет вокруг Солнца по круговым орбитам.

program solnce;
uses crt,GraphABC;
var nebo,coln,zeml,pln,x0,y0,x,y,u,R:integer;
begin
SetWindowSize(250,250);
nebo:=LoadPicture(‘19595692.jpg’);
coln:=LoadPicture(‘polet-na-mars.jpg’);
zeml:=LoadPicture(‘zemljashar300 (1).jpg’);
pln:=LoadPicture (‘pluton.jpg’);
x0:=75;y0:=55;

R:=50; u:=1;
while u begin
ClearWindow;
DrawPicture(nebo,0,0);
DrawPicture(coln,70,60,30,30);
x:=round(x0+R*cos(pi*u/180));
y:=round(y0-R*sin(pi*u/180));
DrawPicture(zeml,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(pln,y,x,10,10);
u:=u+1;
sleep(10);
Redraw;
end;
end.

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

program n;
uses crt,GraphABC;
var nebo,planeta:integer;
begin
SetWindowSize(1000,600);
nebo:=LoadPicture(‘19595692.jpg’);
DrawPicture(nebo,10,10);
planeta:=LoadPicture(‘pluton.jpg’);
SetPictureTransparent (planeta, true);
DrawPicture(planeta,100,60,120,120);
planeta:=LoadPicture(‘polet-na-mars.jpg’);
SetPictureTransparent (planeta, true);
DrawPicture(planeta,400,300,100,100);
planeta:=LoadPicture(’73.jpg’);
SetPictureTransparent (planeta, true);
DrawPicture(planeta,500,50,120,100);
end.

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

program ooo;
uses crt,GraphABC;
var nebo,planeta,x,y,w,h :integer; k:real;
begin
SetWindowSize(1200,600);
nebo:=LoadPicture(‘19595692.jpg’);
DrawPicture(nebo,0,0);
planeta:=LoadPicture(‘pluton.jpg’);
SetPictureTransparent (planeta, true);
x:=0; y:=200;
w:=100; h:=100;
DrawPicture(planeta,x,y,w,h);

while w begin
w:=w+10; h:=h+10; x:=x-5; y:=y-5;
DrawPicture(planeta,x,y,w,h);
sleep(20);
Redraw;
end;

planeta:=LoadPicture(‘polet-na-mars.jpg’);
SetPictureTransparent (planeta, true);
x:=220; y:=200;
w:=150; h:=100;
DrawPicture(planeta,x,y,w,h);
while w begin
w:=w+10; h:=h+10; x:=x-5; y:=y-5;
DrawPicture(planeta,x,y,w,h);
sleep(20);
Redraw;
end;

planeta:=LoadPicture(’73.jpg’);
SetPictureTransparent (planeta, true);
x:=600; y:=100;
w:=100; h:=120;
DrawPicture(planeta,x,y,w,h);
while w begin
w:=w+10; h:=h+10; x:=x-5; y:=y-5;
DrawPicture(planeta,x,y,w,h);
sleep(20);
Redraw;
end;
end.
География

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

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

program z1;
uses crt, GraphAbc;
const a: array [1..6] of real=(87.5, 71.5, 85.8, 97.3, 85.2, 131.3);

a1: array [1..6] of string =(‘Беловежская пуща’, ‘Браславские озёра’, ‘Припятский парк’, ‘Нарочанский парк’,’Березенский биосферный заповедник’,’Полесский государственный радиационно-экологический заповедник’);

Источник: terrapuzik.blogspot.com