Лабораторная работа № 2 Технология алгоритмического программирования

Для просмотра текущих значений переменных при выполнении программы по шагам можно воспользоваться пунктом меню Debug->Evaluate/modify или одновременным нажатием клавиш Ctrl+F4. В этом режиме следует указать имена переменных, значения которых подлежат проверки, и наблюдать их изменения при пошаговом выполнении программы.

Для завершения работы в системе программирования необходимо выбрать пункт меню File->Exit или сочетание клавиш Alt+x.

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

Этап 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 и результат вывести на экран;

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

Переписать из листинга № 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.

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

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

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

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

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

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

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

Переписать из листинга № 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.

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

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

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

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

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

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

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

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

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

Листинг 4. Вывести на экран символы латинского алфавита, расположив их в строку, используя цикл For … to …

Program char_1;

USES CRT;

VAR i: char;

BEGIN

CLRSCR;

Write('Изучаем алфавит: ')

for i:= 'A' to 'Z' do

Write (i);

Writeln;

END.

3. По аналогии с предыдущим заданием написать и отладить программу вывода на экран символов латинского алфавита, расположив их в строку в обратном порядке, используя оператор цикла For … downto …

4. Переписать из листинга № 5 и отладить программу вывода на экран букв латинского алфавита, расположив их в строку в особом порядке.

Листинг 5. Вывести на экран символы латинского алфавита, расположив их в строку в следующем порядке: ABBCCCDDDD … ZZZ … Z

Program char_2;

USES CRT;

VAR i: char;

k, j: integer;

BEGIN

CLRSCR;

k:=1;

for i:= 'A' to 'Z' do

BEGIN

For j:=1 to k do

Write (i);

k:=k+1;

END;

END.

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

• вывести в одну строку символы в следующем порядке: Z Y Y X X X…A A…A;

• вывести символы в следующем порядке (число строк равно числу символов в алфавите):

A B C D … Z

A B C D … Z

A B C D … Z

…

A B C D … Z

• вывести треугольник, состоящий из букв латинского алфавита, используя функцию SUCC(char), которая возвращает следующий символ после char:

A B C … Z

B C … Z

C … Z

… Z

Z

• вывести треугольник другой конфигурации:

A B C … Z

B C … Z

C … Z

… Z

Z

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

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

1. Вам предстоит, действуя по шаблонам, создать простейшие программы обработки строковых (текстовых) данных и сохранить их в виде файлов str_1.pas, str_2.pas.

2. Переписать из листинга № 6 и отладить программу ввода и редактирования текста.

Листинг 6. Ввести текст с клавиатуры. Вывести его на экран до первого знака препинания.

Program str_1;

USES CRT;

VAR str: string;

k, i : integer;

m: set of char;

BEGIN

CLRSCR;

m:= ['.', ',', '!', '? ', ':', ';', '-'];

writeln ('Введите текст');

readln (str);

k:=length (str);

writeln ('Печатаем текст до первого знака препинания:');

for i:=1 to k do

If not (str[i] in m) then

write (str[i])

else

break;

END.

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

• ввести текст с клавиатуры, вывести его на экран без знаков препинания;

• ввести текст с клавиатуры, вывести его на экран без гласных букв, определив их первоначальное количество в тексте.

4. Переписать из листинга № 7 и отладить программу работы с текстовым файлом.

Листинг 7. Создать текстовый файлFile1.txt, заполнить его текстом. Прочитать текст из файла и вывести его на экран.

Program file_1

USES CRT;

VAR F1: text;

str: string;

BEGIN

CLRSCR;

Assign (F1, 'File1.txt');

Reset (f1);

Read (f1, str);

Writeln('В файле записан текст: ');

Writeln (str);

Close(f1);

END.

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

• создать текстовый файл File1.txt, записать в него текст«Hello, friend!».Прочитать текст из файла. Преобразовать его в вид:«Hello, my friend!». Использовать процедуруINSERT(Word:string, String:string, pos:integer), гдеWord– вставляемый текст,String– исходный текст,pos– позиция для вставки) и функциюPOS(word:string, str:string):integer, гдеWord – символ, позицию которого в строке надо найти, str – строка, в которой ведется поиск.

• создать текстовый файл File2.txt, записать в нем текст. Прочитать текст из файла. Ввести с клавиатуры строку текста. Вывести на экран объединение текста и введенной строки. Использовать функциюCONCAT(str1:string, str2:string):string– возвращает объединение строк.

• создать текстовый файл File3.txt, записать в нем текст. Удалить из текста второе слово. Использовать процедуруDELETE(str:string, i:integer, j:integer), гдеstr – строка, в которой надо произвести удаление, i – позиция, с которой начать удаление,j– количество удаляемых символов.

• создать текстовый файл File4.txt, записать в нем текст. Прочитать текст из файла, вывести его на экран, разбив на слова по 5 символов.

• создать текстовый файл File5.txt, записать в нем текст. Изменить текст в файле, разбив его на слова по 5 символов.

Результат выполнения этапа: Вы ознакомились с приемами обработки текстовых данных, вводимых с клавиатуры и из файла, поработали со специфическим типом данных «множество», освоили последовательность работы с файлом, применили функции и процедуры модификации текстовых данных.

Форма представления результатов лабораторной работы: файлы.