Плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс)program chelovek
Плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс) program chelovek; uses GraphABC; procedure P1(x,y:integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure P2(x,y:integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x,y+100); end; var x,y,i:integer; begin x:=40; y:=100; i:=1; repeat LockDrawing; ClearWindow; setpenwidth(3); if odd(i) then P1(x,y) else P2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1; until x>=windowwidth-20; <span>end.</span>
Если я правильно понял вопрос б), то простейший пример: а) Когда ты общаешься с подругой, ты получаешь новую информацию. б) Когда вторая подруга сообщила тебе, что первая подруга тебе соврала. Ну или когда тебе один учитель объясняет тему по одному способу, а потом тебе эту же тему объясняет другой учитель совсем по другому. Но первый пример, я думаю, понятнее))
Один раз мы с Мишей были в игрушечном магазине и увидели замечательную игрушку - телефон. В большой деревянной коробке лежали два телефонных аппарата, две трубки, в которые говорить и слушать, и целая катушка проволоки. Продавщица объяснила нам, что если один телефон поставить в одной квартире, а другой - у соседей и соединить оба аппарата проволокой, то можно переговариваться. Мы захотели его купить! Это не какая-нибудь простая игрушка, которую поломаешь и выбросишь. Это полезная вещь! Мы с Мишей решили собирать деньги, чтобы купить телефон. Две недели подряд мы не ели мороженого, не ходили в кино - всё деньги копили. Наконец насобирали сколько было нужно и купили телефон. Примчались из магазина домой с коробкой. Один телефон у меня поставили, другой - у Мишки и от моего телефона протянули проволоку через форточку вниз, прямо к Мишкиному телефону. Я помчался к себе, взял трубку и слушаю, а трубка уже кричит Мишкиным голосом! Нашему счатстью небыло предела!