Решение задания №10. Паскаль

Слайд 2

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
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 := 2;
  for k := 1  to 10 do   
  if  Dat[k] < 7 then     
  begin        m := m + 1      
end; 
writeln(m)
End.

Чему равна переменная m?

Находятся числа
Меньше 7

Считается их количество

Ответ 3+2=5

Слайд 3

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
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 := 0;
  for k := 1  to 10 do   
  if  Dat[k] < 7 then     
  begin        m := m + Dat[k];      
end; 
writeln(m)
End.

Чему равна переменная m?

Находятся числа
Меньше 7

Считается их сумма

Ответ 17

Слайд 4

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
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 := 50;
  for k := 1  to 10 do   
  if  Dat[k] < 7 then     
  begin        m := m + Dat[k];      
end; 
writeln(m)
End.

Чему равна переменная m?

Находятся числа
Меньше 7

Считается их сумма

Ответ 17+50=67

Слайд 5

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
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 := 50;
  for k := 1  to 10 do   
  if  Dat[k] < 7 then     
  begin        m := m - Dat[k];      
end; 
writeln(m)
End.

Чему равна переменная m?

Находятся числа
Меньше 7

Считается их сумма со знаком
минус

Ответ 50-17=33

Слайд 6

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
Dat[2] := 9;  Dat[3] := 10;
Dat[4] := 6;  Dat[5] := 6;  Dat[6] := 7;
  Dat[7] := 9;  Dat[8] := 8; Dat[9] := 6; 
Dat[10] := 9;  
m := 10;
  for k := 1  to 10 do   
  if  Dat[k] < m then     
  begin        m := Dat[k];      
end; 
writeln(m)
End.

Чему равна переменная m?

Находиться минимальное число.

Запоминается
первое, так как в условии знак <

Ответ 6

Слайд 7

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
Dat[2] := 9;  Dat[3] := 8;
Dat[4] := 9;  Dat[5] := 6;  Dat[6] := 7;
  Dat[7] := 2;  Dat[8] := 8; Dat[9] := 6; 
Dat[10] := 9;  
m := 0;
  for k := 1  to 10 do   
  if  Dat[k] > m then     
  begin        m := Dat[k];      
end; 
writeln(m)
End.

Чему равна переменная m?

Находиться максимальное число.

Запоминается
первое, так как в условии знак >

Ответ 9

Слайд 8

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
Dat[2] := 9;  Dat[3] := 7;
Dat[4] := 6;  Dat[5] := 6;  Dat[6] := 7;
  Dat[7] := 9;  Dat[8] := 8; Dat[9] := 6; 
Dat[10] := 9;  
m :=10;
  for k := 1  to 10 do   
  if  Dat[k]   begin        m := Dat[k];
n:=k;
end; 
writeln(n)
End.

Чему равна переменная n?

Находиться минимальное число.

Выводиться номер первого минимального числа

Ответ 4

Слайд 9

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
Dat[2] := 9;  Dat[3] := 7;
Dat[4] := 6;  Dat[5] := 6;  Dat[6] := 7;
  Dat[7] := 9;  Dat[8] := 8; Dat[9] := 6; 
Dat[10] := 9;  
m := 10;
  for k := 1  to 10 do   
  if  Dat[k] =   begin        m := Dat[k];
n:=k;
end; 
writeln(n)
End.

Чему равна переменная n?

Находиться минимальное число.

Выводиться номер последнего минимального числа

Ответ 9

Слайд 10

Решение задания №10

Паскаль
Var k, m: integer;
 Dat: array[1..10] of integer;
Begin 
Dat[1] := 7; 

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer;
Dat[2] := 9;  Dat[3] := 8;
Dat[4] := 6;  Dat[5] := 6;  Dat[6] := 7;
  Dat[7] := 9;  Dat[8] := 8; Dat[9] := 6; 
Dat[10] := 9;  
m := 0;
  for k := 1  to 10 do   
  if  Dat[k] =>m then     
  begin        m := Dat[k];
n:=k;
end; 
writeln(n)
End.

Чему равна переменная n?

Находиться максимальное число.

Выводиться номер Последнего максимальное число

Ответ 10

Имя файла: Решение-задания-№10.-Паскаль.pptx
Количество просмотров: 46
Количество скачиваний: 0