Напишите функцию shift(steps), которая выполняет сдвиг в списке целых чисел на указанное число шагов. Элемент, вышедший за пределы списка, должен появляться с другого его конца. Например, если последний элемент сдвигается на три шага, то он становится третьим. Функция shift() в качестве аргументов принимает число шагов сдвига. Функция shift не должна принимать или возвращать список. Она должна работать с глобальной переменной mainList. Заранее огромное
Не можете запрограммировать обычную задачу? распишу максимально подробно: program z; var v, s, t:real; //объявление переменных типа real(дробные), где s - расстояние, v - скорость, t - время begin write('Vvedite rasstoyanie: '); //вывод сообщения на экран read(s); //запрос на ввод расстояния(результат ввода помещается в переменную s) write('Vvedite skorost: '); //вывод сообщения на экран read(v);//запрос на ввод расстояния(результат ввода помещается в переменную v) t:=s/v; //по формуле вычисляем время, результат заносится в переменную t write('vremya: ', t); //выводится сообщение с результатом end.
Const n = 5; var x: array[1..n] of integer; i: integer;
begin for i := 1 to n do readln(x[i]); for i := 1 to n do if i = 1 then x[1] := 2 else if (i = n) and (n mod 2 <> 0) then x[n] := n - 1 else if i mod 2 <> 0 then x[i] := ((i + 1) + (i - 1)) / 2; for i := 1 to n do writeln(x[i]); end.
var m, n, m1, n1, k: integer; ch, ost: real; begin readln(m, n); m1 := m; n1 := n; k := 0; if m<n then begin ost:=m/n; ch:=0; end; if m=n then begin ch:=1; ost:=0; end; if m>n then begin while m1 > 0 do begin if m1 = n then begin k := k + 1; break; end; m1 := m1 - n; k := k + 1; end; ch := k - 1; if m1 = n then begin ost := 0;ch := k;end else begin ost := (m1 + n1) / n1; ch := k - 1;end; end; writeln(ch, ' ', ost); end.
const n=5; var a:array[1..n] of real; i,k:integer; b,p:real; begin k:=1; for i:=1 to n do readln(a[i]); writeln('введите число'); readln(b); for i:=1 to n do begin if a[i]<b then begin p:=a[k]; a[k]:=a[i]; a[i]:=p; k:=k+1; end; end; for i:=1 to n do writeln(a[i]); end.
def shift(step):
global mainList
mainList = mainList[-step:] + mainList[:-step]