Читать контрольная по всему другому: "Программирование на Турбо Паскале" Страница 1

(Назад) (Cкачать работу)

Цель работы:

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

Задание:

Дано предложение, состоящее из латинских букв. Вывести все согласные буквы, которые входят хотя бы в одно слово.

началоn ,m ,Ai,jshow_matrixшапка таблицыsum:= sum1(n,m,11,0,1,a)sumшапка таблицы

show_matrix

sum:= sum2(n,m,11,1,a)

sumc:=’Y’

c = ‘Y’cконец function sum1(n,m,i,j,s,k : integer; a : matrix):integer;

начало(i=n) and (j=m)эхо-вывод

not(i=n) and (j=m)sum1:= s +a[i,j]

эхо-вывод

эхо-выводэхо-выводsum1:=

sum1(n,m,i,j+1,s+a[i,j],k+1,a);

sum1:=

sum1(n,m,i+1,1,s+a[i,j],k+1,a);эхо-выводэхо-выводконец function sum2(n,m,i,j,k : integer; a : matrix):integer;

эхо-выводэхо-выводэхо-вывод

sum2:= a[i,j] +

sum2(n,m,i+1,1 ,k+1,a)

sum2:= a[i,j] +

sum2(n,m,i,j+1,k+1,a);

эхо-вывод

эхо-вывод

not(i=n) and (j=m)

sum2:=a[i,j]

эхо-вывод

(i=n) and (j=m)

конец

начало procedure show_matrix(n,m : integer;a : matrix);

начало«Матрица :»i= 1(1)nj= 1(1) ma[i,j]конец Программа:

{*****************************************}

{Программа:lab21 }

{Цель:поиск символов в тексте }

{Описание параметров и переменных: }

{ a - матрица }

{ i,j,n,m - вспомагательные переменные }

{ c - ключ выхода }

{ sum - сумма }

{Подпрограммы:есть }

{Программист: Кондрахин А.В.,гр.343 }

{Проверил: Москвитина О.А.,каф. ВПМ }

{Дата написания: 14 марта 2004 г. }

{*****************************************}

program lab21;

uses crt; type

matrix = array[1..10,1..10] of integer; var

a :matrix;

i,j,n,m:integer;

c :char;

sum :integer; procedure show_matrix(n,m : integer;a : matrix);

var

i,j :integer;

begin

Writeln('Матрица:');

for i:=1 to n do

begin

Write('│ ');

for j:=1 to m do

Write(a[i,j]:3);

Writeln(' │');

end;

Writeln;

Writeln('Для продолжения нажмите любую клавишу...');Readkey;

end; function sum1(n,m,i,j,s,k : integer; a : matrix):integer;{восходящая рекурсия}

var

tsum :integer;

begin

if (i=n) and (j=m) then begin{терминальная ветвь}

Writeln('│','Терм. ветвь':12,'│',s:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

sum1:=s+a[i,j];

end {терминальная ветвь} else if not(i=n) and (j=m) then begin{рекурсивная ветвь}

Writeln('│','Вход ',k:7,'│',s:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

tsum:=sum1(n,m,i+1,1,s+a[i,j],k+1,a);

sum1:=tsum;

Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')

end {рекурсивная ветвь} else begin{рекурсивная ветвь}

Writeln('│','Вход ',k:7,'│',s:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

tsum:=sum1(n,m,i,j+1,s+a[i,j],k+1,a);

sum1:=tsum;

Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')

end; {рекурсивная ветвь}

end;{восходящая рекурсия} function sum2(n,m,i,j,k : integer; a : matrix):integer;{нисходящая рекурсия}

var

tsum :integer;

begin

if (i=n) and (j=m) then begin {терминальная ветвь}

Writeln('│','Терм. ветвь':12,'│',a[i,j]:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

sum2:=a[i,j];

end {терминальная ветвь}

else if not(i=n) and (j=m) then begin{рекурсивная ветвь}

Writeln('│','Вход ',k:7,'│',0:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

tsum:=sum2(n,m,i+1,1,k+1,a)+a[i,j];

sum2:=tsum;

Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')

end {рекурсивная ветвь} else begin{рекурсивная ветвь}

Writeln('│','Вход ',k:7,'│',0:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

tsum:=sum2(n,m,i,j+1,k+1,a)+a[i,j];

sum2:=tsum;

Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')

end; {рекурсивная ветвь}

end;{нисходящая рекурсия} begin

ClrScr;

c:='Y';

while (UpCase(c)='Y') do

begin

Write('Введите число строк:');Readln(n); {Ввод данных}

Write('Введите число столбцов:');Readln(m); Writeln('Введите матрицу:'); {Ввод матрицы}

for i:=1 to n do

begin

for j:=1 to m do

begin

Write('a[',i,',',j,']=');Read(a[i,j]);

end;

Writeln;

end; show_matrix(n,m,a); {Эхо-вывод матрицы}

Writeln(verh);Writeln(inc1);Writeln(cent1);

Похожие работы