Очень доброжелательный и компетентный автор. Всегда был на связи, все разъяснил, предоставил несколько вариантов программы. Рекомендую.
Информация о работе
Подробнее о работе
Знакомство с Turbo Pascal
- 36 страниц
- 2016 год
- 51 просмотр
- 0 покупок
Гарантия сервиса Автор24
Уникальность не ниже 50%
Фрагменты работ
Введение 3
Глава I 5
1.1. Теоретическое обоснование задачи 5
Глава II 30
2.1. Постановка задачи 30
2.2. Блок-схема алгоритма решения задачи 30
2.3. Листинг программы 31
2.4. Результат работы программы 33
Заключение 35
Список литературы 36
1.1. Теоретическое обоснование задачи
Turbo Pascal позволяет редактировать, компилировать, компоновать и выполнять программы. При этом Вам предоставляется высокая скорость компиляции, удобство работы с компьютером и мощная библиотека процедур и функций.
Как и у любого другого языка программирования, у Turbo Pascal есть свои плюсы и минусы. К плюсам этого языка можно отнести как раз удобство разработки, наличие функциональных отладчиков, которые доступны в любой момент. Положительным моментом так же является высокая скорость компиляции и выполнения откомпилированных программ. Компиляция - это процесс перевода программы на язык машинных команд. При этом проверяется соответствие программы правилам языка программирования. При обнаружении ошибки компьютер выдает сообщение о ней пользователю и прекращает работу. В результате компиляции Turbo Pascal создает исполняемый файл с расширением ехе, т.е. программа. После этого программой можно пользоваться, как и любой другой.
...
2.3. Листинг программы
program probel;
uses Crt;
var {задаем переменные}
s: string; {переменная этого типа может хранить в себе строчку какого-нибудь текста}
c,max,i: byte; {байтовые переменные вмещают числа от 0 до 255}
begin {начало}
ClrScr; {clear screen – очистка экрана}
ReadLn(s); {вводим s}
max:= 0; {переменной max присваиваем 0}
c:= 0; {переменной c присваиваем 0}
for i:= 1 to Length(s) do {цикл от 1 до длины переменной s, }
if s[i] =' ' then {если s[i]= пробелу, то}
Inc(c) {к переменной с прибавляет единицу}
Else {иначе}
begin {начало}
if c > max then {если с > max то}
max:= c; {max присваиваем с}
c:= 0; {с присваиваем 0}
end; {конец}
if max <> 0 then {если max <> 0 (неравенство) то}
WriteLn('Max: ', max) {читать Max: и значение переменной max}
else {иначе}
WriteLn(' Пробелов нет ');
ReadLn
end. {конец}
Код программы в трансляторе.
Рис.2.3.1. Turbo Pascal
Проверка на ошибки и компиляция программы.
Рис.2.3.2. Компиляция.
2.4.
...
2.4. Результат работы программы
Пример№1
Вводим текст (Рис.2.4.1).
Рис.2.4.1. Ввод текста.
После ввода текста, нажимаем клавишу Enter. Далее программа выдаст результат (Рис.2.4.2).
Рис.2.4.2. Получение результата.
Наибольшее количество подряд идущих пробелов, равно трем (Max: 3).
Пример№2
Вводим текст без пробелов (Рис. 2.4.3).
Рис. 2.4.3. Ввод текста.
После ввода текста, нажимаем клавишу Enter. Далее программа выдаст результат (Рис. 2.4.4).
Рис. 2.4.4. Получение результата.
Заключение
Программа написана на языке Turbo Pascal. Этот язык представляет мощное инструментальное средство написания прикладных программ, которое можно использовать в реальной работе. Turbo Pascal является средой разработки Программного Обеспечения фирмы Borland. ПО в среде Turbo Pascal реализуется на процедурно - ориентированном языке Паскаль.
...
Список литературы
1. Бутомо И.Д., Самогадин А.В., Усанова Д.В. «Программирование на алгоритмическом языке Паскаль». Л.: изд-во Ленингр. университета, 1985 г.
2. Алексеев Е.Р. Чеснокова О.В. «Турбо – Паскаль 7.0» М.: NT – Press, 2002 г.
3. Новиков В. С. «Программирование на языке Турбо – Паскаль». М.: изд. АСТ, 1998 г.
4. Немнюгин С.А. «Турбо – Паскаль: программирование на языке высокого уровня». С–Пб.: Питер, 2004 г.
Форма заказа новой работы
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
