I,j : integer;
max : real;
mas : array[1 .. 3,1 .. 4] of real;
begin
ClrScr;
writeln('Введите элементы массива:');
for i:=1 to 3 do
for j:=1 to 4 do
begin
GOTOXY(25,(i-1)*4+j+1);
write('строка ',i,' столбец ',j,' -->');
readln (mas[i,j]);
end;
ClrScr;
writeln('Введен массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
write(mas[i,j]:5:2,' ');
end;
writeln;
end;
max:=mas[1,1];
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
if mas[i,j] > max then max:=mas[i,j];
end;
end;
writeln;
writeln('Максимальный элемент массива равен ', max:5:2);
end.
6.1.1. Цель работы
Изучить методику работы с массивами в программах ТП-7.
6.1.2. Задание по работе
Составить программу на языке ТП-7 для обработки массива в соответствии с заданием (ПРИЛОЖЕНИЕ 2). Текст программы сохранить в свою личную папку.
В отчет по работе включить текст разработанной программы и описание итогов обработки массива. Указать имя и место хранения файла с текстом программы.
ПРИЛОЖЕНИЕ 1
Примерные задания для вычисления функций
№ |
Функция |
Значения аргумента |
1 |
Y=0,86304*Х+0,36415*Х3 |
0<=X<=5 |
2 |
Y=1-0,9664*X+0,3536*X4 |
0<=X<=1,5 |
3 |
Y=X+X3/3+2*(X5/15)+17*(X7/375) |
-2<=X<=2 |
4 |
Y=X*(1-0,16605*X2+0,00761*X4) |
0<=X<=2 |
5 |
Y=1-0,49670*X2+0,03705*X4 |
0<=X<=1 |
6 |
Y=X*(1+0.31755*X2+0,20330*X4) |
0<=X<=0,5 |
7 |
Y=X/(1+0,28*X2) |
3<=X<=3 |
ПРИЛОЖЕНИЕ 2
Примерные задания для обработки массивов
№ |
Размерность массива |
Характер задания |
1 |
3 строки, 5 столбцов |
Найти минимальный элемент массива |
2 |
5 строк, 4 столбца |
Найти минимальный элемент последней строки |
3 |
4 строки, 4 столбца |
Найти максимальный элемент главной диагонали |
4 |
4 строки, 5 столбцов |
Найти минимальный элемент первого столбца |
5 |
5 строк, 3 столбца |
Найти максимальный элемент последнего столбца |
6 |
5 строк, 5 столбцов |
Найти сумму элементов главной диагонали |
7 |
5 строк, 4 столбца |
Найти максимальный элемент первой строки |
Список литературы
Мартынюк Т.М. Турбо Паскаль 7.0 Самоучитель: 2003
Программирование на языке Паскаль: Задачник. Под ред. Усковой О.Ф. 2003
Турбо Паскаль 7.0. Учебное издание, Киев, Торгово-издательское бюро BHV, 1995.
Методические указания
к лабораторным работам по курсу "Основы программирования" для студентов специальности 160200 «Самолето- и вертолетостроение» очно-заочной формы обучения
Составитель Лосев Николай Васильевич
В авторской редакции
Компьютерный набор Н.В.Лосева
Подписано к изданию 10.11.06.
Уч.-изд.л. 3,4. «С»
ГОУВПО «Воронежский государственный технический университет»