Написать программу, которая выводит на экран изображение работающего светофора. Есть работающий светофор, но нужно чтобы он работал по алгоритму, который я прикрепил ниже. (СМ. фото) Написать программу в 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.

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.

Объяснение:

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.а)

б)

5.а)

ответ: 46.

б)

ответ: 112.

Объяснение:

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