Презентация, доклад на тему Перезентация по информатике на тему: Одномерные массивы 9 класс

Содержание

Лекции по Паскалю Тема №6Одномерные массивыМассив-это упорядоченный набор элементов одного типа.A[1]:=12; A[5]:=-12;A[2]:=45; A[6]:=78;A[3]:=5; A[7]:=-12;A[4]:=90; A[8]:=0; A[9]:=42;

Слайд 1
Лекции
по
Паскалю.

Тема:6 Массивы-1

Лекции по Паскалю.Тема:6 Массивы-1

Слайд 2Лекции по Паскалю Тема №6
Одномерные массивы

Массив-это упорядоченный набор элементов одного типа.




A[1]:=12;

A[5]:=-12;
A[2]:=45; A[6]:=78;
A[3]:=5; A[7]:=-12;
A[4]:=90; A[8]:=0;
A[9]:=42;
Лекции по Паскалю Тема №6Одномерные массивыМассив-это упорядоченный набор элементов одного типа.A[1]:=12;    A[5]:=-12;A[2]:=45;

Слайд 3Лекции по Паскалю Тема №6
Одномерные массивы






A[1]:=12; A[5]:=-12;

A : Array[1..9] of integer;

Лекции по Паскалю Тема №6Одномерные массивыA[1]:=12;    A[5]:=-12;     A : Array[1..9]

Слайд 4Лекции по Паскалю Тема №6
Одномерные массивы






A[1]:=12; A[5]:=-12;

A : Array[1..9] of integer;

Формат команды:
<Имя массива> : Array[<гранич. пара>] of <тип массива>;

Лекции по Паскалю Тема №6Одномерные массивыA[1]:=12;    A[5]:=-12;     A : Array[1..9]

Слайд 5Лекции по Паскалю Тема №6
Одномерные массивы






A : Array[1..9] of integer;

Формат

команды:
<Имя массива> : Array[<гранич. пара>] of <тип массива>;
A[12]:=?
Лекции по Паскалю Тема №6Одномерные массивыA : Array[1..9] of integer; Формат команды: : Array[] of ;A[12]:=?

Слайд 6Лекции по Паскалю Тема №6
Одномерные массивы

Примеры:



A,B : Array[1..9] of Integer;
X :

Array[0..100] of Real;
C110z : Array[20..110] of Char;


C110z[21]:=?

Лекции по Паскалю Тема №6Одномерные массивыПримеры:A,B : Array[1..9] of Integer;X : Array[0..100] of Real;C110z : Array[20..110] of

Слайд 7Лекции по Паскалю Тема №6
Одномерные массивы

Примеры:



A,B : Array[1..9] of Integer;
X :

Array[0..100] of Real;
C110z : Array[20..110] of Char;


C110z[21]:=’’; пустой символ

Лекции по Паскалю Тема №6Одномерные массивыПримеры:A,B : Array[1..9] of Integer;X : Array[0..100] of Real;C110z : Array[20..110] of

Слайд 8Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з команду ввода(ручной

ввод)

Program Mas1;
Var i:Integer;
A:Array[1..9] of Integer;
Begin
For i:=1 to 9 Do (далее не писать)
ReadLn(A[i]);


_10
_20
_30
_-12

A[1]=10

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з команду ввода(ручной ввод) Program Mas1;Var   i:Integer;

Слайд 9Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з команду ввода(ручной

ввод)

Program Mas1;
Var i:Integer;
A:Array[1..9] of Integer;
Begin
For i:=1 to 9 Do
begin
Write(’A[’,i, ’]:=’);
ReadLn(A[i]);
end;


A[1]=10
A[2]=20
A[3]=30
A[4]=-12
A[5]=1

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з команду ввода(ручной ввод) Program Mas1;Var   i:Integer;

Слайд 10Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з команду ввода(ручной

ввод)

Program Mas1;
Var i:Integer;
A:Array[1..9] of Integer;
Begin
For i:=1 to 9 Do
begin
Write(’A[’,i, ’]:=’);
ReadLn(A[i]);
end;
{Вывод}
For i:=1 to 9 Do
Write(A[i]);

End.


10203040-12

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з команду ввода(ручной ввод) Program Mas1;Var   i:Integer;

Слайд 11Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з команду ввода(ручной

ввод)

Program Mas1;
Var i:Integer;
A:Array[1..9] of Integer;
Begin
For i:=1 to 9 Do
begin
Write(’A[’,i, ’]:=’);
ReadLn(A[i]);
end;
{Вывод}
For i:=1 to 9 Do
Write(A[i], ’ ’);

End.


10 20 30 40 -12 45 -4 0

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з команду ввода(ручной ввод) Program Mas1;Var   i:Integer;

Слайд 12Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з команду ввода(ручной

ввод)

Program Mas1;
Var i:Integer;
A:Array[1..9] of Integer;
Begin
For i:=1 to 9 Do
begin
Write(’A[’,i, ’]:=’);
ReadLn(A[i]);
end;
{Вывод}
For i:=1 to 9 Do
WriteLn(A[i]);

End.


10
20
30
40
-12
45


Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з команду ввода(ручной ввод) Program Mas1;Var   i:Integer;

Слайд 13Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з генератор случайных

чисел
Program Mas2;
Var i:Integer;
A:Array[1..100] of Integer;
Begin
For i:=1 to 100 Do
A[i]:=random(91);
{Вывод}
For i:=1 to 100 Do
Write(A[i], ’ ’);
End.


Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з генератор случайных чиселProgram Mas2;Var   i:Integer;	 A:Array[1..100]

Слайд 14Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з функцию

Program Mas3;
Var

i:Integer;
A:Array[1..25] of Integer;
Begin
For i:=1 to 25 Do
A[i]:=2*i+sqr(i)-45;
{Вывод}
For i:=1 to 25 Do
Write(A[i], ’ ’);

End.


Используемая функция:
Y=2x+x2-45

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з функциюProgram Mas3;Var   i:Integer;	 A:Array[1..25] of Integer;Begin	For

Слайд 15Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з постоянную

Program Mas4;
Var

i:Integer;
A:Array[1..9] of Integer;
Begin
A[1]:=12;
A[2]:=45;
A[3]:=5;
A[4]:=90;
{Вывод}
For i:=1 to 9 Do
Write(A[i],’ ’);

End.


Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з постояннуюProgram Mas4;Var   i:Integer;	 A:Array[1..9] of Integer;BeginA[1]:=12;A[2]:=45;A[3]:=5;A[4]:=90;

Слайд 16Лекции по Паскалю Тема №6
Одномерные массивы

Ввод одномерных массивов ч/з постоянную константу

Program

Mas5;
uses crt;
Const B:Array[1..5] of Integer=(5,8,7,9,14);
C:Array[1..3] of Real=(1.3,3.8,1.4);
D:Array[1..4] of Char=('a','c','7','*');
Var i:Integer;
Begin
{Вывод}
For i:=1 to 5 Do
Write(B[i],' ');

End.

Лекции по Паскалю Тема №6Одномерные массивыВвод одномерных массивов ч/з постоянную константуProgram Mas5;uses crt;Const B:Array[1..5] of Integer=(5,8,7,9,14);

Слайд 17Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы
Сгенерировать одномерный целочисленный массив

в количестве n элементов. Числа находятся в интервале от 0 до 45.
Вывести массив на экран.
Вычислить сумму элементов массива.
3. Найти максимальный элемент массива.
4. Сформировать массив по возрастанию.





Лекции по Паскалю Тема №6Решение задач наодномерные массивыСгенерировать одномерный целочисленный массив в количестве n элементов. Числа находятся

Слайд 18Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы
Сгенерировать одномерный целочисленный массив

в количестве n элементов. Числа находятся в интервале от 0 до 45.
Вывести массив на экран.
Сформировать массив по возрастанию





Исходный массив:
23 5 41 43 23 5 6 41 3 23 0
Полученный массив:
0 3 5 5 6 23 23 23 41 41 43

Лекции по Паскалю Тема №6Решение задач наодномерные массивыСгенерировать одномерный целочисленный массив в количестве n элементов. Числа находятся

Слайд 19Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


Program Mas5;
Const n=10;
Var

I,P:Integer;
A:Array[1..n] of Integer;
Begin



Лекции по Паскалю Тема №6Решение задач наодномерные массивыProgram Mas5;Const n=10;Var   I,P:Integer;	 A:Array[1..n] of Integer;Begin

Слайд 20Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


Program Mas5;
Const n=10;
Var

I,P,S:Integer;
A:Array[1..n] of Integer;
Begin

For i:=1 to n Do
A[i]:=random(46);
WriteLn(`Исходный массив`);
{Вывод}
For i:=1 to n Do
Write(A[i],’ ’);


Лекции по Паскалю Тема №6Решение задач наодномерные массивыProgram Mas5;Const n=10;Var   I,P,S:Integer;	 A:Array[1..n] of Integer;BeginFor i:=1

Слайд 21Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


Begin
For i:=1 to n

Do
A[i]:=random(45);
WriteLn(`Исходный массив`);
{Вывод}
For i:=1 to n Do
Write(A[i],’ ’);
S:=0;
For i:=1 to n Do
S:=S+A[i];
Writeln;
WriteLn(’S=’;S);

Лекции по Паскалю Тема №6Решение задач наодномерные массивыBeginFor i:=1 to n Do	  A[i]:=random(45);

Слайд 22Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


i:=0;
Repeat
i:=i+1;
IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>n;

5 7 9 2

Лекции по Паскалю Тема №6Решение задач наодномерные массивыi:=0;Repeati:=i+1;IF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>n;5 7 9 2

Слайд 23Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


i:=0;
Repeat
i:=i+1;
IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>n;

5 7 9 2

Лекции по Паскалю Тема №6Решение задач наодномерные массивыi:=0;Repeati:=i+1;IF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>n;5 7 9 2

Слайд 24Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


i:=0;
Repeat
i:=i+1;
IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>n-1;

5 7 9 2

Лекции по Паскалю Тема №6Решение задач наодномерные массивыi:=0;Repeati:=i+1;IF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>n-1;5 7 9 2

Слайд 25Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


i:=0;
Repeat
i:=i+1;
IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>=n-1;

5 7 9 2

Лекции по Паскалю Тема №6Решение задач наодномерные массивыi:=0;Repeati:=i+1;IF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>=n-1;5 7 9 2

Слайд 26Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


i:=0;
Repeat
i:=i+1;
IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>=n-1;
Лекции по Паскалю Тема №6Решение задач наодномерные массивыi:=0;Repeati:=i+1;IF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>=n-1;

Слайд 27Лекции по Паскалю Тема №6
Решение задач на
одномерные массивы


IF A[i]>A[i+1] then begin
P:=A[i];
A[i]:=A[i+1];
A[i+1]:=P;
i:=0;
end;
Until

I>=n-1;
WriteLn(`Полученный массив`);
For i:=1 to n Do
Write(A[i],’ ’);
End.

Лекции по Паскалю Тема №6Решение задач наодномерные массивыIF A[i]>A[i+1] then beginP:=A[i];A[i]:=A[i+1];A[i+1]:=P;i:=0;end;Until I>=n-1;WriteLn(`Полученный массив`);

Что такое shareslide.ru?

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


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть