'

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

Понравилась презентация – покажи это...





Слайд 0

Одномерный массив Turbo Pascal 9 класс


Слайд 1

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of integer ; I : byte; Begin For i:=1 to 10 do Readln (a[i]); End;


Слайд 2

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A: array [1..10] of integer; I : byte Begin For i :=1 to 10 do A [ i ]:= random (10); End;


Слайд 3

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? Var A: array [1..10] of integer; I : byte ; Begin For i :=1 to 10 do Write ( a [ i ],’ ‘); End;


Слайд 4

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? Var A: array [1..10] of integer; I : byte ; Begin For i:=1 to 10 do Writeln (‘a[‘, i,’]=’, a[i]); End;


Слайд 5

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? var a : array [1..100] of integer; I,n, s : integer; begin writeln('Вводите размер массива'); readln(n); for i:=1 to n do readln(a[i]); s:=0; for i:=1 to 10 do s:=s+a[i]; writeln('ответ'); writeln(s); readln; end.


Слайд 6

Что делает программа, как работает? Var a:array[1..n] of integer; s,i:integer; Begin s:=0; for i:=1 to n do begin read(a[i]); if a[i]>0 then s:=s+a[i]; end; writeln('s=',s); readln; end.


Слайд 7

var A: array[1..10] of integer; s: integer; i: integer; temp: integer; begin FOR I:=1 to 10 do begin WriteLn ('Введи число №', i); ReadLn(A[i]); end; FOR I:=1 to 10 do begin Write (A[i]); Write(' '); end; i:=1; While i<=10 do begin temp:= A[i]; A[i]:= A[i+1]; A[i+1]:=temp; i:=i+2; end; FOR i:=1 to 10 do Write (A[i]); end.


Слайд 8

Var i: Byte; A: Array[1..5] Of Integer; M: Integer; Begin Randomize; For i:=1 To 5 Do A[i]:=Random(11); WriteLn('Исходный массив'); For i:=1 To 5 Do Write(A[i], ' '); M:=A[1]; For i:=2 To 5 Do If M > A[i] Then M:=A[i]; WriteLn( M); End.


Слайд 9

const N=30; var a:array[1..N] of real; Max1, Max2, i: real; begin Max1:=a[1]; Max2:=a[1]; if a[2]>Max1 then Max1:=a[2] else Max2:=a[2]; for i:=3 to N do begin if a[i]>Max1 then begin Max2:=Max1; Max1:=a[i]; end else if a[i]>Max2 then Max2:=a[i]; end; writeln(Max2); end.


Слайд 10

const N=30; var a:array[1..N] of integer; MaxSum, MaxNum, i: integer; begin MaxNum:=1; MaxSum:=a[1]+a[2]; for i:=2 to N-1 do begin if a[i]+a[i+1]>MaxSum then begin MaxNum:=i; MaxSum:=a[i]+a[i+1]; end end; writeln(MaxNum); end.


×

HTML:





Ссылка: