ГДЗ Информатика 9 класс. Учебник [Бондаренко А.А., Ластовецкий В.В.] 2017

1. Массив А [1..5] заполнено числами 3, 8, 5, 7, 6. Выполните действия с элементами массива:
а) For i = 1 to 5 do A [i] = -А [i];
б) For i = 1 to 5 do If А [i] mod 3 = 0 Then А [i]: = А [i] div 3;
в) For i = 1 to 5 do If и mod 2 = 0 Then А [i]: = 0;
г) S = 0; For i: = 1 to 5 do S = S + A [i];
д) P: = 1; For i: = 1 to 5 do If А [i] <= 5 Then P = P * A [i];
е) K = 0; For i: = 1 to 5 do If А [i]> 5 Then K = K + 1,
2. Дан массив А [1..5]. Запишите операторы для реализации задач:
а) ввести с клавиатуры значения элементов массива;
б) найти произведение элементов массива;
в) найти минимальный элемент массива;
г) найти количество положительных элементов массива.
3. Составьте программу для решения задачи: «Массив Numbers [1..50] заполнено случайными числами в пределах от 1 до 100. Определить, сколько элементов массива отличаются от последнего элемента.»
Откройте среду Lazarus и создайте новый проект, разместите на экранной форме объекты, как на скриншоте, предоставьте значением их свойствам.
Создайте процедуру обработки события нажатия кнопки найти элемент. В окне редактора кода опишите переменные, которые будут использоваться в проекте: numbers - массив целых чисел, который заполняется случайным образом от 1 до 100, k - целое число, которое вводится в поле Edit1 и ищется в массиве, i - номер (индекс) элемента массива.
var i, k: integer;
numbers: array [1..50] of integer;
В окне редактора кода в теле программы запишите команды для очистки обоих полей Memo, хранения значения искомого числа, введенного в поле Edit1, в переменную k, заполнение массива с помощью функции генерирования целых чисел и записи элементов массива в поле Memo1.
Randomize;
Memo1.Clear; // очистки поля Memo1
Memo2.Clear; // очистки поля Memo2
k = StrToInt (Edit1.Text)
for i: = 1 to 50 do numbers [i]: = Random (100) // заполнение массива случайными целыми числами
for i: = 1 to 50 do Memo1.Lines.Add (IntToStr (numbers [i])); // добавление элементов массива в Memo1
Дополните программу, введением следующего кода, который осуществляет поиск в поле Memo1 строки со значением введенного числа k и выводит информацию о результатах поиска в поле Memo2 и выполните проект.
for i: = 0 to Memo1.Lines.Count - 1 do
begin
if StrToInt (Memo1.Lines [i]) = k
then
Memo2.Lines.Add ("Найдено в строке' + IntToStr (i))
else
Memo2.Lines.Add ("Не найдено в строке '+ IntToStr (i))
end;

---

---

Назад

Вперед

1 ... 31 32 33 34 35 36 37 38 39 ... 58

ГДЗ 9 клас Информатика 2017 Ранок Бондаренко Ластовецький Пилипчук Шестопалов Учебник