Все категории

4 года назад

3-я задача 2-го варианта. Язык паскаль. Просто подскажите, как дописать элементы в массив.

Знания

Информатика

1 ответ:

Катталея4 года назад

0 0

Есть такие массивы (НО ОНИ ЕСТЬ ТОЛЬКО В PASCAL ABC NET), которые называются динамические. Это такие массивы, длину которых ты назначаешь сам в теле программы. Здесь тебе нужно использовать именно их, так как ты заранее не знаешь, сколько будет положительных компонентов.

<h3>Пример объявления динамического массива:</h3>

var a: array of integer; //вот это до begin

SetLength(a, b); //после begin, где b - количество элементов массива

Далее работаешь как с обычным массивом.

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

1)В школе учатся и работают 850 человек.Администрация школы составляет около 5% от общего числа,8%-обслуживающий персонал,70%-уч

Дарья Захаревич [21]

Всмысле в какой программе?

0 0

4 года назад

Составить алгоритм поиска четырёхзначного числа, начинающегося с единицы и такого, что если переставить эту цифру в конец записи

Сергей ГГ [2]

var x,y,z:Integer;

begin

for x:=1 to 9 do

for y:=0 to 9 do

for z:=0 to 9 do

if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z);

Readln;

end.

0 0

4 года назад

Дано произвольное целое положительное число K (K<=10^9) Найти произведение всех цифр этого числа которые кратны трём

Omed [50]

var

s: string;

i,n: integer;

begin

readln(s);

n:=1;

for i:=1 to length(s) do

if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then

n:=n*(ord(s[i])-48);

write(n);

end.

0 0

4 года назад

Какая операция относится к редактированию текста? A) копирование, вставки и удаление фрагментов текста B) выравнивание абзацев т

martak

Я СЧИТАЮ ЧТО ПРАВИЛЬНЫЙ ОТВЕТ A) КОПИРОВАНИЕ,ВСТАВКИ И УДАЛЕНИЕ ФРАГМЕНТОВ ТЕКСТА

0 0

4 года назад

Какое наибольшее целое значение h нужно ввести чтобы программа напечатала число 30. var a,b,t,M,R,H :integer; Function F(H, x: i

Иван0002

Программа получает со ввода значение H и выполняет табуляцию функции F(t,H)=11(t-H)²+13 на интервале [0;30]. На вывод поступает значение t, при котором функция F(t,H) принимает максимальное значение.
В задании требуется определить максимальную величину H, при которой функция F(t,H) на заданном интервале принимает максимальное значение для t=30, т.е. на правом конце интервала.
График функции F(t,H) - это квадратная парабола, ветви которой направлены вверх, поэтому максимальное значение такой функции достигается на одном или одновременно на обоих концах интервала. Для нашего случая
F(30,H) > F(0,H)
11(30-H)²+13 > 11(0-H)²+13
11(900-60H+H²)+13 > 11H²+13
9900-660H+11H²+13 > 11H²+13
9900-660H > 0 ⇒ H < 9900/660 или H<15.
В целых числах получаем H=14 (в программе H описывается как integer).
Ответ: H=14

0 0

4 года назад