Кафедра информационных технологий

Учебная дисциплина

«Информатика  и программирование» 
 
 

КУРСОВАЯ  РАБОТА 

На  тему: Разработка  консольных  приложений  в  среде Delphi 

Выполнила Жолобова Д. Е.

Руководитель        Родин Д. А.

                                                                         
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Тула, 2010 год 

Оглавление 

Введение 3

Глава 1. Простейшие арифметические и логические операции 5

Глава 2. Линейные программы 9

Глава 3. Ветвящиеся программы 11

Глава 4. Циклические программы 14

Глава 5. Двумерные массивы 16

Глава 6. Строковый тип данных 21

Глава 7. Операции с файлами. 24

Заключение 30

Список использованной литературы 31 

 

Введение

 

    В наше время программированием занимаются многие ПК-пользователи. И это вполне объяснимо: с помощью программ можно решать достаточно сложные задачи – задачи, которые могут отнять у человека много драгоценных часов, в то время как компьютер решит их за доли секунд. Кроме того, поработав какое-то время с чужими программами, хочется создать нечто свое, родное. И тогда возникает вопрос: с чего начать? Выбор языков программирования на данный момент очень велик: Basic, Pascal, C, Perl и так далее. Basic – самый легкий из этого списка, его не зря называют основой программирования, так как обычно начинают именно с него. Однако этот язык недостаточно мощный, поэтому сейчас многие начинают  с чего-то более серьезного, например, с Паскаля (Pascal)¹. 

    Именно  с ним в данной курсовой работе мы и будем работать. В качестве среды для разработки приложений на этом языке выберем среду языка Delphi, который развился из Турбо Паскаля, а тот, в свою очередь, – из Паскаля.

    Delphi позволяет разрабатывать приложения Windows. Но в этой работе мы рассмотрим только создание программ в стиле MS-DOS, называемых консольными приложениями. Внешне они выглядят, как программы с текстовым интерфейсом, но способны обращаться к большинству функций Windows. Пример консольного приложения показан ниже, на рис. 1.

 

    Чтобы создать консольное приложение, например, в Borland Delphi 7, надо дать команду File ►New и в диалоговом окне New Items выбрать значок Console application (рис. 2.).

    

      

    Ну  и в завершение вступительных  слов скажем, что цель данной курсовой работы – продемонстрировать, как, разрабатывая консольные приложения, эффективно решать ряд задач. 

 

Глава 1. Простейшие арифметические и логические операции

 

    Задача 1.7. Некто располагает суммой в А руб. Он хочет купить В книг по С руб. и D журналов по Е руб. Написать программу, проверяющую, возможна ли такая покупка.

    Решение.

    Вначале составим алгоритм решения поставленной задачи.

1. Ввести с клавиатуры исходные данные: А, В, С, D, E
2. Проверить корректность введенных данных. Например, очевидно, что количество не может быть меньше единицы, так же как и стоимость не может быть отрицательной.
3. Повторить ввод данных, если они некорректны, или перейти к следующему шагу, если все верно.
4. Подсчитать стоимость всей покупки.
5. Сравнить сумму имеющихся денег (А) со стоимостью покупки (K) и вывести соответствующее сообщение: если A < K, то покупка не удастся, в ином случае покупка удастся.

    Так как в данном случае количество может  быть только целым числом, мы присвоим переменным, обозначающим количество книг и журналов, B и D целочисленный тип integer, а переменным A, C, E, K – вещественный тип real.

    В данной задаче удобно воспользоваться  циклом с постусловием repeat…until, который повторяется до тех пор, пока не станет истинным условие. Чтобы организовать из него выход, введем еще одну, дополнительную, переменную f логического типа boolean и присвоим ей значение false. Так, если пользователь ввел некорректные данные, то переменной f присваивается значение true, цикл повторяется, и ввод данных осуществляется снова; если данные корректны, то цикл завершается.

 repeat                      //входим в цикл repeat...until

f:=false;                     //предположим, что ошибок нет

write ('Введите сумму (A): ');

readln(A);

write ('Количество желаемых книг (B): ');

readln(B);

write ('Стоимость одной книги (C): ');

readln(C);

write ('Количество желаемых журналов (D): ');

readln(D);

write ('Стоимость одного журнала (E): ');

readln(E);

if ((A<1) or (B<1) or (C<0) or (D<1) or (E<0)) then // Проверяем правильность ввода

begin

f:=true;        //Если что-то введено неправильно, присваиваем переменной f значение true

writeln ('Ошибка! Повторите ввод, пожалуйста');

end;

until not f;                  //Если ошибок нет, выходим из цикла

    Посчитаем общую стоимость покупки: количество книг умножим на цену одной книги  и сложим с произведением количества журналов на стоимость одного журнала. Получившуюся сумму присвоим переменной K и сравним со значением переменной А. 

K := C * B + E * D;             // считаем общую стоимость покупки

If A<K then  // Проверяем возможность покупки и выводим соответствующее сообщение

    Для удобства, при выводе результатов  типа real целесообразно их округлять. Что мы и сделали:

writeln('Покупка невозможна, так как ее стоимость (',K:2:2,') превышает ',A:2:2,' р.')

else

writeln('Покупка возможна, ее стоимость (',K:2:2,') не превышает ',A:2:2,' р.');

    Двойка  после первого двоеточия означает количество позиций, выделяемых для  вывода значения численной переменной, включая знак, целую часть, десятичную точку и цифры после запятой. Двойка после второго двоеточия  означает количество цифр после десятичной запятой. Лишние позиции будут заменены пробелами перед целой частью числа и нулями после дробной  части.

    Теперь, когда мы обсудили все основные моменты, приведем полный листинг программы: 

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

  var B, D:integer;

      A,C,E,K: real;

      f:boolean;

begin

repeat                      //входим в цикл repeat...until

f:=false;

write ('Введите сумму (A): ');

readln(A);

write ('Количество желаемых книг (B): ');

readln(B);

write ('Стоимость одной книги (C): ');

readln(C);

write ('Количество желаемых журналов (D): ');

readln(D);

write ('Стоимость одного журнала (E): ');

readln(E);

if ((A<1) or (B<1) or (C<0) or (D<1) or (E<0)) then // Проверяем правильность ввода

begin

f:=true;        //Если что-то введено неправильно, присваиваем переменной f значение true

writeln ('Ошибка! Повторите ввод, пожалуйста');

end;

until not f;                  //Если ошибок нет, выходим из цикла

K := C * B + E * D;             // считаем общую стоимость покупки

If A<K then   //Проверяем возможность покупки и выводим соответствующее сообщение

writeln('Покупка невозможна, так как ее стоимость (',K:2:2,') превышает ',A:2:2,' р.')

else

writeln('Покупка возможна, ее стоимость (',K:2:2,') не превышает ',A:2:2,' р.');

readln;        // Задерживает выполнение программы до нажатия кнопки Enter                    

end.

    На  рис. 1.1. показана экранная форма с  результатами работы программы.

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

 
 

 

Глава 2. Линейные программы

 

    Задача 2.7. Написать программу, определяющую, на какую цифру заканчивается заданное натуральное число. 

    Решение.

    Для начала составим алгоритм.

1. Ввести натуральное число N.
2. Вычислить остаток от деления числа N на 10, который и будет являться последней цифрой этого числа.
3. Вывести результат.

    Итак, для того, чтобы определить последнюю  цифру числа N, достаточно вычислить остаток от деления этого числа на 10. В Паскале для этого существует операция mod – получение остатка от целочисленного деления. Давайте рассмотрим примеры, представленные в таблице 1. 1. В первой колонке дано действие, во второй – результат.