§ 28 Строковые процедуры и функции

DELETE(St,Poz,N) - процедура удаления N символов строки St,начиная с позиции Poz

INSERT (St1,St2,Poz)- процедура вставки строки St1 в St2, начиная с позиции Poz

STR(M,St) – процедура преобразования числового значения величины M и помещения результата в строку St

VAL(St,M,Code) – процедура преобразования значения строки St в величину целочисленного или вещественного типа и помещения результата в M. Значение St не должно содержать незначащих пробелов в начале и конце. Code – целочисленная переменная. Если во время операции преобразования ошибки не обнаружено, значение Code равно 0, если обнаружено (например, встретился литерный символ) Code будет содержать номер позиции первого ошибочного символа, значение M не определено.

СOPY(St,Poz,N)- функция, которая выделяет из St подстроку длиной N cимволов, начиная с позиции Poz. Если Poz>Length(St), то результатом будет пробел; если Poz>255, возникнет ошибка при выполнении.

Poz, N – целого типа.

Задания к § 27-28

1. Сколько раз в данном слове встречается заданная буква?

2. Сколько раз встречается в данном слове часть, равная заданному слову?

3. Заменить в данном предложении всюду одну букву на другую. Компьютер должен запрашивать обе буквы.

4. Во введенном предложении убрать все пробелы.

5. Является ли введенная строка перевертышем?

6. Составить программу для определения является ли данная буква звонкой согласной.

7. Определить правильность написания ЖИ-ШИ в предложении и сообщить процент ошибок.

8. Составьте программу, которая из двух слов получает третье по следующему правилу:

первая буква 1 слова + первая буква 2 слова +вторая буква 1 слова + вторая буква 2 слова + и т.д. Если в словах разное количество букв, то большее усекается.

9. Можно ли составить кроссворд из двух заданных слов. Если можно, то составить и изобразить на экране.

10. Один из методов шифровки сообщений состоит в том, что после каждого символа вставляется некоторая буква (каждый раз, вообще говоря, разная). Составьте программу шифровки и дешифровки таким способом произвольного текста, используя для вставок одну и ту же букву.

* Попробуйте решить эту же задачу, но выбирая для каждой вставки букву случайным образом.

§ 29 Массивы, размерность, длина, описание массивов

Переменные типа Х[1], X[2], X[3], X[4].

A[1,1], A[1,2], A[1,3],

A[2,1], A[2,2], A[2,3]

называют индексированными переменными.

Массив - совокупность индексированных переменных (элементов). Каждый элемент массива имеет имя и один или несколько индексов. Массив - область машинной памяти, в которой могут размещаться совокупности значений одного и того же типа.

Размерность массива - число индексов у элемента массива.

Длина массива - число элементов в массиве.

Описание массива:

Var

X: Array [1..4] of INTEGER;<------данные такого

| | типа будут

| | размещаться в памяти

| |

| |-------- для такого числа элементов

| зарезервирована память

|----- такие имена будут иметь элементы массива

Ввод и вывод массива

Ввод одномерного массива осуществляется всегда в цикле.

Например, нужно ввести 10 элементом массива А.

Для этого, во-первых, следует описать массив:

Var A:Array [1..10] of real;

Команды для ввода будут выглядеть так:

For i:=1 to 10 Do begin

Writeln('Введи', i,'элемент='); Readln(a[i]);

end;

А вывод этого же массива будет выглядеть так:

For i:=1 to 10 Do begin

Writeln(i,'элемент=',a[i]);

end;

Задания к § 29

1. Сосчитать число положительных элементов в одномерном массиве и их сумму.

2. Из имеющегося списка фамилий составить новый, в котором эти же фамилии помещены в обратном порядке.

3. Имеются два списка: в одном - названия литературных произведений, а в другом - авторы этих произведений. Написать программу, которая составляла бы новый список, в котором бы после каждого произведения стоял его автор.

4. Информация о температуре воздуха за неделю задана в виде массива. Определите, сколько раз температура воздуха опускалась ниже 0⁰.

