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

Содержание

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,']= ');

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

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


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

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

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

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