М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
блашер
блашер
24.10.2021 21:24 •  Информатика

Program nissannn;
Uses crt,GraphABC;
Const
w=800;
h=600;
x0=50; y0=500;
k=8;
t:array [1..k] of integer = (0,0,1,2,67,62,27,14);
c:array [1..k] of colortype= (ClRed,ClBlue,ClGreen,ClPink,ClPurple,ClNavy,ClAqua,ClYellow);
planet: array [1..k] of string = ('Меркурий','Венера','Земля','Марс','Юпитер','Сатурн','Уран','Нептун');
var x1,y1,x2,y2: integer;
kx,ky: integer;
i,x,y,max: integer;
Begin
SetWindowSize(w,h);
SetFoneSize(18);
SetFoneStyle (fsBold);
TextOut (180,20,'Количество спутиков планет Солнечной системы');
SetFoneSize(12);
SetFoneStyle (fsNormal);
max:=t[1];
For i:=2 to k do
begin
if t[i]>max then max:=t[i];
end;
ky:=trunc(y0/(max+1));
kx:=trunc((WindowWidht-x0)-k);
Line (0,y0,w,y0);
Line (x0,0,x0,h);
TextOut(w div 1 - 8,y0+8,'Планеты');
TextOut (x0 +10,20,'Количество спутников');
i:=x0; x:=1;
While x<=k do
begin
Line (i,y0-8,i,y0+8);
i:=i+kx;
TextOut (trunc(i-(kx div 1)),y0+10, planet [x]);
x:=x+1;
end;
i:=y0; x:=0;
While x<=max do
begin
Line (x0-8,i,x0+8,i);
TextOut (x0-25,i, IntTostr (x));
i:=i-ky;
x:=x+1;
end;
x1:=x0; y1:=y0;
x:=1;
While x<=k do
begin
y:=t [x];
x2:= x1+kx;
y2:= trunc (y1-ky*y);
SetBrushColor (c[x]);
Rectangle (x1,y1,x2,y2);
x1:=x2;
x:=x+1;
end;
SaveWindow ('Diagramm1.bmp');
end.

👇
Ответ:
бекзат2008
бекзат2008
24.10.2021

Объяснение:

uses GraphABC;

const

 Path = 'C:\Ilya\AlgoРитмы\Sankt-Peterburg.txt';

 DisplacementX = 10;

 DisplacementY = -10;

begin

 SetWindowIsFixedSize(true);

 

 var H := Window.Height;

 

 var A := ReadAllText(Path).Replace(',', '.').ToReals();

 var StepX := Window.Width / (A.Count - 1);

 var Min := Abs(A.Min);

 var Max := A.Max() + Min;

 var B := A.Select((x, i) -> (x, Round(StepX * i), Round(H - (A[i] + Min) / Max * H))).ToList();

 

 for var i := 0 to B.Count - 2 do

 begin

   var c := Round(255 - (B[i].Item3 + B[i].Item3) * 0.5 / H * 255);

   SetPenColor(RGB(0, c, c));

   SetBrushColor(RGB(0, c, c));

   Polygon(Arr(new Point(B[i].Item2, H), new Point(B[i].Item2, B[i].Item3),

               new Point(B[i + 1].Item2, B[i + 1].Item3), new Point(B[i + 1].Item2, H)));

 end;

 SetFontColor(clBlack);

 SetBrushColor(ARGB(200, 255, 255, 255));

 for var i := 0 to B.Count - 1 do

   TextOut(B[i].Item2 + DisplacementX, B[i].Item3 + DisplacementY, FloatToStr(B[i].Item1));

end.

Круговая диаграмма

Комментарии к коду  [показать]

uses GraphABC;

const

 N = 5;

 R = 150;

 K = 0.7;

var

 A: array of integer;

 Angle: real;

begin

 SetWindowIsFixedSize(true);

 SetWindowSize(500, 500);

 var W := Window.Width div 2;

 var H := Window.Height div 2;

 

 SetLength(A, N);

 for var i := 0 to N - 1 do

   Readln(A[i]);

 

 var Sum := A.Sum();

 

 SetPenWidth(2);

 var R2 := R * K;

 for var i := 0 to N - 1 do

 begin

   var ang := Round(A[i] / Sum * 360);

   SetBrushColor(clRandom());

   Pie(W, H, R, Round(Angle), Round(Angle - ang));

   var ang2 := DegToRad(360 - Angle + ang / 2);

   SetBrushColor(clWhite);

   TextOut(Round(W + R2 * Cos(ang2)), Round(H + R2 * Sin(ang2)), Format('{0} [~{1}%]', A[i], Round(A[i] / Sum * 100)));

   Angle -= ang;

 end;

4,6(84 оценок)
Открыть все ответы
Ответ:
Grelil55
Grelil55
24.10.2021

var

a,b,c,ostatok:integer;

cr:real;

begin

a:=5;

b:=3;

//Если использовать не целочисленного деление,

//то будет 1.666666666...

cr:=a / b;

 writeln ('При нецелочисленном делении c=',cr);

//Если использовать целочисленного деление,

//то будет 1

c:=a div b;

writeln ('При целочисленном делении c=',c);

//Проверим остаток при целочисленном делении арифметический

ostatok := a-c*b;

writeln ('При делении ',a,' на ',b,' остаток = ',ostatok);

//Проверим остаток при целочисленном делении с операции mod

ostatok := a mod b;

writeln ('При делении ',a,' на ',b,' остаток = ',ostatok);

end.

Объяснение:


Напишите программу информатика (75 )! определить, верно ли, что при делении натурального числа a на
4,8(18 оценок)
Ответ:
Lolololololololol4
Lolololololololol4
24.10.2021

#include "pch.h"

#include

#include

using namespace std;

double f(double x)

{

double m = -7 * pow(x, 3) - 5.8*x - 4;

return m;

}

int main()

{

double a = -1; double b = 2;

flag1:

double c = 0.5*(a + b);

if (f(c) == 0)

cout << "The result is " << c << endl;

if (f(c)*f(a) < 0)

{

b = c;

goto flag1;

}

if (f(c)*f(b) < 0)

{

a = c;

goto flag1;

}

if (c >= a && c <= b)

cout << "The solution belongs to the interval" << endl;

else

cout << "The solution doesn't belongs to the interval";

return 0;

}

Тут с флагами. Если не нравятся флаги - перестройте под себя.

4,4(66 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