Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
10 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
74.57 kB
Просмотров:
80
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Вставка и удаление элементов массива
№2 слайд
Содержание слайда: Удаление элемента
Задан одномерный массив. Удалить элемент с индексом 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;
№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.
№5 слайд
Содержание слайда: Вставка элемента в массив
Задан одномерный массив. Вставить новый элемент массива в позицию 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;
№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.
№8 слайд
Содержание слайда: Удаление нескольких элементов
Задан одномерный массив. Удалить из массива все элементы, кратные 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;
№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.