5. Информация о средней суточной температуре воздуха за месяц задана в виде массива. Определите, температура скольких дней была выше среднемесячной.

6. Результаты переписи населения хранятся в памяти ЭВМ. Используя массивы фамилий и года рождения, напечатать фамилии и подсчитать общее число жителей, родившихся раньше 1970 года.

7. Заданные массивы (a_i) и (b_i) содержат по t элементов каждый. Вычислить и напечатать элементы массивов (c_i) и (g_i) таких, что

c_i = a_i² b_i + b_i² a_i

g_i = a_i + (a_i b_i) + b_i

8. Заданный массив (a_i) содержит t элементов. Найти наибольший и наименьший элементы массива, вычислить и напечатать их полу сумму.

9. Заданные массивы (a_i) и (b_i) содержат по t элементов каждый. Вычислить и напечатать величины

c = Σ a_i²/b_i , g = Σ (a_i + b_i)/a_ib_i

10. Заданный массив (c_i) содержит t элементов. Найти сумму тех элементов массива, которые попадают в сегмент [a,b], т.е. удовлетворяют соотношению: a<= c_j <=b

11. Заданный массив (g_i) содержит m элементов. Найти количество элементов массива, которые не попадают в сегмент [x, y], т.е. удовлетворяют соотношению: g_i > y или g_i < x.

12. Заданный массив (c_i) содержит t элементов. Найти и напечатать количество и сумму положительных элементов массива, количество и сумму его отрицательных элементов.

13. Заданные массивы (x_i) и (y_i) содержат m элементов. Требуется поменять местами те элементы x_j и y_j этих массивов, которые удовлетворяют соотношению:

x_j < y_j (j = 1, …, m)

Подсчитать, на какую величину уменьшится сумма массива y_i. Полученный результат напечатать.

14. Заданный массив (x_i) содержит t элементов. Требуется отрицательные элементы массива заменить нулями. Определить и напечатать количество и сумму квадратов неотрицательных элементов.

15. Имеется какой - либо раствор, состоящий из заданного числа компонентов (например, французские духи состоят не менее чем из 50 компонентов). Определите процентное содержание каждого из компонентов в растворе, если известна масса каждого из них.

16. Составьте программу, в которой:

1. всем элементам массива присваивается заданное целое значение(количество элементов массива не более 50);

2. всем элементам массива присваивается заданный текст;

3. каждому элементу массива, стоящему на четном месте, присваивается его номер, а эламенту на нечетном месте - его номер с противоположным знаком;

4. элементам массива, стоящим, на четных местах, присваивается символ s, а на нечетных местах - "#";

5. каждому элементу, стоящему на 1, 4, 7-м и т.д., местах, присваивается число 0, остальным - число 3.

17. Составьте программу ввода в ЭВМ:

1. списка студентов (до 30 человек) и вывода этого списка в обратном порядке;

2. последовательности чисел и вывода этих чисел в обратном порядке.

18. Имеется список служащих и их оклады. Составьте программу, которая обеспечивает ввод ввод этих данных в ЭВМ и выводит список служащих и их оклады, если необходимо:

1. увеличить всем оклады на N рублей;

2. добавить к окладу премию, равную M% от оклада.

19. Имеется список оборудования и его стоимость. Составьте программу которая вводит эти даннные и выводит список оборудования и его стоимость если необходимо:

1. уменьшить стоимость каждого вида оборудования на N% от его стоимости;

2. увеличить стоимость каждого вида товара на M р.

20. Имеется прескурант, содержащий название товара и его стоимость. Составьте программу, которая выводит новый прейскурант, если необходимо:

1. увеличить стоимость каждого вида товара на N% от его старой стоимости;

2. уменьшить стоимость каждого вида товара на M р.

21. Имеется список служащих и их оклады. Составьте программу, которая обеспечивает ввод этих данных в ЭВМ и вывод ведомости к оплате при условии, что премия составляет N% от оклада, "Уральские"- 15%. Ведомость должна иметь следующую структуру:

ФИО	Оклад	Премия	"Уральские"	Итого