В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
persik21783086532
persik21783086532
13.04.2022 05:45 •  Информатика

информатика 6 класс.Черепашка.Какие команды нужно написать для выполнения заданий? N
Python. Черепашья графика.
Зачетная работа.
Вариант 1.
1) Установите синий цвет
толщину
Нарисуйте в 1-ой координатной четверти букву «С».
пера,
пера 8.
2) Установите зеленый цвет
пера, толщину пера 4.
Нарисуйте во 2-ой координатной четверти правильный
шестиугольник. Закрасьте его оранжевым цветом.
B
В
3) Установите толщину
пера 3. качестве цвета
установите любой цвет
красных оттенках,
используйте шестнадцатеричную запись цвета.
Нарисуйте в 3-ей координатной четверти любую
спираль, основой которой является окружность.
B
4) Нарисуйте 4-ей координатной четверти
5
закрашенных треугольников, расположенных на одной
строке (см. рис.1). При рисовании используйте
шестнадцатеричную запись цвета. Цвета контура и
заливки фигуры должны отличаться.
5) Нарисуйте в центре экрана знак (см. рис. 2). Параметры
пера выберите самостоятельно.

рис.1
рис. 2

Показать ответ
Ответ:
Лапулька123
Лапулька123
01.08.2022 11:50
Паскаль АВС:

Program Ikiru;
uses crt;
var
  y,x:real;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
    write('Введите Х '); readln(x);
    if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)<=0)
      then
        writeln('Функция Y для этого значения Х не определена')
      else
        begin
          y:=2*(cos(3*x)/sin(3*x))-ln(cos(x))/ln(1+x*x);
          writeln('y=',y:8:2);
        end;
end.

Пояснения:
write('Введите Х '); readln(x);
  - программа просит пользователя ввести х
if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)<=0)
  - проверка существования функции (функция ctgХ не существует, если sinX=0, ln берется только от неотрицательных значений, в знаменателе дроби не может быть 0)
Если хотя бы одно из условий не выполняется,  выводится ссобщение о том, что функция для этого значения не определена.
Если все проверки пройдены, программа вычисляет значение функции Y и выводит его на экран.
0,0(0 оценок)
Ответ:
Bauer322
Bauer322
18.02.2020 12:51
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.

var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота