Презентация, доклад на тему Учебная презентация Основы алгоритмизации. Язык программирования Паскаль. Массивы.

Содержание

x1 x2 x3 x4 x5a b c d e f g h

Слайд 1Описание массива
Опис масиву

Описание массиваОпис масиву

Слайд 2x1 x2 x3 x4 x5
a b c d e f g

h
x1 x2 x3 x4 x5a b c d e f g h

Слайд 3x[1] x[2] x[3] x[4] x[5]
x1 x2 x3 x4 x5

x[1] x[2] x[3] x[4] x[5]x1 x2 x3 x4 x5

Слайд 4x : array [1.. 5] of real
x : array [1.. 5]

of integer
x : array [1.. 5] of realx : array [1.. 5] of integer

Слайд 5Введення масиву
Program RRR; Var x : array [1.. 155] of integer; i :

integer; Begin For i := 1 to 155 do Begin Write ( 'x[' ,i, '] = ' ); ReadLn (x[i]); End; End.
Введення масивуProgram RRR; Var x : array [1.. 155] of integer; i : integer; Begin For i

Слайд 6Виведення
For i := 1 to 155 do Begin WriteLn (

'x[' ,i, '] = ' , x[i] ); End;
ВиведенняFor i := 1 to 155 do Begin WriteLn ( 'x[' ,i, '] =

Слайд 7Знайти суму всiх цiлих чисел з 1 до К включно.

Знайти суму всiх цiлих чисел з 1 до К включно.

Слайд 8S:=0;
For i:=1 to K do
S := S + i;

S:=0;For i:=1 to K doS := S + i;

Слайд 9Знайти суму всiх елементів масиву, який складається з К цілих чисел.

Знайти суму всiх елементів масиву, який складається з К цілих чисел.

Слайд 10S:=0;
For i:=1 to K do
S := S + i;
S:=0;
For i:=1 to

K do

S := S + x[i];

S:=0;For i:=1 to K doS := S + i;S:=0;For i:=1 to K doS := S + x[i];

Слайд 11Program Masiv;
Var x : array [1..100] of integer;

i,K,S : integer;
Begin
Write ('K= ');
readln (K);
For i:=1 to K do
begin
Write (' x[',i,']= ');
readLn (x[i]);
end;
S:=0;
For i:=1 to K do
S:=S+x[i];
Write ('Сума всіх елементів масиву S = ');
WriteLn (S);
End.




Program Masiv; Var x : array [1..100] of integer; i,K,S : integer;Begin

Слайд 12Program Masiv;
Var x : array [1..100] of integer;

i,K,S : integer;
Begin

Program Masiv; Var x : array [1..100] of integer; i,K,S : integer;Begin

Слайд 13Write ('K= ');
ReadLn (K);
For i:=1 to K do

Begin
Write (' x [' ,i, '] = ');
ReadLn ( x [ i ] );
End;
Write ('K= '); ReadLn (K); For i:=1 to K do Begin Write (' x

Слайд 14S:=0;
For i:=1 to K do
S := S

+ x [ i ];

S:=0; For i:=1 to K do S := S + x [ i ];

Слайд 15Write ('Сума всіх елементів масиву S = ');
WriteLn (S);
End.

Write ('Сума всіх елементів масиву S = '); WriteLn (S);End.

Слайд 16Масив складається з 10 цілих чисел. Знайти найбільше значення серед елементів

масиву та номер цього елементу.
Масив складається з 10 цілих чисел. Знайти найбільше значення серед елементів масиву та номер цього елементу.

Слайд 17
x[1] → 3
x[2] → -1
x[3] → 2
x[4] → 11
x[5] → 4
x[6]

→ 0

Max → 11

NMax → 4

x[1] → 3x[2] → -1x[3] → 2x[4] → 11x[5] → 4x[6] → 0Max → 11NMax → 4

Слайд 18Program MasMax;
Var

x : array [1..10] of integer;
i, Max, NMax : integer;
Begin
For i:=1 to 10 do
begin
Write (' x[',i,']= ');
readLn (x[i]);
end;
Max := x[1]; NMax := 1;
For i:=2 to 10 do
If x[i]>Max then
Begin
Max := x[i]; NMax := i;
End;
WriteLn ('Найбiльший елемент масиву = ', Max);
WriteLn ('Номер цього елементу = ', NMax);
End.
Program MasMax; Var x : array [1..10] of integer;

Слайд 19Program MasMax;
Var
x : array

[1..10] of integer;
i, Max, NMax : integer;
Begin

Program MasMax; Var x : array [1..10] of integer; i,

Слайд 20For i:=1 to 10 do
begin
Write ('

x[' ,i, ']= ');
readLn (x[i]);
end;
For i:=1 to 10 do begin Write (' x[' ,i, ']= ');

Слайд 21Max := x[1]; NMax := 1;
For i:=2 to 10 do

If x[i]>Max then
Begin
Max := x[i];
NMax := i;
End;
Max := x[1]; NMax := 1; For i:=2 to 10 do If x[i]>Max then

Слайд 22WriteLn ('Найбiльший елемент масиву = ', Max);
WriteLn ('Номер цього елементу

= ', NMax);
End.
WriteLn ('Найбiльший елемент масиву = ', Max); WriteLn ('Номер цього елементу = ', NMax);End.

Слайд 24Знайти середнє значення всiх елементів масиву > 0, який складається з

10 цілих чисел.
Знайти середнє значення всiх елементів масиву > 0, який складається з 10 цілих чисел.

Слайд 25N:=0;
For i:=1 to N do
N := N + 1;
Suma:=0;
For i:=1 to

K do

Suma := Suma + x[i];

If x[i] > 0 Then

If x[i] > 0 Then

N:=0;For i:=1 to N doN := N + 1;Suma:=0;For i:=1 to K doSuma := Suma + x[i];If

Слайд 26Program Masiv;
Var x : array [1..100] of integer;

i,K,S : integer;
Begin
Write ('K= ');
readln (K);
For i:=1 to K do
begin
Write (' x[',i,']= ');
readLn (x[i]);
end;
S:=0;
For i:=1 to K do
S:=S+x[i];
Write ('Сума всіх елементів масиву S = ');
WriteLn (S);
End.




Program Masiv; Var x : array [1..100] of integer; i,K,S : integer;Begin

Слайд 27Program Sered;
Var x : array [1..10] of integer;

i,N,Suma : integer;
Ser : Real;
Begin

Program Sered; Var x : array [1..10] of integer; i,N,Suma : integer;Ser

Слайд 28 For i:=1 to 10 do
Begin
Write

(' x [' ,i, '] = ');
ReadLn ( x [ i ] );
End;
For i:=1 to 10 do Begin Write (' x [' ,i, '] =

Слайд 29Suma:=0; N:=0;
For i:=1 to 10 do
If x [

i ] > 0 Then
Begin
Suma := Suma + x [ i ];
N := N + 1;
End;

Suma:=0; N:=0; For i:=1 to 10 do If x [ i ] > 0 Then

Слайд 30Ser := Sum / N;
Write ('Середнє значення Ser = ');
WriteLn

(Ser);
End.
Ser := Sum / N;Write ('Середнє значення Ser = '); WriteLn (Ser);End.

Слайд 31Масив складається з 10 цілих чисел. Впорядкувати елементи масиву, розташувавши за

зростанням (від меншого до більшого) .
Масив складається з 10 цілих чисел. Впорядкувати елементи масиву, розташувавши за зростанням (від меншого до більшого) .

Слайд 32
x[1] → 3
Min → 3
NMin → 1
Min → -8
NMin → 7

x[1] → 3Min → 3NMin → 1Min → -8NMin → 7

Слайд 37Program MasivMinMax;
Var

x : array [1..10] of integer;
i, j, Min, D, NMin : integer;
Begin
For i:=1 to 10 do
begin
Write (' x[',i,']= ');
readLn (x[i]);
end;
For i:=1 to 9 do
Begin
Min := x[i]; NMin := i;
For j:=i+1 to 10 do
If x[j] Begin
Min := x[j]; NMin := j;
End;
D := x[i]; x[i] := x[NMin]; x[NMin] := D;
End;
WriteLn ('Впорядкований масив');
For i:=1 to 10 do
begin
Write (' x[',i,']= ');
WriteLn (x[i]);
end;
End.
Program MasivMinMax; Var x : array [1..10] of

Слайд 38Program MasivMinMax;
Var x : array [1..10] of integer;

i, j, Min, D, NMin : integer;
Begin

Program MasivMinMax; Var x : array [1..10] of integer; i, j, Min, D, NMin :

Слайд 39For i:=1 to 10 do
begin
Write ('

x[',i,']= ');
readLn (x[i]);
end;

For i:=1 to 10 do begin Write (' x[',i,']= '); readLn (x[i]);

Слайд 40For i:=1 to 9 do
Begin
Min := x[i]; NMin :=

i;
For j:=i+1 to 10 do
If x[j] Begin
Min := x[j]; NMin := j;
End;
D := x[i];
x[i] := x[NMin]; x[NMin] := D;
End;
For i:=1 to 9 do Begin Min := x[i]; NMin := i; For j:=i+1 to 10 do

Слайд 41WriteLn ('Впорядкований масив');
For i:=1 to 10 do
begin

Write (' x[',i,']= ');
WriteLn (x[i]);
end;
End.
WriteLn ('Впорядкований масив'); For i:=1 to 10 do begin Write (' x[',i,']= ');
Скачать презентацию

Похожие презентации

Презентация по информатике на тему Здоровьесберегающие технологии на уроках информатики в средней школе Презентация по информатике на тему Здоровьесберегающие технологии на уроках информатики в средней школе 158
Презентация 8класқа арналған.информатика пәні бойынша Презентация 8класқа арналған.информатика пәні бойынша 169
Роль домашнего задания в учебной деятельности школьников в условия ФГОС Роль домашнего задания в учебной деятельности школьников в условия ФГОС 147
Презентация по информатике База данных и СУБД Презентация по информатике База данных и СУБД 111
Презентация по информатике Основополагающие принципы устройства ЭВМ (10 класс углубленный уровень И.Г. Семакин) Презентация по информатике Основополагающие принципы устройства ЭВМ (10 класс углубленный уровень И.Г. Семакин) 749
Графикалық редактор (5 сынып) Графикалық редактор (5 сынып) 283

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

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

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

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

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

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