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

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


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

Информация:

Тип работы: курсовая работа. Добавлен: 13.10.2012. Сдан: 2010. Страниц: 13. Уникальность по antiplagiat.ru: < 30%

Описание (план):


 
Кафедра информационных технологий
Учебная дисциплина
«Информатика  и программирование» 
 
 

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

На  тему: Разработка  консольных  приложений  в  среде 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)1
    Именно  с ним в данной курсовой работе мы и будем работать. В качестве среды для разработки приложений на этом языке выберем среду языка Delphi, который развился из Турбо Паскаля, а тот, в свою очередь, – из Паскаля.
    Delphi позволяет разрабатывать приложения Windows. Но в этой работе мы рассмотрим только создание программ в стиле MS-DOS, называемых консольными приложениями. Внешне они выглядят, как программы с текстовым интерфейсом, но способны обращаться к большинству функций Windows. Пример консольного приложения показан ниже, на рис. 1.
 

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

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

 


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

 
    Задача 1.7. Некто располагает суммой в А руб. Он хочет купить В книг по С руб. и D журналов по Е руб. Написать программу, проверяющую, возможна ли такая покупка.
    Решение.
    Вначале составим алгоритм решения поставленной задачи.
    Ввести с клавиатуры исходные данные: А, В, С, D, E
    Проверить корректность введенных данных. Например, очевидно, что количество не может быть меньше единицы, так же как и стоимость не может быть отрицательной.
    Повторить ввод данных, если они некорректны, или перейти к следующему шагу, если все верно.
    Подсчитать стоимость всей покупки.
    Сравнить сумму имеющихся денег (А) со стоимостью покупки (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. Написать программу, определяющую, на какую цифру заканчивается заданное натуральное число. 

    Решение.
    Для начала составим алгоритм.
    Ввести натуральное число N.
    Вычислить остаток от деления числа N на 10, который и будет являться последней цифрой этого числа.
    Вывести результат.
    Итак, для того, чтобы определить последнюю  цифру числа N, достаточно вычислить остаток от деления этого числа на 10. В Паскале для этого существует операция mod – получение остатка от целочисленного деления. Давайте рассмотрим примеры, представленные в таблице 1. 1. В первой колонке дано действие, во второй – результат.
    12345 mod 10 5
    1234 mod 10 4
    123 mod 10 3
    12 mod 10 2
    1 mod 10 1
    
    Разобравшись  с методом решения задачи, перейдем к ее реализации на языке Паскаль. Нам понадобятся две переменные типа integerN и M. В переменную M запишем конечный результат программы – последнюю цифру числа N, а затем выведем на экран.
    Приведем  полный код программы:
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var N,M: integer;
begin
write ('Введите натуральное число: ');
readln(N);                  // Вводим натуральное число
M:=N mod 10;          // вычисляем остаток от деления на 10
Write ('Число ',N,' оканчивается на цифру ',M); // выводим результат
readln;
end.
    Экранная  форма с результатами работы программы:
   
 


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

 
    Задача 3.7. Написать программу, проверяющую, поместится ли равносторонний треугольник площадью Р в круг площадью S, или круг поместится в треугольник, или они не поместятся друг в друга. 

    Решение.
    Составим  алгоритм решения задачи.
    Ввести исходные данные: площадь круга (S) и треугольника (P).
    Вычислить радиус круга.
    Вычислить сторону треугольника (a).
    Вычислить радиус описанной окружности около данного треугольника через его сторону.
    Вычислить радиус вписанной окружности для данного треугольника через его сторону.
    Сравнить радиус круга с результатами пунктов 4 и 5 и вывести соответствующее сообщение.
    Итак, чтобы определить, поместится ли треугольник  в круг, или круг поместится в треугольник, необходимо:
    Вычислить радиус круга.
    вычислить радиус описанной окружности, т.е. той, которая бы могла пройти через все три его точки (рис. 3.1).
    вычислить радиус вписанной окружности, т.е. той, которая бы могла касаться всех его сторон (рис. 3.2).
 
    
 

    Очевидно, что для того чтобы треугольник вошел в круг, его радиус не должен быть меньше радиуса описанной окружности около треугольника; а для того чтобы круг вошел в треугольник, радиус круга не должен превышать радиус вписанной окружности в треугольник.
    Перед тем как приступить к разбору  кода программы, отметим, что всем переменным следует присвоить вещественный тип real.
    program Project3;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var S, P, r, r1, r2, a:real;
    begin
    write ('S = ');
    readln(S);       //ввод площади круга
    write ('P = ');
    readln(P);       //ввод площади треугольника
    r:=sqrt(S/Pi);        //радиус круга
    a:=sqrt(4*P/sqrt(3));   //сторона треугольника a
    r1:=a*sqrt(3)/3;     //радиус описанной окружности около треугольника
    r2:=a*sqrt(3)/6;      //радиус вписанной окружности в треугольник
    if (r < r1) and (r > r2) then write ('Они не войдут друг в друга')
    else if r1 < r then write ('Треугольник поместится в круге')
    else if r2 > r then write('Круг войдет в треугольник');
    readln;
    end.
    Как видите, на сей раз мы пронумеровали  строки – для удобства.
    Радиус  круга S (строка 11) вычисляется по формуле2: . Перед тем, как вычислять радиус описанной окружности около треугольника, необходимо сначала найти его стороны. Так как нам дан равносторонний треугольник, наша задача существенно упрощается, потому что, как известно, у такого треугольника все стороны равны, и, следовательно, его площадь рассчитывается по следующей формуле: . Исходя из этой формулы, получаем, что (строка 12). Функция sqrt(x) извлекает квадратный корень из числа x, причем необходимо помнить, что возвращаемый результат всегда вещественного типа.
    Найдя сторону a, мы можем вычислить радиус описанной () и радиус вписанной () окружности для данного треугольника: (строка 13) и (строка 14). Далее нам остается только сравнить. В строке 15 говорится, что если и , то они не войдут друг в друга; если то треугольник войдет в круг (строка 16); а если , то круг поместится в треугольнике (строка 17). Давайте теперь посмотрим результаты работы программы (рис. 3.3.):

    
 


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

 
    Задача 4.7. Написать программу, позволяющую вычислить с помощью цикла: , где n задается с клавиатуры. 

    Решение.
    Вначале, как обычно, составим алгоритм, по которому будет решаться наша задача.
    Ввести число n.
    Присвоить переменной s значение n.
    Прибавить к переменной s выражение n – 1.
    Повторить предыдущую операцию (пункт 3) m раз.
    Прибавить к переменной s число 2, а затем 1.
    Вывести результат.
    В этой задаче нам необходимо вычислить  выражение , в котором n – 1 суммируется с самим собой m раз. Заметим, что переменная m в данном случае является константой3. Теперь приступим к разбору кода программы.
    program Project4;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    const m = 10;   // объявляем константу m и присваиваем ей значение 10
    var n,i,s:integer;
    begin
    write('n = ');
    readln(n);
    s:=n;                        // стартовое значение
    for i:=1 to m do      // i будет поочередно принимать значения от 1 до m
    s:=s+(n-1);                   //(n - 1) прибавляется к общей сумме
    s:=s+2+1;
    write (' Результат выражения: ', s);         //вывод результата
    readln;
    end.
     
    Итак, вводим число n (строка 9). Переменной s, предназначенной для накапливания суммы, присваиваем изначально число n (строка 10). Затем организовываем цикл for…do, параметром которого выступает переменная i (строка 11). Если значение i меньше или равно m, то выполняется тело цикла, в котором к переменной s прибавляется выражение n – 1 (строка 12). После завершения цикла к s прибавим оставшиеся числа: 2 и 1(строка 13). И в четырнадцатой строке мы выводим результат нашего выражения на экран, как показано на рис. 4.1.

 


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

 
    Задача 7.7. В двухмерном массиве поменять местами строки, содержащие максимальный и минимальный элементы. 

    Решение.
    Составим  алгоритм.
    Ввести элементы матрицы.
    Сравнить элементы массива и записать в переменную min номер строки с минимальным элементом.
    Сравнить элементы массива и записать в переменную max номер строки с максимальным элементом.
    Перезаписать строки min и max друг в друга.
    Вывести измененный массив.
    В этой задаче снова удобнее использовать константы – n и m, в которых будут храниться размеры двухмерного массива, т.е. количество столбцов и строк соответственно.
     const n=3;        //количество столбцов
     const m=3;        //количество строк
     var B:array [1..n, 1..m] of integer;
    Итак, вначале нам необходимо ввести данные в массив. Для этого воспользуемся  циклом for…do.
           for i:=1 to n do         //столбцы
   for j:=1 to m do           //строки
   begin
   write ('B[',i,', ',j,'] = ');     
    readln (B[i,j]);               //Ввод элемента матрицы
    end;
      Когда i превысит n, цикл завершится и, если текущий столбец – не последний (то есть j < m), повторится снова. Таким образом, массив заполняется построчно.
    Дальше  переходим к поиску минимального элемента матрицы. Предположим, что  минимальным является первый элемент  в первой строке (B[1,1]), и присвоим переменной k значение B[1,1], а min – единицу. Затем снова организуем цикл for…do и сравним переменную k со всеми последующими элементами массива; если нашлось значение меньше k, записываем его в переменную k, а номер текущей строки – в min.
    Поиск максимального значения осуществляется по тому же принципу, с той лишь разницей, что в этом случае k хранит предположительно максимальный элемент, а номер искомой строки записывается в переменную max.
    k:=B[1,1];
    min:=1;
    for i:=2 to n do          //столбцы
    for j:=1 to m do      //строки
    if B[i,j]<k then       //если очередной элемент массива меньше k
    begin
      k :=B[i,j];            //присвоить k этот элемент
      min :=i;             //и присвоить min номер этой строки
    end;
    //Так  же находим и максимальное  значение:
    k:=B[1,1];
    max:=1;
    for i:=2 to n do
      for j:=1 to m do
    if B[i,j]>k then
    begin
     k :=B[i,j];
     max:=i;
    end;
    Теперь  нам осталось только поменять строки двухмерного массива, содержащие минимальный  и максимальный элемент, местами, то есть перезаписать их друг в друга. Но как это сделать? Ведь если мы напишем, например, так: B[1,1] = B[2,3] – то значение B[1,1] пропадет. В этом нам поможет наша вспомогательная переменная k. Она будет хранить значение этого элемента массива.
    for j:=1 to n do
    begin
    k:=B[max,j];         
    B[max,j]:=B[min,j];
    B[min,j]:=k;
    end;
    И, наконец, выводим измененный массив на экран:
    for i:=1 to n do
      for j:=1 to m do
       writeln ('B[',i,', ',j,'] = ',B[i,j]);
      Теперь приведем полный код программы:
    program Project5;
    {$APPTYPE CONSOLE}
    uses
      SysUtils;
    const n=3;
    const m=3;
    var B:array [1..n, 1..m] of integer;
    i,j,k,min,max:integer;
    begin
    for i:=1 to n do         //столбцы
    for j:=1 to m do           //строки
    begin
    write ('B[',i,', ',j,'] = ');     
                 readln (B[i,j]);               //Ввод элемента матрицы
         end;
    //---начинаем поиск минимального элемента массива:
    k:=B[1,1];
    min:=1;
    for i:=2 to n do          //столбцы
    for j:=1 to m do      //строки
    if B[i,j]<k then       //если очередной элемент массива меньше k
    begin
      k :=B[i,j];            //
и т.д.................


Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть полный текст работы бесплатно


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.