ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 26.03.2024
Просмотров: 14
Скачиваний: 0
СОДЕРЖАНИЕ
Var A:array[1..25] of integer;
Var A:array[1..25] of integer;
1)Найдите ошибки при описании массива и правильный вариант:
2)Сколько элементов в массиве и каким способом задаются элементы массива?
Var A: array[1..100] of integer;
3) Найдите ошибки при задании массива и правильный вариант :
а) For i=1 to 15 do б) For i:=1 to 15 do;
For i:=1 to 15 do For i:=1 to 15 do
a[i]:=-10+random[21]; a[i]:=-10+random(21);
4)Зачем нужен каждый алгоритм (что делает с массивом)?
For i:=1 to 20 do For i:=1 to 15 do
s:=s+a[i]; if a[i]>0 then k:=k+1;
if a[i] mod 2 =0 then write(a[i]:4);
Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.
10, 30, -7, 15, 75, 16, -5, 0, 14, -10
10, 75, -7, 15, 30, 16, -5, 0, 14, -10
Тема урока: «Перестановка элементов в одномерном массиве»
Цель урока: научиться переставлять элементы массива
Схема перестановки двух элементов с использованием промежуточной переменной
Алгоритм перестановки двух элементов в общем виде.
Var A:array[1..10] of integer;
Не существует проблем,
Не содержащих в себе дар,
Предназначенный вам.
Вы ищите проблемы,
Потому что вам нужны их дары.
Ричард Бах.
План построения программы.
1)описание переменных.
2)стандартный ввод-вывод массива.
3)поиск и удвоение положительных элементов
4)вывод элементов массива в строку.
1)описание переменных.
Var A:array[1..25] of integer;
i: integer;
2)стандартный ввод-вывод исходного массива.randomize;
For i:=1 to 25 do
Begin
a[i]:=-10+random(21);
write(a[i]:4);
end; writeln;
3) поиск и удвоение положительных элементов.
For i:=1 to 25 do
If a[i]>0 then a[i]:=2*a[i];
4) вывод обработанного массива в строку.For i:=1 to 25 do
write(a[i]:4);
writeln;
Var A:array[1..25] of integer;
i: integer;
begin
randomize;
For i:=1 to 25 do
Begin
a[i]:=-10+random(21);
write(a[i]:4);
end; writeln;
For i:=1 to 25 do
If a[i]>0 then a[i]:=2*a[i];
For i:=1 to 25 do
write(a[i]:4);
writeln;
end.
1)Найдите ошибки при описании массива и правильный вариант:
а) Var A: array(1..100) of integer;
б) Var A: array[1…100] of integer;
в) Var A: array[1..10] of readln;
г) Var A: array[1..10] of integer;
2)Сколько элементов в массиве и каким способом задаются элементы массива?
Var A: array[1..100] of integer;
i:integer;
Begin
For i:=1 to 15 do
readln(A[i]);
3) Найдите ошибки при задании массива и правильный вариант :
а) For i=1 to 15 do б) For i:=1 to 15 do;
readln(A[i]); readln(A[i]);
в)randomize; г)randomize;
For i:=1 to 15 do For i:=1 to 15 do
Begin Begin
a[i]:=-10+random[21]; a[i]:=-10+random(21);
write(a(i):4); write(a[i]:4);
end; writeln; end; writeln;
4)Зачем нужен каждый алгоритм (что делает с массивом)?
а) s:=0; б)k:=0
For i:=1 to 20 do For i:=1 to 15 do
s:=s+a[i]; if a[i]>0 then k:=k+1;
в) For i:=1 to 20 doif a[i] mod 2 =0 then write(a[i]:4);
г)max:=a[1];For i:=1 to 20 do
if a[i]>max then max:=a[i];
Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.
Был массив:
10, 30, -7, 15, 75, 16, -5, 0, 14, -10
Стал массив:10, 75, -7, 15, 30, 16, -5, 0, 14, -10
Тема урока: «Перестановка элементов в одномерном массиве»
Цель урока: научиться переставлять элементы массива
Схема перестановки двух элементов с использованием промежуточной переменной
Алгоритм перестановки двух элементов в общем виде.
pr:=a[i];
a[i]:=a[j];
a[j]=pr;
План построения программы.
1)описание переменных.
2)стандартный ввод-вывод массива.
3) перестановка элементов.
4)вывод элементов массива в строку.
Program z1;
Var A:array[1..10] of integer;
i,pr: integer;
begin
randomize;
For i:=1 to 10 do
Begin
a[i]:=-10+random(21);
write(a[i]:4);
end; writeln;
pr:=a[2];
a[2]:=a[5];
a[5]:=pr;
For i:=1 to 10 do
write(a[i]:4);
writeln;
end.
Пришло время попробовать свои силы за компьютером.
Домашнее задание.
Повторить известные алгоритмы обработки массивов, выучить алгоритм перестановки.