Главная страница


Специальность



Скачать 429.15 Kb.
НазваниеСпециальность
страница2/4
Дата18.04.2016
Размер429.15 Kb.
ТипЛабораторная работа
1   2   3   4

Задание 2.Составьте программу, которая запрашивает размеры двумерного массива, значения его элементов и выводит на очищенный экран получившийся массив.

Задание 3.Дополните предыдущую программу так, чтобы вычислялось и выводилось на экран значение:


  • суммы всех элементов массива.

  • количества 0 в массиве.

  • произведения ненулевых элементов последней строки.

  • произведенияположительных элементов последнего столбца.


Контрольные вопросы

  1. Что понимается под массивом?

  2. Как обозначаются в программе элементы массива?

  3. Как объявляются массивы в разделе переменных?


Лабораторная работа 7

Тема: Использование стандартных функций для работы с массивами

Цель: Приобрести практические навыки работы составления алгоритмов обработки массивов.

Оборудование: ПК, ПО TurboPascal
Задание 1. Составить программу для получения массива С, элементы которого получатся по формуле cij= aijbij.
n = 3; A = В =
Задание 2.Составить программу вычисления суммы С матриц А и В по формуле cij = aij + bij, при чем элементы матрицы В равны: bij =

Исходные данные:
n = 4; А = .
Контрольные вопросы

  1. Как объявляются массивы с использованием раздела типов?

  2. Для чего используются упакованные массивы?

  3. Как организуется в программе ввод массива?

  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 элементов. Определить максимальный элемент и его индекс.
Контрольные вопросы

  1. В чем отличие одномерного массива от двумерного?

  2. Как в программе организовать заполнение массива произвольными числами?


Лабораторная работа 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) }
1   2   3   4