Информатика: Одномерные массивы. информатика. решите хотя бы одну

Одномерные массивы. информатика. решите хотя бы одну

👇

Увидеть ответ

Ответ:

goldwildcat1

21.02.2022

Номер1

a = list(map(int, input().split()))

k = 0

for i in a:

if i <= 21:

k += 1

print(k)

Номер2

a = list(map(int, input().split()))

k = 0

for i in a:

if i < -9 and i > -100 and abs(i) // 10 % 2 == 1:

k += i

print(k)

Номер3

a = list(map(int, input().split()))

mi = a[0]

last_otr = 0

for i in a:

if i < mi:

mi = i

if i < 0:

last_ort = i

print(3 * (last_otr + mi))

Номер4

a = list(map(int, input().split()))

ma = a[0]

for i in a:

if i > ma:

ma = i

for i in range(len(a)):

a[i] /= ma

print(a[i], end = ' ')

Номер5

a = list(map(int, input().split()))

a0 = a[0]

a1 = a[1]

a2 = a[2]

for i in range(3, len(a)):

a[i - 3] = a[i]

a[len(a) - 1] = a2

a[len(a) - 2] = a1

a[len(a) - 3] = a0

print(*a)

4,5(50 оценок)

Открыть все ответы

Ответ:

gg322

21.02.2022

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
w=1000;
h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
SetWindowSize(w,h);
// поле для графика в окне
var xLeft:=50;
var yLeft:=50;
var xRight:=w-xLeft;
var yRight:=h-yLeft;
// интервалы по осям
var ax:=-12.0;
var bx:=12.0;
var hx:=1.0;
var ay:=-6.5; // минимум f(x) с запасом
var by:=6.5;
var hy:=0.5;
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
w=1000;
h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
SetWindowSize(w,h);
// поле для графика в окне
var xLeft:=50;
var yLeft:=50;
var xRight:=w-xLeft;
var yRight:=h-yLeft;
// интервалы по осям
var ax:=-15.0;
var bx:=15.0;
var hx:=1.0;
var ay:=-6.5; // минимум f(x) с запасом
var by:=6.5;
var hy:=0.5;
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

Составьте программу, которая строит график зависимости: а) y(x)=0.5x *cos 2x на промежутке [-12; 12]

Составьте программу, которая строит график зависимости: а) y(x)=0.5x *cos 2x на промежутке [-12; 12]

4,7(1 оценок)

Ответ:

diana2010123456

21.02.2022

Последовательность действий ученика при самостоятельном изучении параграфа учебника:
1) достать учебник
2) сесть за стол
3) открыть учебник
4) прочитать параграф
5) ответить на вопросы после параграфа
6) открыть тетрадь
7) сделать краткий конспект по вопросам в конце параграфа
8) закрыть тетрадь
9) закрыть учебник
10) убрать учебник

Последовательность действий мамы при варке манной каши:
1) взять кастрюлю
2) налить воду в кастрюлю
3) зажечь огонь на плите
4) поставить кастрюлю на огонь
5) достать крупу, молоко
6) добавить в кастрюлю молоко
7) когда вода и молоко закипят добавить крупу
8) взять ложку
9) мешать ложкой крупу
10) накрыть крышкой
11) выключить огонь под кастрюлей

4,8(73 оценок)

Это интересно:

Искусство-и-развлечения

21.05.2021

Как играть в бильярд как профи?...

Искусство-и-развлечения

11.03.2023

Как стильно одеться в стиле Гарри Поттера...

Здоровье

17.05.2023

Болезнь, которую нам нужно победить: Как справиться с защемлением нерва в бедре...

Кулинария-и-гостеприимство