Котоман228

20.05.2021 16:26

Информатика

Есть ответ 👍

Дан массив: a[1]=7, a[2]=3, a[3]=5, a[4]=0, a[5]=4, a[6]=1, a[7]=8, a[8]=8, a[9]=1, a[10]=2. Определите значение переменной k после выполнения следующего фрагмента программы записанного на языке программирования Паскаль:

k:=0;

for i:=1 to 10 do

if a[i]>=5 then k:=k+1;

writeln ('k=',k);

116

154

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

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

HappyMen11

Информатика

4,6(40 оценок)

Программа считает количество элементов в массиве, которые больше или равны 5

K=1+1+1+1=4

ответ: 4

Если мой ответ оказался Вам полезен, то отметить его, как "лучший"

amina2031406

Информатика

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

uses

graphabc;

const

s = 14; // кол-во щупалец

n = 18; // кол-во звеньев в каждом из них

w = 2; //ширина щупалец

var

i, j: integer;

x, y: real;

tx, ty: real;

k, d: real;

// углы поворота звеньев относительно друг-друга

a: array [1..n] of real;

// длина одного звена

len: real;

begin

pen.width : = w;

setwindowsize(320, 320);

setwindowtitle('щупальца');

if window.width > window.height then

len : = window.height / 1.8 / n

else

len : = window.width / 1.8 / n;

k : = random(360) * pi / 180;

d : = pi * 2 / s;

var k1 : = 1;

// главный цикл

repeat

if window.width > window.height then

len : = window.height / 1.8 / n

else

len : = window.width / 1.8 / n;

lockdrawing(); //блокируем рисование(для оптимизации)

clearwindow(clblack); // стираем всё

// расчёт коэфицента поворота

if random(50) = 0 then

k : = random(360) * pi / 180;

// поворот всех щупалец

a[1] : = a[1] + sin(k) / 15;

// интерполяция углов между щупальцами

for i : = 2 to n do

a[i] : = a[i] + (a[i - 1] - a[i]) * 0.1;

for j : = 0 to s - 1 do

begin

x : = 0.5 * window.width;

y : = 0.5 * window.height;

for i : = 2 to n do

begin

setpencolor(color.fromargb(255, trunc(255 - 255 * i / n), 255));

// немного школьной тригонометрии : )

tx : = x + cos(j * d + a[i]) * len;

ty : = y + sin(j * d + a[i]) * len;

line(trunc(x), trunc(y), trunc(tx), trunc(ty));

x : = tx;

y : = ty;

end;

redraw(); //перерисуем изображение

k1 += 1;

setwindowtitle('щупальца( средн. fps ' + format('{0,5: f2}',k1/milliseconds*1000)+')');

sleep(5);

until false;

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.