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

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

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

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

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

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

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

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

Итоги урока

Одномерный массив

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

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

Презентацию можно использовать на уроке при объяснении способов создания массива.

Просмотр содержимого документа
«Одномерный массив»

Одномерный массив.  Ввод массива в PascalABC 9 класс Автор: Дмитренко Т.Д МБОУ «Кировская гимназия»

Одномерный массив. Ввод массива в PascalABC

9 класс

Автор: Дмитренко Т.Д

МБОУ «Кировская гимназия»

Способы создания массива Ввод элементов массива по заданному правилу (формуле); Ввод элементов массива случайными числами; Ввод элементов массива с клавиатуры (вручную).

Способы создания массива

  • Ввод элементов массива по заданному правилу (формуле);
  • Ввод элементов массива случайными числами;
  • Ввод элементов массива с клавиатуры (вручную).
Напишите программы для решения задач.   Написать программу, заполняющую массив из 10 элементов по следующему правилу: А[i] = 2*i – 1; 2. Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран. 3. Написать программу, осуществляющую заполнение и вывод на экран массива, состоящего из 7 элементов. Например: 4, 7, 25, 49, 45, 11, 67.

Напишите программы для решения задач.

  • Написать программу, заполняющую массив из 10 элементов по следующему правилу: А[i] = 2*i – 1;
  • 2. Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран.

3. Написать программу, осуществляющую заполнение и вывод на экран массива, состоящего из 7 элементов. Например: 4, 7, 25, 49, 45, 11, 67.

№ 1 Program z1; Var a: array[1..10] of integer;  i: integer; Begin For i:=1 to 10 do  begin  a[i]:=2*i – 1; write(a[i]:3); end; end.

№ 1

Program z1;

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

i: integer;

Begin

For i:=1 to 10 do

begin

a[i]:=2*i – 1;

write(a[i]:3);

end;

end.

№ 2 Program z2; var A: array [1..5] of integer;  i: integer; Begin Randomize;  For i :=1 to 5 do  A [ i ]:= random (-15,15);  write(a[i]:4); end; End.

№ 2

Program z2;

var A: array [1..5] of integer;

i: integer;

Begin

Randomize;

For i :=1 to 5 do

A [ i ]:= random (-15,15);

write(a[i]:4);

end;

End.

№ 3 Program z3; Var a: array[1..7] of integer;  i: integer; Begin For i:=1 to 7 do  readln (a[i]); end.

№ 3

Program z3;

Var a: array[1..7] of integer;

i: integer;

Begin

For i:=1 to 7 do

readln (a[i]);

end.


Скачать

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

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

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