Регистрация
NikaGoddesin
05.04.2020 07:35
Информатика
Есть ответ 👍

Сделать программу движения какого либо предмета состоящий из 5 деталей в паскале абц,самое главное что бы программа состояла из более менее понятных команд для ученика 8 класса) )

152
185
Посмотреть ответы 2

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

АсяСокол
АсяСокол
4,4(27 оценок)

ответ:

обьект "ракета"                                                                                   1)program raketa;

uses graphabc;   //подключение модуля graphabc

begin

setwindowsize(500,500); //установка размеров графического   окна

setpencolor(clblack); // цвет пера -  

line(50,100,150,150);

line(150,150,350,150);

line(350,150,400,200);

line(400,200,350,250);

line(350,250,150,250);

line(150,250,50,300);

line(50,300,50,100);

 

setpencolor(clred);

line(50,200,150,200);

setpencolor(clblack);

setbrushcolor(clskyblue );

circle(200,200,20);

circle(250,200,20);

circle(300,200,20);

  движение "ракеты"                                                                                   2)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(clred);

line(x,200,x+100,200);

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.

 

end.

объяснение:

!

я не обещаю что ответ будет правильным

tarasbulba204
tarasbulba204
4,6(45 оценок)
Const ss = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var s : string;   i : byte; begin   readln(s);   for i: =1 to length(s) do       if s[i]='я' then s[i]: ='a' else           if pos(s[i],ss)> 0 then s[i]: =ss[pos(s[i],ss)+1];   writeln(s); end.

Популярно: Информатика