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

Написать программу, которая выводит на экран изображение работающего светофора.

Есть работающий светофор, но нужно чтобы он работал по алгоритму, который я прикрепил ниже. (СМ. фото)
Написать программу в PASCAL ABC, которая выводит на экран изображение работающего светофора. Рекомендуемый вид светофора и алгоритм его работы приведены ниже.В ПРОГРАММЕ ДОЛЖНЫ БЫТЬ КОММЕНТАРИИ, ПОЯСНЯЮЩИЕ ПРИНЦИП РАБОТЫ.

program svetofor;
uses graphabc,crt;
const t=500;

begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (140, 450, 160, 600);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50);

repeat
setbrushcolor (clDkGray); circle (150, 370, 50);
setbrushcolor (clred); circle (150, 150, 50); delay(t);
setbrushcolor (clDkGray); circle (150, 150, 50);
setbrushcolor (clyellow); circle (150, 260, 50); delay(t);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50); delay(t);
until keypressed;

end.

👇
Ответ:
Tima2005777
Tima2005777
24.06.2020

program svetofor;

uses graphabc;

begin

setwindowsize (600, 600);

setpencolor (clblack);

setbrushcolor (clblack);

rectangle (90, 90, 210, 450 );

setpencolor (clred);

setbrushcolor (clred);

circle (150, 150, 50);

setpencolor (clyellow);

setbrushcolor (clyellow);

circle (150, 260, 50);

setpencolor (clgreen);

setbrushcolor (clgreen);

circle (150, 370, 50);

setpencolor (clblack);

setbrushcolor (clblack);

rectangle (140, 450, 160, 600)

end.

Объяснение:

4,6(14 оценок)
Открыть все ответы
Ответ:
айз14
айз14
24.06.2020
1.

var a: array[1..3] of array[1..4] of string;

2.

Length(s): возвращает длину строки s;

Copy(s, p, n): возвращает подстроку строки s длины n с позиции p;

Delete(s, p, n): удаляет из строки s n символов с позиции p;

Str(x, s): переводит число x в строку и сохраняет результат в s.

3.

Типизированные файлы - файлы, состоящие из компонентов одного типа, число которых заранее не определено.

Нетипизированные файлы - файлы, где информация записывается и считывается блоками определенного размера, в них могут храниться данные любого вида и структуры.

Текстовые файлы - файлы, состоящие из любых символов. Они организуются по строкам, каждая из которых заканчивается символом "конец строки".

4.а)

(1010.11)_3=(1*3^{-2}+1*3^{-1}+0*3^0+1*3^1+0*3^2+1*3^3)_{10}=(\frac{1}{3^2}+\frac{1}{3^1}+0+3+27)_{10}=(\frac{1}{9}+\frac{1}{3}+30)_{10}=(30\frac{4}{9})_{10}

б)

(13.146)_8=(1*8^1+3*8^0+1*8^{-1}+4*8^{-2}+6*8{-3})_{10}= (8+3+0.125+0.0625+0.01171875)_{10} = 11.19921875_{10}

0.19921875_{10}=0.33_{16}

11_{10}=B_{16}

B_{16}+0.33_{16}=B.33_{16}

5.а)34_{10}=100010_2\\12_{10}=1100_2\\\boxed{}\boxed{}100010\\\boxed{}\boxed{}001100\\======\\\boxed{}\boxed{}101110\\\\101110_2=46_{10}

ответ: 46.

б)

14_{10}=1110_2\\8_{10}=1000_2\\\boxed{}\boxed{}\boxed{}1110\\\boxed{}\boxed{}\boxed{}1000\\=====\\\boxed{}\boxed{}\boxed{}0000\\\boxed{}\boxed{}0000\\\boxed{}0000\\1110\\=====\\1110000\\\\1110000_2=112_{10}

ответ: 112.

4,4(39 оценок)
Ответ:
яна1766
яна1766
24.06.2020

Объяснение:

1. Программное обеспечение – это:

2) совокупность программ установленных на компьютере

2. Что не является объектом операционной системы Windows:

3) Процессор

3. Какое действие нельзя выполнить с объектом операционной системы Windows:

4) Порвать

4. Файл – это:

4) программа или данные на диске

5. Операционная система – это:

3) набор программ, обеспечивающий работу всех аппаратных устройств компьютера и доступ пользователя к ним

6. Что такое буфер обмена:

1) специальная область памяти компьютера, в которой временно хранится информация

7. Какие функции выполняет операционная система:

4) организация диалога с пользователем, управления аппаратурой и ресурсами компьютера

8. Операционная система относится к:

2) системному программному обеспечению

9. Графическим редактором называется программа, предназначенная для:

3) работы с графическим изображением

10. Для удаления символа справа от курсора используется клавиша:  3) Delete

11. Текст, набранный в тестовом редакторе, хранится на внешнем запоминающем устройстве:

1) в виде файла

12. Текущий диск – это

2) диск, с которым пользователь работает в данный момент времени

13. Какой из подключения к Интернет обеспечивает наибольшие возможности для доступа к информационным ресурсам:

4) постоянное соединение по оптоволоконному каналу

14. Для удаления символа слева от курсора используется клавиша:

2) Backspace

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