Название: Составить программу на языке Turbo Pascal для параллельной сортировки чисел
Вид работы: курсовая работа
Рубрика: Информатика и программирование
Размер файла: 42.41 Kb
Скачать файл: referat.me-139776.docx
Краткое описание работы: Ввод и вывод значений целого, вещественного, логического и перечисляемого типов. Табулирование функции на отрезке с заданным количеством точек. Рекурсивная функция - вычисление суммы, произведения, количества, минимума, максимума и проверка условия.
Составить программу на языке Turbo Pascal для параллельной сортировки чисел
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Южно-Уральский государственный университет
Приборостроительный факультет
Кафедра «Электронно-Вычислительные машины»
Курсовая работа
по курсу ПЯВУ
Выполнила: студентка
группы ПС-197 Савельева К.А.
Проверил: Сяськов С.В.
Челябинск 2009
Условие задачи
Составить программу на языке TurboPascal для параллельной сортировки множества из n чисел, где n- мощность множества, состоящего из букв фамилии, n>2.
Оглавление
Условие задачи
Описание программы
Схема алгоритма
Текст Программы
Примеры выполнения
Список литературы
Описание программы
Тело программы начинается с цикла for, создающего верхнюю строчку, состоящую из символов:
{ fori:=1 to 35 do
begin
textcolor(1);
write(chr(5));
end; }
где 35- произвольное число, длина строки; τextcolor – процедура, задающая цвет нужному фрагменту программы. Далее оформление создаётся аналогичным образом.
Для начала работы программы вводим фамилию. Она считывается в переменную fam типа string. Затем требуется создать по количеству символов из этой введенной фамилии одномерный массив типа integer. Для этого сначала требуется посчитать количество символом - это легко можно сделать с помощью строковой функции Length: e:=Length(fam), где e-переменная типа integer.
Далее требуется проверить введённую фамилию, на наличие цифр. Для этого используется функция Val: val(fam[i],n,kod). Эту функцию выполняем в цикле for, так как нужно проверить каждый символ в фамилии. Потом делаем проверку переменной kod в условном операторе if:
{fori:=1 toedo
begin
val(fam[i],n,kod);
if kod=0 then
begin
writeln ('neverno vvedena familia')
f:=false; end;}
Если kod=0 значит в нашей фамилии содержится цифра.
Всё выше описанное происходит в цикле repeat, условием выхода которого является f=false. В начале этого цикла мы поднимаем флажок, т.е. f=true. Далее, как описано во фрагменте кода выше, если kod=0 мы опускаем флажок. Это нужно для того, чтобы получилось зацикливание, и пользователь мог, в случае неправильного ввода фамилии, сделать это снова. Если же f=true после прохождения по циклу, цикл завершит свою работу.
После этого цикла создаётся удобный интерфейс, позволяющий пользователю не запутаться в том, что нужно ввести. Далее непосредственно начинается сортировка массива, двумя способами: методом вставки и методом пузырька.
k:=0;
{metod vstavki}
{for i:=2 to e do
begin
x:=a[i];
j:=i-1;
while (x<a[j]) and (j>=1) do
begin
a[j+1]:=a[j];
j:=j-1;
k:=k+1;
if j=0 then goto 1;
end;
1: a[j+1]:=x;
end;}
{puzyrkovyi metod}
for i:=2 to e do
begin
for j:=e downto i do
if a[j-1] > a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
end;
Схема алгоритма
![]() |
Текст Программы
program kursach1;
uses crt;
var a: array [1..100] of integer;
i,e,n,kod,j,k,x:integer; fam:string; f:boolean;
label 1;
begin
clrscr;
for i:=1 to 35 do
begin
textcolor(1);
write(chr(5));
end;
writeln;
TextColor(1); write(chr(5));
repeat
f:=true;
textcolor(5);
write(' vvedite familiu= ');read(fam);
TextColor(1); write(chr(5));
e:=length(fam);
for i:=1 to e do
begin
val(fam[i],n,kod);
if kod=0 then
f:=false;
end;
if f=false then writeln('neverno vvedena familia') else
until f=true;
Textcolor(4); write(' kol-vo bukv v familii= ',e);
TextColor(1); write(' ',chr(5));
writeln;
write(chr(5));
TextColor(11); write(' vvedite massiv iz ',e,' chisel: ');
TextColor(1); write(chr(5));
writeln;
write(chr(5),' ');
for i:=1 to e do
begin
TextColor(14);
write(i,'-e chislo=');
TextColor(45);
read(a[i]);
TextColor(1);
write(chr(5),' ');
end;
TextColor(15); write(' Isxodnii massive: ');
Textcolor(1); write(chr(5));
writeln;
write(chr(5));
for i:=1 to e do
begin
TextColor(5); write(' ',a[i],' ');
end;
writeln;
Textcolor(1); write(chr(5));
TextColor(15); write(' Otsortirovannii massive:');
TextColor(1); write(' ',chr(5));
writeln;
k:=0;
{metod vstavki}
{for i:=2 to e do
begin
x:=a[i];
j:=i-1;
while (x<a[j]) and (j>=1) do
begin
a[j+1]:=a[j];
j:=j-1;
k:=k+1;
if j=0 then goto 1;
end;
1: a[j+1]:=x;
end;}
{puzyrkovyi metod}
for i:=2 to e do
begin
for j:=e downto i do
if a[j-1] > a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
end;
write(chr(5));
For i:=1 to e do
begin
TextColor(5);
write(' ',a[i],' ');
end;
writeln;
for i:=1 to 35 do
begin
textcolor(1);
write(chr(5));
end;
readln;
end.
Примеры выполнения
Список литературы
1. http://pascal.proweb.kz/
2. Д. Кнут, Искусство программирования, М.:Мир,1978.
3. Рейнгольд, Нивергельт, Део, Комбинаторные алгоритмы. Теория и практика, М.:Мир, 1982.
Похожие работы
-
Базис стандартной и рекурсивной схемы. Верификация программы
Базис класса стандартных схем программ. Стандартная схема в линейной форме. Протокол выполнения программы рекурсивной схемы. Слабейшие предусловия операторов программы в линейной форме. Верификация программы с помощью метода индуктивных утверждений.
-
Оператор цикла
Применение циклической управляющией структуры для организации многократного выполнения некоторого оператора. Конструкция цикла: заголовок и тело, и алгоритм выполнения операторов while, do while и for. Отличия циклов с постусловием и предусловием.
-
Одномерная оптимизация функций методом золотого сечения
Создание программы в среде программирования MatLab для решения задачи одномерной оптимизации (нахождение минимума и максимума заданных функций) методом золотого сечения, построение блок-схемы алгоритма и графическое изображение исследованных функций.
-
Лабараторная работа №4
Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
-
Создание графических объектов с помощью псевдографики
Основы работы на языке высокого уровня Turbo Pascal. Основное оборудование и программное обеспечение. Операторы, необходимы для работы в графической среде Turbo Pascal. Запуск графического режима. Текст программы в графической среде Turbo Pascal.
-
Язык Paskal. Основные элементы языка. Структура программы
Ознакомление со структурой языка программирования Turbo-Pascal 7.0, его алфавитом, выражениями и простейшими конструкциями (метками, идентификаторами). Способы описания арифметических, вещественных, логических и символьных операций в программной среде.
-
Итерационные методы решения нелинейных уравнений
Решение нелинейных уравнений методом простых итераций и аналитическим, простым и модифицированным методом Ньютона. Программы на языке программирования Паскаль и С для вычислений по вариантам в порядке указанных методов. Изменение параметров задачи.
-
Информатика и ВТ
Вычисление произведения элементов массива. Обсуждение алгоритма. Текст программы. Линейный, циклический и разветвляющийся вычислительные процессы.
-
Примеры решения задач по программированию
Написание программы вычисления сопротивления электрической цепи, состоящей из двух параллельно и двух последовательно соединенных сопротивлений. Схема машинного алгоритма по условию задачи. Применение операций при написании программ на языке C/C++.
-
Решение математических задач с помощью алгоритмического языка Turbo Pascal, Microsoft Excel, пакета MathCAD и разработка программ в среде Delphi
Решение циклических программ и программ вычисления функции с условием. Уравнение в табличном редакторе Microsoft Excel и в Turbo Pascal. Вычисление определенного интеграла методом прямоугольников, трапеции, Симпсона. Линейные и нелинейные уравнения.