4 года назад

Нарисуйте рисунок машинки с анимацией в QBasic

1 ответ:

0 0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 screen 12 for x=0 to 640 step 5 cls circle (x,240), 25 circle (x+100,240), 25 line (x+30,240)-(x+70,240) line (x-50,240)-(x-30,240) line (x+150,240)-(x+130,240) line (x+150,240)-(x+150,190) line (x-50,240)-(x-50,190) line (x-50,190)-(x-10,190) line (x+110,190)-(x+150,190) circle (x+50,190),60 ,, 0 , 3.14 circle (x,240),30 ,, 0 , 3.14 circle (x+100,240),30 ,, 0 , 3.14 next x

Читайте также

ИНФОРМАТИКА 9 КЛАСС ПОМОГИТЕ ПОЖАЛУЙСТА Дан целочисленный массив из 20 элементов. Элемента массива ввести с клавиатуры. Найти су

lodiy

Const n=20;
var a: array [1..n] of integer;
i,s,k,v,j: integer;
begin
for i:=1 to n do
readln (a[i]);
writeln (a);
for i:=1 to n do
if (a[i] div 100 = 0) and (a[i] div 10 <> 0) then
begin
k:=k+1;
if k=1 then s:=s+a[i];
if k=3 then s:=s+a[i]
end;
writeln (s);
for i:=1 to n do
begin
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end
end;
writeln (a)
end.

0 0

4 года назад

Напиши алгоритм со стрелками,который поможет Нигяр дойти от дома до магазина

Наталья Сытар

3 клетки вверх,

6 клетки влево,

2 клетки вниз,

3 клетки вправо,

5 клетки вверх,

3 клетки вправо,

1 клетка вниз.

0 0

4 года назад

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

Gennna

Const N = 5;
Var a:array [1..N] of integer; i,S:integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
a[i]:=random(61)-30;
if (a[i]<0) and (a[i] mod 2 <>0) then S:=S+a[i]; end;
writeln(S);
readln;
end.

0 0

4 года назад

5 байт= _________ бит 8 килобайт=___________ байт 1 мегабайт=________байт 88 бит=________ байт 5120 терабайт =_________ гигабай

олог

5 байт=40 бит
8 килобайт=8192 байт
1 мегабайт=131072 байт
88 бит=11 байт
5120 терабайт =5242880 гигабайт

0 0

4 года назад

Паскаль!! Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив обязательно вошли все числа о

Лукойл [21]

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

//Если программа не запускается, то обновите версию

const

m = 99;

var

n, s, d, i, j: integer;

A, B: Array[1..m] of integer;

begin

Randomize;

write('n = ');

readln(n);

for i := 1 to n do

begin

repeat

j := Random(n) + 1

until A[j] = 0;

A[j] := i;

end;

for i := 1 to n do

write(A[i]:3);

writeln;

end.

0 0

4 года назад