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

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

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

24.06.2020

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

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

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

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

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

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

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

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

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}$