|
Задание 2.Составьте программу, которая запрашивает размеры двумерного массива, значения его элементов и выводит на очищенный экран получившийся массив. Задание 3.Дополните предыдущую программу так, чтобы вычислялось и выводилось на экран значение: суммы всех элементов массива.
количества 0 в массиве.
произведения ненулевых элементов последней строки.
произведенияположительных элементов последнего столбца.
Контрольные вопросы
Что понимается под массивом?
Как обозначаются в программе элементы массива?
Как объявляются массивы в разделе переменных?
Лабораторная работа 7
Тема: Использование стандартных функций для работы с массивами
Цель: Приобрести практические навыки работы составления алгоритмов обработки массивов.
Оборудование: ПК, ПО TurboPascal Задание 1. Составить программу для получения массива С, элементы которого получатся по формуле cij= aij – bij. n = 3; A = В = Задание 2.Составить программу вычисления суммы С матриц А и В по формуле cij = aij + bij, при чем элементы матрицы В равны: bij =
Исходные данные: n = 4; А = . Контрольные вопросы
Как объявляются массивы с использованием раздела типов?
Для чего используются упакованные массивы?
Как организуется в программе ввод массива?
Какие операции разрешены над элементами массива?
Лабораторная работа 8
Тема:Определение минимального, максимального элемента в массиве
Цель: Научиться определять минимальный и максимальный элемент в двумерном массиве
Оборудование: ПК, ПО TurboPascal Задание 1.Сформировать двумерный массив и заполнить его произвольным образом.
usescrt;
const n=3;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
clrscr;
Randomize;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
a[i,j]:=random(10);
write(a[i,j],' ');
End;
Writeln;
End
End.
Задание 2.Сформировать произвольным образом массив D размером 3×4 и массив E, элементы которого вычисляются по формуле Eij=5*Dij. Новый массив распечатать на экране.
Задание 3. Сформировать массивА, размером n×m. Определить максимальный элемент массива.
Program Stroki;
const n=3; m=4;
var a:array [1..n,1..m] of integer;
i, j, max: integer; Begin
clrscr;
Randomize;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
a[i,j]:=random(10);
write(a[i,j],' ');
End;
Writeln;
End; max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if max
write(‘Max=’, max);
readln;
end.
Задание 4. Сформировать массив C, размером 5×5. Определить минимальный элемент массива.
Задание 5. Сформировать одномерный массив А, состоящий из 15 элементов. Определить максимальный элемент и его индекс. Контрольные вопросы
В чем отличие одномерного массива от двумерного?
Как в программе организовать заполнение массива произвольными числами?
Лабораторная работа 9
Тема: Работа со строковыми переменными
Цель:Научиться составлять алгоритмы обработки строковых переменных
Оборудование: ПК, ПО TurboPascal
Методические указания.
Приведенная далее программа выводит на экран длину введенной пользователем строковой величины.
Program Str1;
Var
S : String;
Begin
Writeln('Введите последовательность символов');
Readln(S);
Writeln('Вы ввели строку из ',Length(S), ' символов')
End. Рассмотрим другой пример. Решим задачу: "Введенную строку вывести на экран по одному символу в строке экрана".
Program Str2;
Var
S : String;
I : Byte;
Begin
Writeln('Введитестроку');
Readln(S);
For I:=1 toLength(S) do {организуем цикл, начиная с первого символа}
Writeln(S[I]) {строки, до последнего (номер последнего}
{совпадает с количеством символов строки S) }
|
|
|