По информатике! тема: анимация в pascalabc. программу я уже написала, только нужно её исправить и доработать. вот сама программа и мне нужно, чтобы дорога сверху машины была белого цвета и сама машина двигалась, не оставляя за собой "следа": program trafficlight; uses graphabc; procedure b(x: integer); begin setbrushcolor(clgreen); rectangle(750-x, 440, 450-x, 510); line(450-x, 440, 530-x, 380); line(530-x, 380, 530-x, 440); line(530-x, 380, 750-x, 380); floodfill(500-x, 410, clgreen); floodfill(640-x, 410, clgreen); line(750-x, 380, 750-x, 440); line(640-x, 380, 640-x, 440); setbrushcolor(clblack); circle(540-x, 525, 30); circle(670-x, 525, 30); end; begin setwindowsize(800, 600); line(0, 300, 800, 300); setbrushcolor(clblack); rectangle(0, 0, 150, 300); setbrushcolor(clblue); rectangle(10, 20, 60, 70); setbrushcolor(clyellow); rectangle(80, 20, 130, 70); setbrushcolor(clblue); rectangle(10, 90, 60, 140); rectangle(80, 90, 130, 140); setbrushcolor(clyellow); rectangle(10, 160, 60, 210); setbrushcolor(clblue); rectangle(80, 160, 130, 210); rectangle(10, 230, 60, 280); rectangle(80, 230, 130, 280); setbrushcolor(clblack); rectangle(160, 50, 310, 300); setbrushcolor(clblue); rectangle(170, 70, 220, 120); rectangle(240, 70, 290, 120); rectangle(170, 140, 220, 190); rectangle(240, 140, 290, 190); rectangle(170, 210, 220, 260); rectangle(240, 210, 290, 260); setbrushcolor(clblack); rectangle(320, 40, 620, 300); setbrushcolor(clblue); rectangle(340, 60, 390, 110); rectangle(340, 130, 390, 180); rectangle(340, 200, 390, 250); rectangle(410, 60, 460, 110); setbrushcolor(clyellow); rectangle(410, 130, 460, 180); rectangle(410, 200, 460, 250); setbrushcolor(clblue); rectangle(480, 60, 530, 110); rectangle(480, 130, 530, 180); rectangle(480, 200, 530, 250); rectangle(550, 60, 600, 110); setbrushcolor(clyellow); rectangle(550, 130, 600, 180); setbrushcolor(clblue); rectangle(550, 200, 600, 250); setbrushcolor(clblack); rectangle(630, 30, 790, 300); setbrushcolor(clblue); rectangle(650, 50, 700, 100); rectangle(650, 120, 700, 170); rectangle(650, 190, 700, 240); rectangle(720, 50, 770, 100); setbrushcolor(clyellow); rectangle(720, 120, 770, 170); setbrushcolor(clblue); rectangle(720, 190, 770, 240); setbrushcolor(clred); rectangle(0, 460, 800, 470); setbrushcolor(clbrown); rectangle(0, 300, 800, 310); setbrushcolor(clblack); rectangle(60, 470, 80, 590); rectangle(40, 320, 100, 470); setbrushcolor(clred); circle(70, 350, 20); setbrushcolor(clgray); circle(70, 395, 20); circle(70, 440, 20); begin for var i: =10 to 270 do begin b(i); sleep(1); end; end; end. знаю, что работа нелёгкая. поэтому максимальное количество .
Ответы
Это сложно очень очень
Я бы написал по другому
Program vozvedenie_v_stepen;
var a,b:integer;
begin
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.
Будем считать, что появление символов равновероятно.
Первое сообщение содержит х символов, тогда второе сообщение содержит 2,5х символов.
Т. к. количество информации (I), которое содержит сообщение, закодированное с знаковой системы, равно количеству информации, которое несет один символ (i), умноженному на число символов в сообщении, то:
I = x*i1
I = 2,5x*i2
А т. к. количество информации у нас одинаково, то:
x*i1 = 2,5x*i2
i1 = 2,5*i2
2*i1 = 5*i2
А т. к. нам известно, что мощность каждого алфавита не превышает 32, то количество информации, которое несет один символ (i) вычисляется по фомуле: i <= log2(32). Т. к. на каждый символ приходится целое число битов, то i может принимать значения 1, 2, 3, 4, 5 битов.
Подставляя эти значения в формулу соответствия между количеством информации, приходящимся на один символ для первого и второго алфавита 2*i1 = 5*i2, находим, что i1 = 5 и i2 = 2.
Следовательно, мощность первого алфавита равна 2^5 = 32 символа, а второго алфавита равна 2^2 = 4 символа.
Первое сообщение содержит х символов, тогда второе сообщение содержит 2,5х символов.
Т. к. количество информации (I), которое содержит сообщение, закодированное с знаковой системы, равно количеству информации, которое несет один символ (i), умноженному на число символов в сообщении, то:
I = x*i1
I = 2,5x*i2
А т. к. количество информации у нас одинаково, то:
x*i1 = 2,5x*i2
i1 = 2,5*i2
2*i1 = 5*i2
А т. к. нам известно, что мощность каждого алфавита не превышает 32, то количество информации, которое несет один символ (i) вычисляется по фомуле: i <= log2(32). Т. к. на каждый символ приходится целое число битов, то i может принимать значения 1, 2, 3, 4, 5 битов.
Подставляя эти значения в формулу соответствия между количеством информации, приходящимся на один символ для первого и второго алфавита 2*i1 = 5*i2, находим, что i1 = 5 и i2 = 2.
Следовательно, мощность первого алфавита равна 2^5 = 32 символа, а второго алфавита равна 2^2 = 4 символа.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Написать программу для составления таблицы умножения
Автор: Горина
Составьте правила работы в графическом редакторе tux paint
Автор: milanmilan8672
Какая информация хранится в файлах растрового и векторного типа ?
Автор: liza04521160
Что выйдет на экране В результате выполнения X= 13.56 а=int(x) -27
Автор: korchags19983941