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

буду благодарна! Составить программу рисования паровоза( Pascal ABC)

👇
Ответ:
Korolevanet
Korolevanet
19.03.2020

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.

4,5(55 оценок)
Открыть все ответы
Ответ:
annmalik98
annmalik98
19.03.2020

1

//Вводим a,b,c

Console.WriteLine(hello);

if(a == b || a==c || b==c){

Console.WriteLine("Треугольник равнобедренный");

}else{

Console.WriteLine("Треугольник НЕ равнобедренный");

}

2

int x1,x2,x3,x4;

int x;

//Вводим число x

   x1 = (x - (x % 1000)) / 1000;

   x2 = ((x - (x % 100)) - (x - (x % 1000))) / 100;

   x3 = ((x - (x % 10)) - (x - (x % 100))) / 10;

   x4 = x % 10;

if((x1 == 6) || (x1 == 9) || (x2 == 6) || (x2 == 9) || (x3 == 6) || (x3 == 9) || (x4 == 6) || (x4 == 9)){

Console.WriteLine("Входит");

}else{

Console.WriteLine("не входит");

}

3

float x,y,z;

// Вводим x,y,z

if(x >= 0,5 && x<=5,1) Console.WriteLine(x, " Входит");

if(y >= 0,5 && y<=5,1) Console.WriteLine(y, " Входит");

if(z >= 0,5 && z<=5,1) Console.WriteLine(z, " Входит");

4 задания к сожалению не понял

4,6(76 оценок)
Ответ:
2a741
2a741
19.03.2020

Фото приложил

Первый скриншот - это сам код.

Второй - это результат.

На всякий случай еще сюда продублирую код... Только внимательней с табуляцией.

Код:

import turtle

pen = turtle.Turtle()

pen.speed(1)

pen.color('yellow')

def six():

angle = 60

for i in range(6):

 pen.left(angle)

 pen.forward(100)

for i in range(6):

six()

pen.up()

pen.right(60)

pen.forward(100)

pen.down()

Но я бы цвет с yellow поменял бы на black, а то на белом фоне смотрится так себе...

Если хочешь как на 3 скрине, добавь строчку "pen.width(10)" после "pen.speed(1)" например


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