Контрольная работа: Программирование на Турбо Паскале
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Изучение правил описания множественных типов данных, приемов использования множеств и операций над множествами в Паскаль-программах. Приобретение навыков решения задач с использованием множеств.
Дано предложение, состоящее из латинских букв. Вывести все согласные буквы, которые входят хотя бы в одно слово.
function sum1(n,m,i,j,s,k : integer; a : matrix):integer;
function sum2(n,m,i,j,k : integer; a : matrix):integer;
procedure show_matrix(n,m : integer;a : matrix);
{*****************************************}
{Описание параметров и переменных: }
{ i,j,n,m - вспомагательные переменные }
{Программист: Кондрахин А.В.,гр.343 }
{Проверил: Москвитина О.А.,каф. ВПМ }
{Дата написания: 14 марта 2004 г. }
{*****************************************}
matrix = array[1..10,1..10] of integer;
procedure show_matrix(n,m : integer;a : matrix);
Writeln('Дляпродолжениянажмителюбуюклавишу...');Readkey;
function sum1(n,m,i,j,s,k : integer; a : matrix):integer;{восходящаярекурсия}
Writeln('│','Терм. ветвь':12,'│',s:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');
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);
Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')
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);
Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')
function sum2(n,m,i,j,k : integer; a : matrix):integer;{нисходящаярекурсия}
Writeln('│','Терм. ветвь':12,'│',a[i,j]:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');
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];
Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')
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];
Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')
Write('Введитечислострок:');Readln(n); {Вводданных}
Write('Введите число столбцов:');Readln(m);
Writeln('Введите матрицу:'); {Ввод матрицы}
Write('a[',i,',',j,']=');Read(a[i,j]);
show_matrix(n,m,a); {Эхо-выводматрицы}
Writeln(verh);Writeln(inc1);Writeln(cent1);
Writeln('│','Восходящая':12,'│ │ │');
sum:=sum1(n,m,1,1,0,1,a); {Вызоврекурсии}
Writeln('Для продолжения нажмите любую клавишу...');Readkey;
Writeln(verh);Writeln(inc1);Writeln(cent1);
Writeln('│','Нисходящая':12,'│ │ │');
sum:=sum2(n,m,1,1,1,a); {Вызоврекурсии}
Write('Ввести еще одну матрицу? (Y/N):');
Просчет контрольного варианта на ЭВМ:
Для продолжения нажмите любую клавишу...
Для продолжения нажмите любую клавишу.
Название: Программирование на Турбо Паскале
Раздел: Рефераты по информатике, программированию
Тип: контрольная работа
Добавлен 22:42:46 26 декабря 2010 Похожие работы
Просмотров: 55
Комментариев: 15
Оценило: 1 человек
Средний балл: 5
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Контрольная работа: Программирование на Турбо Паскале
Курсовая работа: Мотив дороги и его философское звучание в литературе ХIХ века
Медицина Туралы Эссе Казакша
Ток Реферат
Управление Дебиторской И Кредиторской Задолженностью Дипломная
Курсовая работа по теме Производственный процесс изготовления микросхем
Реферат: Основные направления проверки и источники информации при аудите депозитных операций банка
Курсовая работа по теме Фитотерапия при заболеваниях желчного пузыря и желчевыводящих протоков
Повышение Эффективности Управления Курсовая
Реферат: Реформация в Европе
Доклад: Александр Федорович Гедике
Практическое задание по теме Понятие опровержения и способы опровержения
Дипломная работа по теме Совершенствование учета и экономического анализа затрат на производство и калькулирования себестоимости продукции (услуг) в УФПС г. Москвы - филиале ФГУП 'Почта России'
Реферат: Практическая культура безопасности эксплуатации АЭС. Скачать бесплатно и без регистрации
Вещь Для Счастья Сочинение 6 Класс
Дипломная работа по теме Проектування ділянки переробки пластмас методом лиття під тиском
Реферат: Мотив и мотивация
Реферат по теме Криминологическая характеристика преступности, связанной с незаконным распространением наркотических средств в Республике Беларусь
Сочинение На Тему Памятный День План Содержание
Дипломная работа по теме Исследование эмпирического распределения
Курсовая работа по теме Создание педагогических условий в семье для развития творческих способностей детей в музыкальной дея...
Реферат: Субъекты финансовых правоотношений
Статья: Свобода слово и религиозные ценности: анализ конфликтов последных лет
Реферат: Поверхности второго порядка