СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Практическая работа. Ввод и вывод одномерного массива

Категория: Информатика

Нажмите, чтобы узнать подробности

Практическая работа. Ввод и вывод одномерного массива

1 курс. СПО

Просмотр содержимого документа
«Практическая работа. Ввод и вывод одномерного массива»

Паскаль АВС. Практическая работа. Ввод и вывод одномерного массива

Массив – это набор переменных одного типа, объединенных общим именем.

Элемент массива – отдельная переменная, входящая в массив.

Размерность массива – количество элементов, которое содержит массив.

Индекс элемента массива – номер элемента в массиве.

Пример описания типа массива

Var A:array[1..9] of integer;

Заполнение массива. Можно производить 1) с клавиатуры, 2) оператора присваивания, 3) используя циклы.

Упражнение 1

Заполните одномерный массив, состоящий из трёх целых чисел 3, 6, -4 с помощью оператора присваивания и вывести массив на экран

Упражнение 2

Заполните одномерный массив, состоящий из трех целых чисел 3, 6, -4 с клавиатуры и вывести массив на экран

Program y_1;

Var A:array[1..3] of integer;

n:integer; {или можно n:byte}

begin

A[1]:=3;

A[2]:=6;

A[3]:=-4;

Writeln ('A[1]=',A[1]);

Writeln ('A[2]=',A[2]);

Writeln ('A[3]=',A[3]);

end.

Program y_2;

Var A:array[1..3] of integer;

n:integer; {или можно n:byte}

begin

For n:=1 to 3 do

begin

write('введите A[' , n , ']=');

readln (A[n]);

writeln ('A[' , n , ']=', A[n]);

end;

end.

Упражнение 3

  • Заполните одномерный массив 1,2,3,4,5,6,7,8,9,10 используя операторы цикла

  • выведите массив на экран в обратном порядке

Program y_3;

Var A:array[1..10] of integer;

n:integer;

begin

For n:=1 to 10 do

A[n]:=n;

For n:=9 downto 1 do

writeln ('A[',n,']=',A[n]);

end.

Упражнение 4

  • Заполните одномерный массив из 8 элементов целыми случайными числами от 0 до 40 используя операторы цикла. Выведите массив на экран

Program y_4;

Var A:array[1..8] of integer;

n:integer;

Функция

Random(Макс.знач.): integer;

Возвращает случайное целое в диапазоне от 0 до Макс.знач.–1

begin

For n:=1 to 10 do

begin

A[n]:= random(41);

writeln ('A[',n,']=',A[n]);

end;

end.

Самостоятельная работа

Уровень «A»:

Напишите программу, которая заполняет массив из N = 8 элементов случайными числами в диапазоне [0,10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива.

Пример:

Массив: 5 6 2 3 1 4 8 7

Квадраты: 25 36 4 9 1 16 64 49

Уровень «B»:

Напишите программу, которая заполняет массив из N = 10 случайными числами в диапазоне [100,300] и выводит его на экран. После этого на экран выводятся средние цифры (число десятков) всех чисел, записанных в массив.

Пример:

Массив: 142 324 135 257 167 295 126 223 138 270

Число десятков: 4 2 3 5 6 9 2 2 3 7

Уровень «C»:

Напишите программу, которая заполняет массив из N =10 случайными числами в диапазоне [100,500] и выводит его на экран. После этого на экран выводятся суммы цифр всех чисел, записанных в массив.

Пример:

Массив: 162 425 340 128 278 195 326 414 312 177

Суммы цифр: 9 11 7 11 17 15 11 9 6 15

Уровень «A»:

  1. Заполните все элементы массива значением X, введённым с клавиатуры.

  2. Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры).

Уровень «B»:

  1. Заполните массив натуральными числами в обратном порядке, начиная со значения X, введённого с клавиатуры. Последний элемент должен быть равен X, предпоследний равен и т.д.

  2. Заполните массив степенями числа 2
    (от 21 до 2N), так чтобы элемент с индексом i был равен 2i.

Уровень «С»:

  1. Заполните массив степенями числа 2, начиная с конца, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего.




Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!