Сладкий сахар
20-05-2007, 00:14
Темы курсовых работ
Задание
Для предложенного варианта разработать программу на языке Turbo Pascal. Вариант задания совпадает с номером в журнале.
Оформление
По результатам работ оформляется пояснительная записка, которая должна быть сброшюрована (листы формата А4) все листы пронумерованы, иметь :
- титульный лист,
- оглавление;
- условие задачи;
- алгоритм (блок – схема или школьный алгоритмический язык);
- программный код;
- система тестов;
- результаты тестирования;
- список использованных источников.
Кроме того, к проекту прилагается дискета, на которой записана разработанная программа, ее откомпилированный вариант и текст пояснительной записки.
Пример решения
Условие задачи: заданную последовательность слов переупорядочить в алфавитном порядке (то есть выполнить лексикографическое упорядочение).
Тест
Данные Результат
Words=(''стул'', ''гора'', ''яма'', ''стол'') Words=("гора", "стол", "стул", "яма")
Школьный АЯ (АЯ расширен добавлением типа данных лит таб и операций отношения для литерных переменных)
алг Расположить по алфавиту(арг цел NWords, арг рез лит таб Words[1:NWords])
надо | Таблица Words упорядочена лексикографически
нач цел i, j, лит Tmp
нц для i от 1 до NWords-1
нц для j от i+1 до NWords
если Words[i]>Words[j] | условие перестановки слов
то Tmp:=Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
все
кц
кц
кон
Исполнение алгоритма
i j Words[i]>Words[j] Массив Words
''стул'', ''гора'', ''яма'', ''стол''
1 2
3
4 +
-
- ''гора'', ''стул'', ''яма'', ''стол''
2 3
4 -
+ ''гора'', ''стол'', ''яма'', ''стул''
3 4 + ''гора'', ''стол'' , ''стул'', ''яма''
Turbo Pascal
Program LexOrder;
Uses Crt;
Var Words : Array[1..10] of String; {массив слов}
Tmp : String; {Tmp - вспомогательная переменная}
i, j, NWords : Integer; {NWords - количество слов}
BEGIN
ClrScr;
Write('Количество слов в тексте - ');
ReadLn(NWords);
For i := 1 to NWords do
begin Write(i, '-ое слово : ');
ReadLn(Words[i])
end;
For i := 1 to NWords-1 do {лексикографическое упорядочение слов}
For j := i+1 to NWords do
If Words[i]>Words[j] then
begin
Tmp := Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
end;
WriteLn; WriteLn('О т в е т');
WriteLn('Лексикографически упорядоченный массив слов:');
For i := 1 to NWords do Write(Words[i], ' ');
WriteLn; ReadLn
END.
Варианты заданий
1. Подсчитать количество запятых в заданном тексте.
~ENigma_Girl...
20-05-2007, 00:18
Я не смогла всё это осилить и прочитать...:rolleyes:
~ENigma_Girl...
20-05-2007, 00:20
Варианты заданий
1. Подсчитать количество запятых в заданном тексте.[/QUOTE]
55 запятых.:D
Северный Ветер__*
20-05-2007, 00:41
ты включила блондинку?:D
PS: всегда считал паскаль нелогичным:D
~ENigma_Girl...
20-05-2007, 00:48
А что такое Pascal?! Хмм...слово то какое знакомое...:)
Северный Ветер__*
20-05-2007, 00:49
Угату.давай поиграем в ассоциации:D паскаль я не знаю:) Си+тока чуток:(
~ENigma_Girl...
20-05-2007, 00:50
Нет, ну нормально!!! Я же знаю, что это такое, а вспомнить никак не могу!!!:mad: :D
Северный Ветер__*
20-05-2007, 00:51
знаю, но не помню.
ЗЫ:а я тебя видел на улице:)
~ENigma_Girl...
20-05-2007, 00:53
Ты не мог меня видеть!!!:mad:
Северный Ветер__*
20-05-2007, 00:56
я зная что я тебя видел, но не помню:D:D
ЗЫ: ты че так насторожилась то?:)
~ENigma_Girl...
20-05-2007, 01:03
Да просто...вдруг ты за мной следишь!!!:D
~ENigma_Girl...
20-05-2007, 01:35
Ха-ха! Нет, мания преследования!:)