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

Даны два персонажа в сценарий Золушка и Фея составьте программу используя среду программирования Золушка и Фея когда встречаются то обязательно приветствуют друг друга солнышко хочет на бал известно следующие условия когда нажать пробел Золушка Фея идут навстречу если касаются друг друга феи колдуют и Золушка переодевается нарядное платье оформите в виде таблицы

👇
Открыть все ответы
Ответ:
1234567890859
1234567890859
15.05.2021

рисунки кодируются с следующих команд:

установить х, у — установить в качестве текущей точку с координатами (х, у);

линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;

окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;

прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.

по имеющимся описаниям восстановите рисунки.

описание

установить 60, 20

линия к 20, 60

линия к 180, 60

линия к 140, 20

линия к 60, 20

прямоугольник 60, 80, 100, 60

прямоугольник 100, 120, 150, 60

окружность 140, 40, 10

описание

установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10

описание

установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30

описание

установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10

4,5(71 оценок)
Ответ:
akr999
akr999
15.05.2021

var

a, b, x, s, c, t:real;


begin


writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите x');

readln(x);


if x<=a then

begin

s:=sin(x);

writeln ('Синус равен ', s);

end

else

writeln ('Синус вычислить нельзя, так как равенство не равно ', x, '<=', a);


if (a<x) and (x<b) then

begin

c:=cos(x);

writeln ('Косинус равен ', c);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', a, '<', x, '<', b);


if x>=b then

begin

t:=tan(x);

writeln ('Косинус равен ', t);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', x, '>=', b);


end.

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