Расставьте шаги алгоритма для перемещения объекта. Сдвинуть изображение той же формы немного вперед. Удалить форму I 1 Обновить окно. Вставить фигуру в рабочую область. Обновить главное окно, пока изображение отображается на экране.
{ задание 1} const n=17; var a:array[1..n] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 2=0 then k:=k+1 end; Writeln; Writeln('k=',k) end.
{ задание 2/3} const n=17; var a:array[1..n] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 10=2 then s:=s+a[i] end; Writeln; Writeln('s=',s) end.
Запишем таблицу распределения мест по купе: Купе Места 1 1-4,53,54 2 5-8,51,52 3 9-12,49,50 4 13-16,47,48 5 17-20,45,46 6 21-24,43,44 7 25-28,41,42 8 29-32,39,40 9 33-36,37,38 Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант:
Здесь знаком ÷ обозначена операция целочисленного деления.
Теперь можно написать программу. Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net
var n:integer; begin Write('Укажите номер места: '); Read(n); Write('Место располагается в купе №'); if n<=36 then Write((n-1) div 4 + 1) else Write((54-n) div 2 + 1) end.
Тестовое решение: Укажите номер места: 18 Место располагается в купе №5
const
n=17;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
a[i]:=Random(99)+1;
Write(a[i],' ');
if a[i] mod 2=0 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10
{ задание 2/3}
const
n=17;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(99)+1;
Write(a[i],' ');
if a[i] mod 10=2 then s:=s+a[i]
end;
Writeln;
Writeln('s=',s)
end.
Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54