Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Топ:
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Методика измерений сопротивления растеканию тока анодного заземления: Анодный заземлитель (анод) – проводник, погруженный в электролитическую среду (грунт, раствор электролита) и подключенный к положительному...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Интересное:
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Дисциплины:
2019-12-21 | 869 |
5.00
из
|
Заказать работу |
|
|
Пусть задана матрица А из действительных чисел размера 3х4. Найти наибольший элемент во второй строке данной матрицы.
Приведем программу решения задачи в виде:
Program max_st;
Type Matr=array[1..3,1..4] of real;
Var max:real;
a:Matr;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
begin
writeln(‘Введите элемент а[‘,i,’,’,j,’]’);
readln(a[i,j]);
end;
max:=a[2,1];
for j:=2 to 4 do
if max<a[2,j] then max:=a[2,j];
writeln(‘Наибольший элемент второй строки=’,max:8:2);
end.
Данная программа представляет собой реализацию алгоритма нахождения наибольшего элемента вектора, полученного путем фиксирования одного из индексов двумерного массива.
Нахождение элементов массива, удовлетворяющих определенному условию
Известны результаты 5 студентов по итогам экзаменов по химии и информатике. Найти фамилии студентов, сдавших оба экзамена на отлично.
Для решения поставленной задачи может быть использована следующая программа:
program Sessia;
type PR=array [1..5,1..2]of integer;
Fam=array[1..5]of string[10];
var r:pr;
st:fam;
i,j:integer;
begin
for i:=1 to 5 do
begin
writeln('Введите фамилию ',i,'-го студента ');
readln(st[i]);
writeln('Введите оценку данного студента по химии (от 2 до 5)');
readln(r[i,1]);
writeln('Введите оценку данного студента по информатике (от 2 до 5)');
readln(r[i,2]);
end;
for i:=1 to 5 do
if (r[i,1]=5) and (r[i,2]=5) then writeln('Студент-отличник - ',st[i]);
end.
В данной программе для хранения фамилий студентов используется одномерный строковый массив st типа Fam, для хранения оценок студентов – двумерный целочисленный массив r типа PR, причем первый столбец матрицы r используется для хранения результатов экзамена по химии, второй столбец – экзамена по информатике. Если у некоторого студента оценки за оба экзамена составили 5 баллов, то его фамилия будет выведена на экран с сообщением «Студент-отличник».
|
Задания
1. Дана матрица А (n, n). Найдите сумму элементов по каждому столбцу.
2. Дана матрица А (10, 10). Найти сумму элементов по каждой строке.
3. Вычислить сумму элементов матрицы А (20, 20), расположенных над главной диагональю.
4. Определить количество положительных и отрицательных элементов матрицы А (12, 15).
5. Определить количество положительных элементов каждого столбца матрицы А (20, 25) и запомнить их в массиве М.
6. Найти наибольший элемент матрицы А (20, 25) и номер строки и столбца, в которых он находится.
7. Найти наибольший элемент в третьем столбце матрицы.
8. Найти сумму всех элементов матрицы.
9. Найти сумму всех положительных элементов матрицы.
10. Найти наименьший элемент в первой строке матрицы.
11. Найти среднее арифметическое значение элементов второго столбца матрицы.
12. Найти произведение элементов третьего столбца матрицы.
13. Найти сумму элементов первой и третьей строк матрицы.
14. Определить, сколько раз встречается число 5 среди элементов всей матрицы.
15. Определить, сколько раз встречается число 1 среди элементов третьей строки матрицы.
16. Найти количество отрицательных элементов в матрице.
Контрольные вопросы
1 Что понимают под массивом данных?
2 Что называют размерностью массива?
3 Что понимают под индексом элемента массива?
4 Какой массив называется одномерным?
5 Приведите примеры одномерных массивов.
6 Как описываются одномерные массивы на языке PASCAL?
7 Как задается диапазон изменения индексов массива?
8 Поясните понятия двумерного массива, матрицы.
9 Что обозначают индексы матрицы?
Литература
1. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. – М.: Нолидж. – 2000. – 576 с.
2. Зуев Е.А. Система программирования Turbo Pascal. – М.: Радио и связь. – 1992. – 288 с.
3. Рубенкинг Н. Турбо Паскаль для Windows. – М.: Мир. - 1994. – 535 с.
Лабораторная работа 6 (2 часа)
Тема: Обработка строковых данных
Цель работы: Научиться принципам работы со строковыми переменными в среде программирования Pascal.
|
Теоретическая часть
Описание переменных строкового типа
Для обработки текстов в среде программирования Turbo Pascal используется тип STRING (строка). Количество символов в строке-переменной задается объявлением типа STRING[N], где значение N может быть любой константой порядкового типа, не превышающей 255.
Объявление типа STRING[N] указывает, что число символов в строке-переменной может изменяться в диапазоне от 1 до N. Если при описании типа количество символов в строке не указано, то по умолчанию длина строки принимается максимально возможной, т.е. 255 символов.
Строка в Turbo Pascal трактуется как цепочка символов. К любому символу в строке можно обратиться так же, как к элементу символьного массива типа ARRAY [1..N] OF CHAR. Над символами строки можно осуществлять необходимые действия и, тем самым, изменять содержание строки, ее длину и т.д.
Пример:
program pr1;
var st:string[6];
i:integer;
begin
st:=' primer ';
for i:=1 to 6 do
write(st[i], ' ');
end.
В результате работы данной программы на экран будут распечатаны следующие значения:
p r i m e r
Таким образом, первым символом st[1] в переменной st является буква p, вторым символом st[2] является r, третьим – i и т.д.
К строкам можно применять операцию сцепления, например:
program pr2;
var st:string[3];
begin
st:=’a’+’b’+’c’;
writeln(st);
end.
В результате работы предложенной выше программы переменной st будет присвоено значение ’abc’.
Допускается сравнение строковых переменных. Операции отношений =, <>, >, <, >=,<= выполняются над двумя строками посимвольно, слева направо, с учетом внутренней кодировки символов.
Примеры сравнения строковых переменных с результатом «Истина»:
‘A’ < ‘B’
‘Turbo Pascal’ > ‘Turbo’
‘2’ > ’1’
|
|
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!