Блок-схема програми
Текст програми на Паскалі
program LabRab1;
uses crt;
const col=7; row=4;
type mass = array[1..row, 1..col] of real;
var pMass: ^mass;
i,j: integer;
k:real;
range: word;
begin
range:=27000;
ClrScr;
Randomize;
WriteLn('Створений масив:');
WriteLn;
New( pMass);
for i := 1 to row do
begin
for j := 1 to col do
begin;
k:= Random(range);
pMass^[i,j] := (k-Random(range))/100;
Write(' ',pMass^[i,j]:7:2);
end;
writeln;
end;
WriteLn;
WriteLn('Hомери стовпцiв з вiд''емними елементами:');
WriteLn;
for i := 1 to row do
begin
Write('Ряд ',i:2,': ');
for j := 1 to col do
if pMass^[i,j]<0 then
Write(j:2,' ');
Writeln;
end;
Dispose(pMass);
WriteLn;
WriteLn('Лабораторна робота N1.');
WriteLn('Завдання 8. Hадрукувати номери стовпцiв,');
WriteLn('що вмiщують вiд''емнi елементи.');
WriteLn;
WriteLn('Виконав студент Чемерис С. група ЗКТ-301');
readkey;
end.
Результати роботи програми.
Створений масив:
58.61 90.66 -81.45 -117.57 -19.78 -141.40 26.69
-146.54 -97.58 79.09 -21.90 -76.66 125.36 -9.01
120.48 182.41 -193.39 104.23 -226.10 6.13 76.75
-101.49 -92.30 -95.01 67.38 44.48 79.66 66.95
Hомери стовпцiв з вiд'емними елементами:
Ряд 1: 3 4 5 6
Ряд 2: 1 2 4 5 7
Ряд 3: 3 5
Ряд 4: 1 2 3
Лабораторна робота N1.
Завдання 8. Hадрукувати номери стовпцiв,
що вмiщують вiд'емнi елементи.
Виконав студент Чемерис С. група ЗКТ-301
Таблиця 1
|
Вар N |
Кількість рядків |
Кількість стовпчиків |
Базовий Тип |
Завдання на обробку елементів динамічного масиву |
|
|
4 |
6 |
Word |
знайти для кожного рядка кількість елементів, що кратні трьом, і найбільший з одержаних результатів. |
|
|
3 |
4 |
Integer |
Знайти стовпчики з найбільшою і найменшою сумою елементів. Роздрукувати знайдені стовпчики і суми. |
|
|
6 |
4 |
Integer |
Для кожного рядка знайти і роздрукувати суму значень елементів, розміщених в стовпцях з парними номерами. |
|
|
5 |
5 |
Integer |
Для кожного рядка знайти кількість і суму значень додатних елементів. |
|
|
7 |
7 |
real |
Визначити суму та кількість від’ємних елементів, що розміщені під головною діагоналлю матриці. |
|
|
8 |
6 |
real |
Визначити максимальний елемент у кожному рядку. Вивести його значення та індекси. |
|
|
6 |
4 |
integer |
Визначити і надрукувати кількість від’ємних елементів у кожному стовпці. |
|
|
4 |
7 |
real |
Для кожного рядка надрукувати номери стовпців, що вміщують від’ємні елементи. |
|
|
5 |
5 |
byte |
Для кожного стовпця визначити і роздрукувати суму значень елементів, розміщених в рядках з парними номерами. |
|
|
4 |
3 |
integer |
Обчислити і вивести кількість додатних елементів кожного рядка. |
|
|
3 |
3 |
word |
Знайти мінімальний елемент в кожному рядку. Вивести його значення і індекси |
|
|
5 |
6 |
byte |
Знайти максимальний елемент в кожному стовпчику. Вивести його значення і індекси |
|
|
4 |
5 |
real |
Знайти і вивести кількість додатних елементів в кожному стовпчику |
|
|
3 |
3 |
integer |
Для кожного рядка вивести номери стовпчиків, що мають в собі від’ємні елементи |
|
|
4 |
3 |
byte |
Для кожного стовпчика знайти і вивести суму значень елементів, що стоять в рядках з непарними номерами |
|
|
2 |
5 |
real |
Знайти і вивести кількість додатних елементів в кожному рядку |
|
|
5 |
4 |
integer |
Записати нулі на місця від’ємних елементів. |
|
|
5 |
3 |
word |
Знайти в кожному рядку максимальний і мінімальний елементи. Поставити їх на місця першого і останнього елементів рядка |
|
|
5 |
5 |
integer |
знайти для кожного рядка кількість елементів, кратних 5, і максимальний з знайдених елементів |
|
|
3 |
4 |
byte |
Знайти в кожному рядку максимальний елемент і поміняти його місцями з елементом головної діагоналі |
|
|
4 |
4 |
word |
Знайти рядок з найбільшою і найменшою сумою елементів. Вивести знайдені рядки і суми. |
|
|
4 |
3 |
integer |
Знайти найменший елемент масиву. Вивести його значення і індекси. |
|
|
5 |
5 |
real |
Для кожного стовпчика знайти кількість і суму значень від’ємних елементів |
|
|
3 |
3 |
integer |
Підрахувати кількість від’ємних елементів матриці |
|
|
6 |
6 |
byte |
Транспонувати матрицю. Знайти її слід. |
|
|
4 |
5 |
word |
Знайти середнє арифметичне кожного рядка матриці |
|
|
4 |
4 |
word |
Для кожного стовпчика знайти і вивести суму значень, що перебільшують задане число А |
|
|
3 |
4 |
integer |
Для кожного стовпчика знайти і вивести мінімальний елемент і його індекси |
|
|
5 |
6 |
real |
Знайти і вивести суму від’ємних елементів матриці |
|
|
3 |
3 |
byte |
Знайти добуток і кількість додатних елементів, розміщених над головною діагоналлю |