🗊Презентация Вставка и удаление элементов массива

Нажмите для полного просмотра!
Вставка и удаление элементов массива, слайд №1Вставка и удаление элементов массива, слайд №2Вставка и удаление элементов массива, слайд №3Вставка и удаление элементов массива, слайд №4Вставка и удаление элементов массива, слайд №5Вставка и удаление элементов массива, слайд №6Вставка и удаление элементов массива, слайд №7Вставка и удаление элементов массива, слайд №8Вставка и удаление элементов массива, слайд №9Вставка и удаление элементов массива, слайд №10

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

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


Слайд 1





Вставка и удаление элементов массива
Описание слайда:
Вставка и удаление элементов массива

Слайд 2





Удаление элемента
  Задан одномерный массив. Удалить элемент   с индексом j. Значение j вводится с клавиатуры.
  Вывести полученный массив.
Описание слайда:
Удаление элемента Задан одномерный массив. Удалить элемент с индексом j. Значение j вводится с клавиатуры. Вывести полученный массив.

Слайд 3






program udalenie;
var
  i, n, j: integer; 
  a: array[1..50] of real ;
begin 
 write(‘ввод n ’); readln(n);                  
 writeln(‘ввод элементов массива’);
 for i:=1 to n do      
  begin
    write(‘a[’, i, ‘] =  ‘);   readln(a[i]);                  
  end;
Описание слайда:
program udalenie; var i, n, j: integer; a: array[1..50] of real ; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 4






  

write (‘ввод индекса удаляемого элемента’);
 readln(j);
for i:=j to n-1 do    
    a[i]:= a[i+1];
for i:=1 to n-1 do      
write(a[ i]:5:2 );   
 end.
Описание слайда:
write (‘ввод индекса удаляемого элемента’); readln(j); for i:=j to n-1 do a[i]:= a[i+1]; for i:=1 to n-1 do write(a[ i]:5:2 ); end.

Слайд 5





Вставка элемента в массив
Задан одномерный массив. Вставить новый элемент массива в позицию t. Значение t вводится с клавиатуры. 
Значение нового элемента вводится с клавиатуры
Вывести полученный массив.
Описание слайда:
Вставка элемента в массив Задан одномерный массив. Вставить новый элемент массива в позицию t. Значение t вводится с клавиатуры. Значение нового элемента вводится с клавиатуры Вывести полученный массив.

Слайд 6






program vstavka;
var
  i, n, t: integer; 
  a: array[1..50] of real ;
b: real;
begin 
 write(‘ввод n ’); readln(n);                  
 writeln(‘ввод элементов массива’);
 for i:=1 to n do      
  begin
    write(‘a[’, i, ‘] =  ‘);   readln(a[i]);                  
  end;
Описание слайда:
program vstavka; var i, n, t: integer; a: array[1..50] of real ; b: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 7






  

write (‘ввод   позиции t’);
 readln(t);
readln(b);              { ввод значения элемента}
for i:=n downto  t do    
    a[i+1]:= a[i];
    a[t]:=b;
for i:=1 to n+1 do      
write(a[i]:4:1 );   
 end.
Описание слайда:
write (‘ввод позиции t’); readln(t); readln(b); { ввод значения элемента} for i:=n downto t do a[i+1]:= a[i]; a[t]:=b; for i:=1 to n+1 do write(a[i]:4:1 ); end.

Слайд 8





 Удаление нескольких элементов
Задан одномерный массив. Удалить из массива все элементы, кратные 3.
Вывести полученный массив.
Описание слайда:
Удаление нескольких элементов Задан одномерный массив. Удалить из массива все элементы, кратные 3. Вывести полученный массив.

Слайд 9






program udalenie_nesk;
var
  i, j, n, k: integer; 
  a: array[1..50] of integer;
begin 
 write(‘ввод n ’); readln(n);                  
 writeln(‘ввод элементов массива’);
 for i:=1 to n do      
  begin
    write(‘a[’, i, ‘] =  ‘);   readln(a[i]);                  
  end;
Описание слайда:
program udalenie_nesk; var i, j, n, k: integer; a: array[1..50] of integer; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 10






for i:=n downto  1 do    
 if a[i] mod 3 = 0 then
   begin
    k:=k+1;  
     for j:=i to n-k do    
       a[j]:= a[j+1];
    end;
for i:=1 to n-k do      
write(a[i]:5:1);   
  end.
Описание слайда:
for i:=n downto 1 do if a[i] mod 3 = 0 then begin k:=k+1; for j:=i to n-k do a[j]:= a[j+1]; end; for i:=1 to n-k do write(a[i]:5:1); end.



Похожие презентации
Mypresentation.ru
Загрузить презентацию