close

Вход

Забыли?

вход по аккаунту

?

массивы и циклы

код для вставкиСкачать
Урок 2 по циклам. Массивы
Проект "Благотворительность"
Применение циклов, 2 урок. Массивы
Массивы.. это что?
Последовательность однородных элементов, определенная одним именем и имеющая один тип, называется массивом. Каждый элемент имеет свое значение и индексы, определяющие его место в массиве. Массив, элементы которого однозначно определены одним индексом - называется линейным или одномерным.
Массив определяется до его применения:
var
Mark:array[0..19] of integer;
Name:array[1..50] of string;
Массивы и циклы
Значение любого элемента массива определяется командой присваивания типа
Mark[5]:=11;
Mane[28]:='Иванов';
Но гораздо удобнее присваивать значения элементам массива в цикле. Такое задание первоначальных значений элементов называется инициализацией массива. Например, необходимо записать в массив фамилии учеников, введенные учителем в Memo:
for i:=0 to Memo1.Lines.Count-1 do
Name[i]:=Memo.Lines[i];
Типовые задачи. Нахождение суммы и среднего значения.
Найти среднее значение чисел, записанных в Memo:
var
number:array[0..100] of integer;
i, summa:integer;
srednee:real;
begin
summa:=0;
for i:=0 to Memo1.Lines.Count-1 do begin
number[i]:=StrToInt(Memo.Lines[i]);
summa:=summa+number[i];
end;
srednee:=summa/Memo1.Lines.Count;
Edit1.Text:=FloatToStr(srednee);
end;
Типовые задачи. Нахождение максимума и минимума.
Найти максимальное число в массиве mas(i) из Memo:
var
mas:array[0..100] of integer;
i, max:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
mas[i]:=StrToInt(Memo.Lines[i]);
max:=mas[0];
for i:=1 to Memo1.Lines.Count-1 do
if max<mas[i] then max:=mas[i];
Edit1.Text:=IntToStr(max);
end;
Типовые задачи. Нахождение количества элементов, больших А
Найти, сколько в массиве mas(i) элементов, больших 5:
var
mas:array[0..100] of integer;
i, count5:integer;
begin
count5:=0;
for i:=0 to Memo1.Lines.Count-1 do begin
mas[i]:=StrToInt(Memo1.Lines[i]);
if mas[i]>5 then count5+=1;
end;
Edit1.Text:=IntToStr(count5);
end;
Проект "Журнал"
Изменить проект "Журнал", введя массивы учеников и оценок. Массив учеников заполняется учителем, а оценок - формируется случайным образом. После заполнения оценками вычислить следующие параметры:
1.
Средняя оценка по всем ученикам.
2.
Максимальная оценка
3.
Фамилия ученика, получившего минимальную оценку
Кнопка "Фамилия двоечника"
var
family:array[0..19] of string;
mark:array[0..19] of integer;
i, min, imin:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do begin
family[i]:=Memo1.Lines[i];
mark[i]:=StrToInt(Memo2.Lines[i]);
end;
min:=mark[0]; imin:=0;
for i:=0 to Memo1.Lines.Count-1 do
if min>mark[i] then begin
min:=mark[i]; imin:=i;
end;
Edit1.Text:=family[imin];
end;
Задание
1.
Собственно, оно уже было
2.
Каждый ученик получает свое индивидуальное задание
Автор
sob-mk
sob-mk146   документов Отправить письмо
Документ
Категория
Школьные материалы
Просмотров
95
Размер файла
50 Кб
Теги
массивы, цикл
1/--страниц
Пожаловаться на содержимое документа