Информатика
Информатика, 14.10.2019 09:01, gavno001

Вопрос/Задача:

Составить программу pascal abc светофор (

Ответы на вопрос

Ответ
Ответ разместил: Гость

program n1; uses crt; var k,i: integer; begink: =1; for i: =1 to 10 do k: =k*i; writeln(k); end.

 

блок-схема вложена.

записи в блоках (по порядку сверху вниз):

- начало

- k: =1;

i: =1 to n

k: =k*1

k

ну и снизу разумеется конец программы в овале, забыла дорисовать.

Ответ
Ответ разместил: Гость
Правая кнопка и очистить, или файл "удалить все"
Ответ
Ответ разместил: Гость

ответ:

судя по всему что то навернулось под капотом. проверь все контакты, померяй напрягу мультиметром на бп*, ну и на крайняк тащи в сервис

объяснение:

*напряжение бп меряют соединяя контакты в разъёмах mollex или 8+pin следующим способом:

на проводах бп - чёрный провод - земля. к этому контакту подключаем землю мультиметра. далее соединяем:

земля - жёлтый провод - линия +12 (номинал - 12 v, отклонение - +- 0.5 v)

земля - красный - линия +5 (номинал - 5 v, отклонение - +- 0.25 v)

земля - оранжевый - линия +3.3 (номинал - 3.3 v, отклонение - +- 0.3 v)

** если комп работает всего 3-5 сек, то сначала подключай мультиметр к нужной линии а потом включай комп.

Ответ
Ответ разместил: БиологКоля

uses graphabc,crt; var i: integer; h: real; beginrandomize; rectangle(280,130,320,320); rectangle(250,10,350,260); circle(300,55,35); circle(300,135,35); circle(300,215,35); for i: =1 to 1000 dobeginfloodfill(300,55,clred); delay(3000); floodfill(300,55,clwhite); delay(1000); floodfill(300,135,clyellow); delay(3000); floodfill(300,135,clwhite); delay(1000); floodfill(300,215,clgreen); delay(1000); floodfill(300,215,clwhite); delay(1000); end; end.

Ответ
Ответ разместил: handball230912

ответ:

1. антропогенное воздействие на литосферу

2. основные загрязнители и деградация почвы

3. эрозия почвы и борьба с ней

4. проблема опустынивания

5. пестициды и последствия их применения

объяснение:

Ответ
Ответ разместил: ianastepanenko

program svetofor;

uses crt;

var c: 1..3;

begin clrscr;

randomize;

writeln('переход по сигналу светофора');

c: =random (3)+1;

gotoxy(35,11);

case c of

1: begin textcolor (red); writeln ('красный-стой! '); end;

2: begin textcolor (yellow); writeln('желтый-приготовься! '); end;

3: begin textcolor (green); writeln('зеленый-иди! '); end;

end;

sleep(3000);

until keypressed;

end.

Похожие вопросы

Вопросов на сайте: