4 года назад

Помогите написать программу в паскаль.

Знания

Информатика

1 ответ:

wasd88 [90]4 года назад

0 0

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
Window.SetSize(550,500);
var c:=new GraphABCCoordinate;
c.SetMathematic;
c.OriginY:=500;
Pen.Color:=clBlack;
DrawPolygon(Arr((80,40),(240,280),(200,120)));
DrawPolygon(Arr((320,280),(480,40),(360,120)));
DrawPolygon(Arr((160,120),(240,440),(280,480),(320,440),(400,120)));
DrawPolygon(Arr((280,200),(240,240),(280,280),(320,240)));
DrawPolygon(Arr((280,320),(240,360),(280,400),(320,360)))
end.

Читайте также

Что такое папка верхнего уровня? Не могу понять

AleksBN

Файловая система это иерархическая структура. Следовательно, есть папки верхнего и нижнего уровня. Например Рабочий стол/Папка1/Папка2

Здесь видно что Папка2 лежит в Папке1 значит Папка2 нижняя, а Папка 1 верхняя, в свою очередь Рабочий стол по отношению к Папке1 верхняя папка, а Папка1 нижняя. Если все равно остались вопросы пишите в личку

0 0

4 года назад

Нужна помощь с информатикой. 35 баллов. 1. Определите значение переменной S после выполнения алгоритма: x:=340 y:=5 x:=x div y y

mig960 [7]

1)
var x,y,S:integer;
begin
x:=340;
y:=5;
x:=x div y;
y:=x mod y;
x:=x-5;
y:=y+3;
S:=x+y;
writeln(S);
end.
Ответ получился 69
2) var a, b:real;
begin
a:=3;
b:=-1;
b:=9+a*b;
a:=(b*b)/(b/a);
writeln(a);
end.
Ответ получился 18

0 0

4 года назад

помогите пожалуйста написать программу по инфе..."Напишите программу получение из заданного целочисленного массива размером 30 э

-Фемида- [7]

Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.

<span>
</span>

0 0

4 года назад

Переведите целые числа из десятичной системы счисления в двоичную: а)89, б)600 ,в)2010. переведите целые числа из десятичной сис

olga alekseevna

1.
89=1011001
600=1001011000
2010=11111011010

2.
513=1000000001(в 2)=1001
600=1130
2010=3732

0 0

4 года назад

Как в paint зайти?Помогите пожалуйста

vakul64 [7]

Берешь мышь в руки, двигаешь ею стрелку к меня пуск далее в строке пишешь paint и там в списке он будет, нажимаешь на нее и пользуешься на здоровье

0 0

4 года назад