kulikovtsud
?>

На данной программе изображена ракета летящая вправо, как сделать что бы она летела влево? ? всё это в pascalabc. uses graphabc; procedure raketa(x: integer); begin line(x, 100, x+100, 150); line(x+100, 150, x+300, 150); line(x+300, 150, x+350, 200); line(x+350, 200, x+300, 250); line(x+300, 250, x+100, 250); line(x+100, 250, x, 300); line(x, 300, x, 100); setpencolor(clblack); setbrushcolor(clskyblue ); circle(x+150, 200, 20); circle(x+200, 200, 20); circle(x+250, 200, 20); end; var x: integer; begin x: =5; lockdrawing; repeat clearwindow; x: =x+5; raketa(x); sleep(50); redraw until x> windowwidth end.

Информатика

Ответы

larisau41

ответ:

x : = x + 5 заменить на x : = x - 5

объяснение:

переменная x отвечает за положение ракеты на экране, каждый цикл эта переменная увеличивается на 5. чтобы ракета полетела влево, нужно лишь поменять плюс на минус. или нужно еще и саму ракету развернуть?

Сергеевна

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

annayarikova

512 бит = 512/8=  64 байт

1073741824 байт =1073741824/1024=1048576 кбайт / 1024= 1024 мбайт

1024 кбайт = 1024*1024=1048576 байт

4

дискета 3,5 = 720 кбайт

сd= 650 мбайт

dvd= 1,4 гбайт- 17,08гбайт

жесткий диск = до 5 тбайт (терабайт)

5

30 кбайт= 30*1024 = 30720 байт

125 кбайт  =  125* 1024 =128000 байт

1024 кбайт = 1024* 1024 = 1048576 байт

71 кбайт = 71 * 1024 = 72704 байт

13 гбайт = 13*1024=13312мбайт=13312*1024=13631488кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 кбайт

32 гбайт = 32*1024*1024=33554432 кбайт

769мбайт = 769*1024 = 787456 кбайт

512 байт = 512 /1024 = 0,5 кбайт

70254592 байт = 70254592/1024/1024=67 мбайт

42 гбайт = 42*1024= 43008 мбайт

20482 кбайт = 20482/1024 = 20мбайт

2 гбайт =2*1024=2048 мбайт 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На данной программе изображена ракета летящая вправо, как сделать что бы она летела влево? ? всё это в pascalabc. uses graphabc; procedure raketa(x: integer); begin line(x, 100, x+100, 150); line(x+100, 150, x+300, 150); line(x+300, 150, x+350, 200); line(x+350, 200, x+300, 250); line(x+300, 250, x+100, 250); line(x+100, 250, x, 300); line(x, 300, x, 100); setpencolor(clblack); setbrushcolor(clskyblue ); circle(x+150, 200, 20); circle(x+200, 200, 20); circle(x+250, 200, 20); end; var x: integer; begin x: =5; lockdrawing; repeat clearwindow; x: =x+5; raketa(x); sleep(50); redraw until x> windowwidth end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kseniay2006548
asvavdeeva
kalterbrun
Okunev1034
КутузоваМартенюк
innavinogradova1385
qelmar461
cafegasoil
endyurans2ooo
zuzazuza61
иванович Диденко1524
и не забудьте округлить ДО СОТЫХ​
Юрьевич293
Petrushin482
TOKAREVA Stepan
Konchenko1980