Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Этап 2.2. Программы обработки числовых данных.

1. Вам предстоит, действуя по шаблонам и используя разработанные ранее алгоритмы, создать простейшие программы обработки числовых данных и сохранить их в виде файлов int_1.pas, int_2.pas и т.д. для простых чисел, arr_1.pas, arr_2.pas и т.д. для массивов.

2. Переписать из листинга № 1 и отладить программу суммирования двух целых чисел.

Листинг 1. Ввести два целых числа. Вычислить их сумму и вывести результат на экран.

Program int_1;

Uses CRT;

Var a, b, c: integer;

BEGIN

ClrScr;

Write('Введите два целых числа:');

Readln(a, b);

c:= a + b;

write('Результат сложения чисел ', a, ' и ', b, ': ', c);

END.

3. По аналогии с предыдущим заданием, используя оператор ветвления, написать и отладить программы:

- ввести два целых числа. Вывести их на экран в порядке возрастания;

- ввести два целых числа. Найти их разницу и результат вывести на экран;

- ввести два целых числа. К максимальному из них прибавить 10 и результат вывести на экран;

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

4. Переписать из листинга № 2 и отладить программу обработки массива целых чисел.

Листинг 2. Ввести одномерный массив целых чисел. Преобразовать его, заменив положительные элементы 1, отрицательные - 0. Результат вывести на экран.

Program arr_1;

Uses CRT;

Const n=10;

Var A: array[1..n] of integer;

i: byte;

BEGIN

ClrScr;

Write ('Введите элементы массива: ');

for i:=1 to n do

readln (A[i]);

for i:=1 to n do

if A[i] > 0 then

A[i]:=1

else

A[i]:=0;

write (‘измененный массив = ');

for i:=1 to n do

write (A[i],' ');

END.

5. По аналогии с предыдущим заданием, используя оператор цикла, написать и отладить программы:

- ввести одномерный массив целых чисел, определить сумму его элементов, результат вывести на экран;

- ввести одномерный массив целых чисел, определить сумму его отрицательных элементов, результат вывести на экран;

- ввести одномерный массив целых чисел, определить его максимальный элемент, результат вывести на экран

- ввести одномерный массив целых чисел, определить сумму его максимального и минимального элементов, результат вывести на экран

- ввести одномерный массив целых чисел, из положительных элементов массива сформировать новый массив и вывести его на экран.

- ввести одномерный массив целых чисел, определить номер первого отрицательного элемента, результат вывести на экран (использовать команду Break для прерывания цикла).

6. Переписать из листинга № 3 и отладить программу обработки двумерного массива целых чисел.

Листинг 3. Ввести двумерный массив целых чисел, найти максимальный элемент, результат вывести на экран

Program arr_2;

Uses CRT;

Const n = 4, m = 5;

Var A: array[1..n, 1..m] of integer;

i, j, max: integer;

BEGIN

ClrScr;

Write('Введите элементы двумерного массива размерности ',n, ' x ',m, ': ');

for i:=1 to n do

for j:=1 to m do

ReadLn (A[i,j]);

max:= A[1,1];

for i:=1 to n do

for j:=1 to m do

if A[i,j] > max then

max:= A[i,j];

Write('Максимальный элемент двумерного массива: ', max);

END.

7. По аналогии с предыдущим заданием, используя вложенные операторы цикла, написать и отладить программы:

- ввести двумерный массив целых чисел; на его основе создать новый одномерный массив, каждый элемент которого - максимальное отрицательное число в каждой строке исходного массива (см. пример на рис. 2);

Рис. 2 поиск максимального отрицательного числа в двумерном массиве

- ввести двумерный массив целых чисел; на его основе создать новый одномерный массив, каждый элемент которого - индекс наибольшего числа в каждой строке исходного массива (рис. 3);

Рис. 3. Поиск координаты максимального элемента в строках двумерного массива

Результат выполнения этапа: Вы научились записывать разработанные ранее алгоритмы обработки целых чисел в виде программ на алгоритмическом языке Pascal. Вы получили представление о структуре программы и назначении ее разделов. Вы узнали и проверили на практике, какими операторами языка записываются базовые алгоритмические структуры ветвления и цикла и как работает оператор присваивания. Вы научились обрабатывать одномерные и двумерные числовые массивы с помощью вложенных циклов.