Презентация на тему к уроку Одномерные массивы

10 = 4
46 div 200 = 0
543 mod 10

= 3
-9 mod 2 =-
6) Как отрезать 2 последних цифры числа?1
7) Как проверить что последняя цифра числа =5?
8) Что такое массив?

Разминка Математические задачи с использованием операций DIV и MOD

Var
k, m: integer;

Dat: array[1..10] of integer;
Begin   
 Dat[1] := 12; Dat[2] := 15; Dat[3] := 17;
Dat[4] := 15;    Dat[5] := 14; Dat[6] := 12;    Dat[7] := 10;
Dat[8] := 13;    Dat[9] := 14; Dat[10] := 15;
   m := 0;  
   for k := 1 to 10 do      
  if Dat[k]=15 then     m := m + 1;         
writeln(m);
End. 3

integer;
Dat: array [1..10] of integer;
Begin    

Dat[1] := 12; Dat[2] := 15;    Dat[3] := 17;
Dat[4] := 15;    Dat[5] := 14; Dat[6] := 12;    Dat[7] := 10;
Dat[8] := 13;    Dat[9] := 14; Dat[10] := 15;   
 m := 0;   
 for k := 1 to 10 do      
 if Dat[k] > m then  m := Dat[k];       
writeln(m);
End.1 317

n: integer;
Dat: array[1..10] of integer;
Begin   

 Dat[1] := 7; Dat[2] := 9;    Dat[3] := 10; Dat[4] := 5;  
  Dat[5] := 6; Dat[6] := 7;    Dat[7] := 9; Dat[8] := 8;   
 Dat[9] := 6; Dat[10] := 9;    m := 10;    n := 0;  
  for k := 1 to 10 do      
 if Dat[k] < m then       
 begin     m := Dat[k];   n := k;   end;  
  writeln(n);
End. 4

Sea: array[1..12] of integer;

Begin  
Sea[1]:=170; Sea[2]:=170;  Sea[3]:=190; Sea[4]:=210;  Sea[5]:=230; Sea[6]:=220;  Sea[7]:=240; Sea[8]:=160;  Sea[9]:=190; Sea[10]:=210;  Sea[11]:=170; Sea[12]:=170;
 s := 100;  
for k := 1 to 12 do    
 if Sea[k] > 220 then  begin s := s + Sea[k];      end; writeln(s);
End. 5

Элементы массива могут принимать целые значения от –10 000

до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа не делятся на 5. В данной задаче под парой подразумевается два подряд идущих элемента массива.

k:= 0;
for i := 1 to N-1 do   
begin   
if (a[i] mod 5 <> 0) and (a[i+1] mod 5 <> 0)
then     k = k + 1;   
end;
writeln(k);

научить решать задачи, надо их решать!».

Д. Пойа.

массива могут принимать целые значения от –10 000 до

10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа не делятся на 5. В данной задаче под парой подразумевается два подряд идущих элемента массива.

k:= 0;
for i := 1 to N-1 do
begin
if (a[i] mod 5 <> 0) and (a[i+1] mod 5 <> 0)
then k = k + 1;
end;
writeln(k);

массива могут принимать целые значения от 0 до 10

000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа трехзначные. В данной задаче под парой подразумевается два подряд идущих элемента массива.

const     
N = 30;
var     a: array [1..N] of integer;    
 i, j, k: integer;
begin     
for i := 1 to N do         
readln(a[i]);    
 ...  
end.

Элементы массива могут принимать целые значения от −10 000

до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 7. В данной задаче под парой подразумевается два подряд идущих элемента массива.

const     
N = 30;
var     a: array [1..N] of integer;    
 i, j, k: integer;
begin     
for i := 1 to N do         
readln(a[i]);    
 ...  
end.

 

40 элементов. Элементы массива могут принимать целые значения от

–100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых чётна, а произведение больше 100. Под парой подразумевается два подряд идущих элемента массива.

j, k: longint;
begin    
for i := 1 to N do

Readln (a[i]);
k := 0;

   if (a[i] + a[i + 1] ) mod 2 = 0 and a[i] * a[i + 1] > 100
    then         inc(k);
writeln(k);
end.

j, k: longint;
begin    
for i := 1 to N do

Readln (a[i]);
k := 0;
for i := 1 to N-1 do
    if ((a[i] + a[i + 1] ) mod 2 = 0) and (a[i] * a[i + 1] > 100)
    then         inc(k);
writeln(k);
end.

и столбца.
3

и столбца.
3

выполняются вычисления в ячейке.
3

выполняются вычисления в ячейке.
3

ячейка, без пробела между ними.
3

ячейка, без пробела между ними.

,
,

,

Разгадайте ребус...

виде, которое используется для анализа и сравнения данных .

Большинство диаграмм строятся  в прямоугольной системе координат.