5.1.3 Алгоритм

Рисунок 5.1 – Алгоритм первой задачи

5

t,f:text;

a:string;

begin

assign(t,'D:\15.txt');

assign(f,'D:\16.txt');

reset(t);

rewrite(f);

while not eof(t) do { пока не закроется наш файл }

begin

readln(t,a);

writeln(a);

for i:=1 to Length(a) do { | Length (функция)|возвращает динамическую длину строки }

if (a[i]='a') or (a[i]='e') or (a[i]='y') or (a[i]='u') or (a[i]='i') or (a[i]='o') or (a[i]='q') or (a[i]='w') or (a[i]='r') or (a[i]='t')

or (a[i]='p') or (a[i]='s') or (a[i]='d') or (a[i]='f') or (a[i]='g') or (a[i]='h') or (a[i]='j') or (a[i]='k') or (a[i]='l') or (a[i]='z')

or (a[i]='x')or (a[i]='c') or (a[i]='v') or (a[i]='b') or (a[i]='n') or (a[i]='m') or (a[i]='.') or (a[i]=',') or (a[i]='!')

or (a[i]='?') or (a[i]=':')or (a[i]=';') then

begin

write(a[i]);

write(f,a[i]);

end;

end;

close(t);

close(f);

assign(f,'D:\16.txt');

reset(f);

readln(f,a);

{writeln(a);}

for i:=1 to Length(a) do

if (a[i]='.') or (a[i]=',') or (a[i]='!') or (a[i]='?') or (a[i]=':')or (a[i]=';') then

begin

inc(m);

end;

writeln;

writeln(m);

close(f);

assign(f,'D:\16.txt');

rewrite(f);

writeln(f,a);

write(f,'Количество знаков препинания: ',m);

close(f);

end.

.1.4 Программа

Рисунок 5.2 – Текст программы

5.2 Математическое описание и задание

5.2.1 Задание

Задано две матрицы А[3х8] и Д[4х5]. Составить алгоритм и программу сортировки в порядке убывания сверху вниз того столбца матрицы в котором находится максимальный элемент второй строки матрицы Д. Исходные и результирующие матрицы должны быть записаны в файл.

5.2.2 Математическая постановка задачи

1) Размеры матрицы указанны в задании, а элементы реализованы с помощью оператора(функции) random.

2) Задаем 2 матрицы с помощью циклов. Ищем максимальный элемент во второй строке матрицы Д ( придав первому элементу максимальное значение и сравнивая с остальными), находим столбец в котором элемент из 2 й строки имеет наибольшее значение. При сортировки элементов в порядке убывания, мы использовали метод “Пузырька”, его суть в том, что он сравнивает 2 элемента и если первый элемент больше того с чем сравниваем, то они меняются местами, иначе остаются. На базе сортировки создаем новую матрицу А и Д.

3) Выводим заданные матрицы и отсортированные.

5.2.3 Алгоритм

Рисунок 5.3 – Алгоритм второй задачи

5

program a1;

type

M=array[1..10,1..10] of integer;

var

i,j,max,k,tmp,p:integer;

t:text;

b,c:M;

begin

assign(t,'D:\1212312523654754324314253543524152643.txt');

rewrite(t);

randomize;

writeln(t,'Первая матрица А');

writeln('Первая матрица А');

for i:=1 to 3 do

begin

for j:=1 to 8 do

begin

b[i,j]:=random(10);

write(t,b[i,j]:4);

write(b[i,j]:4);

end;

writeln();

writeln(t);

end;

writeln(t);

writeln(t,'Вторая матрица Д');

writeln('Вторая матрица Д');

for i:=1 to 4 do

begin

for j:=1 to 5 do

begin

c[i,j]:=random(10);

write(t,c[i,j]:4);

write(c[i,j]:4);

end;

writeln();

writeln(t);

end;

max:=c[2,1]; k:=1;

i:=2;

for j:=2 to 5 do

if c[i,j]>max then

begin

max:=c[i,j];

k:=j;

end;

.2.4 Программа

Рисунок 5.4 – Текст программы