Uploaded by hapiwog823

Lektsia Odnomernye massivy prodolzhenie

advertisement
Лекция № 2
Тема: Одномерные массивы
Основные блоки для составления блок-схем:
1) Подготовка: символ отображает модификацию (изменение) команды
или группы команд; используется как символ отображения структуры цикл с
параметром (рис. 5).
2) Решение (условный символ): в данном пособии используется для
более наглядного отображения структур итерационных циклов: для цикла с
предусловием (рис. 6, а), с постусловием (рис. 6, б).
Задание № 1: Задан массив А(30), получить массив В(30) из массива А
путем умножения каждого элемента массива на 0.05.Вывести исходный
1
массив и полученный в виде двух столбцов. Составить блок-схему алгоритма
и программу на языке Паскаль.
Программа имеет вид:
PROGRAM ERTY1;
Type
vector=array [1..30] of real;
Var A,B:vector;
i, k : integer;
begin
for i : = 1 to 30 do begin
writeln(‘введите [‘, i:2, ‘] элемент’);
readln(A[i]); end;
for i : = 1 to 30 do
B[i]:=A[i]*0.05;
for i : = 1 to 30 do
writeln(‘A[‘,i:2,’]= ‘,A[i]:5:2,’ B[‘,i:2,’]= ‘,B[i]:6:3);
end.
2
Задание № 2: Найти максимальный элемент в массиве.
Программа на языке Паскаль имеет вид:
Program Max_element_massiva ;
Var i, n, max : integer ;
A : array [1..100] of integer;
Begin
Writeln('Введите количество элементов массива') ;
Readln(N) ;
3
Randomize;
For i := 1 to N do
begin
A[i] := Random(100);
Writeln (‘A[‘,i:2,’]= ‘,A[i]:3);
end;
Max := A[1];
For i := 2 to N do
if A[i]>Max then Max := A[i];
Writeln('Максимальный элемент массива = ',Max:3) ;
Readln ;
End.
4
Download