Решение задания №10. Паскаль - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Решение задания №10. Паскаль. Доклад-сообщение содержит 11 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

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

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

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

Слайд 4

Описание слайда:

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

Слайд 5

Описание слайда:

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

Слайд 6

Описание слайда:

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; 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.

Слайд 7

Описание слайда:

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; 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.

Слайд 8

Описание слайда:

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

Слайд 9

Описание слайда:

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

Слайд 10

Описание слайда:

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; 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.

Слайд 11

Описание слайда:

Решение задания №10 Паскаль Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; 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.