Единый реферат-центр России и СНГ
загрузка...
Список дисциплин:
  • Астрономия и космонавтика
  • Банковское, биржевое дело и страхование
  • Безопасность жизнедеятельности и охрана труда
  • Биология, естествознание, КСЕ
  • Бухгалтерский учет и аудит
  • Военное дело и гражданская оборона
  • География и экономическая география
  • Геология, гидрология и геодезия
  • Государство и право
  • Журналистика, издательское дело и СМИ
  • Иностранные языки и языкознание
  • История и исторические личности
  • Коммуникации, связь, цифровые приборы и радиоэлектроника
  • Краеведение и этнография
  • Кулинария и продукты питания
  • Культура и искусство
  • Литература
  • Маркетинг, реклама и торговля
  • Математика
  • Медицина
  • Международные отношения и мировая экономика
  • Менеджмент и трудовые отношения
  • Музыка
  • Педагогика
  • Политология
  • Программирование, компьютеры и кибернетика
  • Производство и технологии
  • Психология
  • Разное
  • Религия и мифология
  • Сельское, лесное хозяйство и землепользование
  • Социальная работа
  • Социология и обществознание
  • Спорт, туризм и физкультура
  • Строительство и архитектура
  • Таможенная система
  • Транспорт
  • Физика и энергетика
  • Философия
  • Финансы, деньги и налоги
  • Химия
  • Экология и охрана природы
  • Экономика и экономическая теория
  • Экономико-математическое моделирование
  • Этика и эстетика
  • Главная » Рефераты » Текст работы «Язык программирования Turbo Pascal»

    Язык программирования Turbo Pascal

    Дисциплина: Программирование, компьютеры и кибернетика
    Вид работы: контрольная работа
    Язык: русский
    Дата добавления: 21.10.2010
    Размер файла: 12 Kb
    Просмотров: 1492
    Загрузок: 52
    Описание предметной области решаемой задачи. Входные документы, необходимые для решения задачи, ее функции. Разработка информационного обеспечения задачи и реквизиты входной информации. Технология и алгоритмов решения задачи и их машинная реализация.

    Хотите скачать данную работу?
    Чтобы скачать работу бесплатно нужно подписаться на нашу группу ВКонтакте! Просто подпишитесь, нажав на кнопку внизу.

    Через несколько секунд после проверки подписки появится ссылка на продолжение загрузки работы.
    Узнать стоимость Вашей работы? (ответ за 5 минут)

    Сделать работу самостоятельно с помощью "РЕФ-Мастера" ©
    Повысить оригинальность данной работы
    РЕФ-Мастер - уникальная программа для самостоятельного написания рефератов, курсовых, контрольных и дипломных работ. При помощи РЕФ-Мастера можно легко и быстро сделать оригинальный реферат, контрольную или курсовую на базе готовой работы - Язык программирования Turbo Pascal.
    Основные инструменты, используемые профессиональными рефератными агентствами, теперь в распоряжении пользователей реф.рф абсолютно бесплатно!
    Похожие работы:

    Язык программирования C++

    3.06.2004/реферат

    Почему C++. Возникновение и эволюция языка C++. Сравнение языков С++ и С. Эффективность и структура. Процедурное программирование. Модульное программирование. Абстракция данных. Объектно-ориентированное программирование. Улучшенный С.

    Язык программирования Pascal

    7.06.2010/отчет по практике

    История языка Pascal, его основные концепции. Линейный и циклический алгоритмы, типы данных. Условные операторы, операторы цикла. Программа вычисления суммы n первых членов геометрической прогрессии по любым двум ее членам, номера которых известны.

    Язык программирования Visual Basic for Applications

    11.03.2010/реферат

    Рождение и развитие Basic. Краткое описание Visual Basic for Applications. Новые возможности Visual Basic 5.0. Пример взаимодействия Excel и Visual Basic. Программирование табличных функций. Встраивание, применение функций. Формы, средства управления OLE.

    Язык программирования С++

    17.04.2010/презентация

    Изучение способов организации консольного ввода/вывода данных в режиме черного экрана. Ознакомление со стандартными типами данных (целый, вещественный, символьный, логический) и методами описания переменных, использующихся на языке программирования С++.

    Язык программирования высокого уровня С++

    14.12.2010/курсовая работа

    Характеристика основных разделов программирования, изучаемых в курсе программирования на языке С++. Описание внутренних переменных, входных и выходных данных. Особенности использования компилятора Microsoft Visual Studio 2008. Руководство пользователя.

    Язык программирования Turbo Pascal

    21.10.2010/контрольная работа

    Описание предметной области решаемой задачи. Входные документы, необходимые для решения задачи, ее функции. Разработка информационного обеспечения задачи и реквизиты входной информации. Технология и алгоритмов решения задачи и их машинная реализация.

    Язык программирования высокого уровня С++

    14.12.2010/курсовая работа

    Характеристика основных разделов программирования, изучаемых в курсе программирования на языке С++. Описание внутренних переменных, входных и выходных данных. Особенности использования компилятора Microsoft Visual Studio 2008. Руководство пользователя.

    Табличный процессор MS Excel. Язык программирования Visual Basic for Applications

    26.02.2010/шпаргалка

    Назначение и основные функции Ехсе1. Причины возникновения ошибок и способы их решения в Ехсе1. Язык программирования Visual Basic for Applications (VBA): общая характеристика языка. Основные понятия информационной безопасности, способы ее нарушения.

    Что такое язык программирования

    27.05.2007/реферат

    Что такое язык программирования. Для чего нужны языки программирования. Какие существуют языки программирования. Фортран. Алгол. Кобол. Лисп. Бейсик. Форт. Паскаль. Ада. Си. Пролог. Что такое компилятор и интерпретатор.

    Особенности работы с MS Excel, СУБД MS Access, программирование на языке Бейсик

    15.02.2010/контрольная работа

    Язык программирования как система обозначений, применяемая в описании алгоритмов для ЭВМ. Разработка программы на языке программирования Бейсик. Освоение приемов работы с электронными таблицами MS Excel. Создание базы данных с помощью СУБД MS Access.


    Похожие учебники и литература:

    Информатика. Учебник. Симонович С.В. Часть 1.
    Информатика. Учебник. Симонович С.В. Часть 2.
    Основы информационного менеджмента
    Документальные информационно поисковые системы (ДИПС)





    Код ссылки для вставки в блоги или веб-сайты:

    Содержание

    • 1 Постановка задачи
      • 1.1 Описание предметной области решаемой задачи
      • 1.2 Функции, реализуемые задачей
      • 1.3 Входные документы, необходимые для решения задачи
      • 1.4 Описание выходной информации
    • 2 Разработка информационного обеспечения задачи
      • 2.1 Описание реквизитов входной информации
    • 3 Описание технологии и алгоритмов решения задачи и их машинная реализация
      • 3.1 Описание технологии ввода входной информации
      • 3.2 Обобщенный алгоритм решения задачи и его декомпиляция на модули
      • 3.3 Алгоритмы реализации отдельных модулей задачи
    • Заключение
    ВВЕДЕНИЕ

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

    Целью данной работы является закрепление полученных знаний по языку программирования Turbo Pascal.

    Для этого создается модуль, который служит для осуществления операций над матрицами и вызывающая программа, использующая этот модуль

    1 Постановка задачи

    1.1 Описание предметной области решаемой задачи

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

    В данном проекте рассматривается процессы оперирования матричными данными посредством отдельного созданного модуля

    1.2 Функции, реализуемые задачей

    В данном проекте должны быть реализованы следующие функции:

    - Заполнение исходной матрицы различными способами;

    - Формирование минора минимального элемента исходной матрицы;

    - Определение количества нулей в полученном миноре;

    - Вывод результата на экран, в файл или на принтер

    1.3 Входные документы, необходимые для решения задачи

    Для функционирования программы кроме исполняемого файла должен присутствовать разработанный модуль.

    При условии заполнения матрицы из файла должен присутствовать файл, содержащий числовую матрицу.

    1.4 Описание выходной информации

    Программа выводит результат на экран, в файл или на принтер.

    Результат представляет собой полученную матрицу С и строку, повествующую о количестве нулей в матрице С.

    2 Разработка информационного обеспечения задачи.

    2.1 Описание реквизитов входной информации

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

    Для матрицы создан тип matr = array [1..n,1..n] of integer,

    Где n - максимально допустимое количество строк и столбцов.

    Во входном файле может содержаться матрица любой размерности, не превосходящей n. Элементы в файле должны быть разделены символом «Пробел», и разбиты на строки. При отсутствии необходимых элементов, программы заполнит недостающие элементы нулями.

    Если в исходных данных содержится ошибка, программа сообщит, и предоставит возможность снова ввести данные.

    3 Описание технологии и алгоритмов решения задачи и их машинная реализация.

    3.1 Описание технологии ввода входной информации

    При формировании матрицы датчиком случайных чисел необходимо только задать размер матрицы (количество строк и столбцов)

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

    3.2 Обобщенный алгоритм решения задачи и его декомпиляция на модули

    Данный проект содержит модуль и вызывающую программу.

    Задача модуля заключается в следующем:

    - Заполнить исходную матрицу А;

    - Обработать матрицу А и сформировать матрицу С, путем вычеркивания строки и столбца матрицы А, на пересечении которых находится минимальный элемент матрицы А;

    - Определить количество нулей в матрице С;

    - Вывести результат.

    Задача вызывающей программы заключается в следующем:

    - Создание интерфейса пользователя - меню;

    - Использование средств программного модуля.

    Схема алгоритма:

    3.3 Алгоритмы реализации отдельных модулей задачи

    Модуль Modul1 содержит следующие процедуры и функции:

    · procedure create (var b:matr;t:integer); - процедура создания матрицы, t - способ создания;

    · procedure vivod (b:matr;t:integer;x:integer); - процедура вывода результата, t - способ вывода, x - тип матрицы(исходная, результирующая);

    · function nomi(x:char;b:matr):integer; - функция нахождения строки или столбца минимального элемента матрицы;

    · function null(c:matr):integer; - функция определяет количество нулей в матрице;

    · procedure obrab (b:matr;var c:matr); - процедура создание минора С из матрицы А;

    · function FileExists(FileName: String): Boolean; - функция определяет создан ли запрошенный на чтение файл.

    Вызывающая программа содержит:

    · procedure menu; - процедура, создающая программный интерфейс типа меню.

    Текст модуля modul1:

    unit modul1;

    interface

    {uses wincrt,winprn;}

    const n=40;

    type

    matr = array [1..n,1..n] of integer;

    var k1,k2: integer;

    procedure create (var b:matr;t:integer);

    procedure vivod (b:matr;t:integer;x:integer);

    function nomi(x:char;b:matr):integer;

    function null(c:matr):integer;

    procedure obrab (b:matr;var c:matr);

    function FileExists(FileName: String): Boolean;

    implementation

    function FileExists;

    var

    F: file;

    begin

    {$I-}

    Assign(F, FileName);

    Reset(F);

    Close(F);

    {$I+}

    FileExists := (IOResult = 0) and (FileName <> '');

    end;

    function null;

    var k,i,j:integer;

    begin

    k:=0;

    for i:=1 to k1-1 do

    for j:=1 to k2-1 do

    if c[i,j]=0 then k:=k+1;

    null:=k;

    end;

    procedure obrab;

    var x,y,i,j:integer;

    begin

    x:=0; y:=0;

    for i:=1 to k1 do

    begin

    if i<>nomi('i',b) then x:=x+1;

    y:=0;

    for j:=1 to k2 do

    if (j<>nomi('j',b)) And (i<>nomi('i',b)) then

    begin

    y:=y+1;

    c[x,y]:=b[i,j];

    end;

    end;

    end;

    function nomi;

    var min,a,i,j:integer;

    begin

    min:=maxint;

    for i:=1 to k1 do

    for j:=1 to k2 do

    begin

    if b[i,j]<min then begin

    min:=b[i,j];

    if x='i' then a:=i;

    if x='j' then a:=j;

    end;

    end;

    nomi:=a;

    end;

    procedure create;

    var i,j,x,e:integer;

    f:text;

    ch: char;

    path,s: string;

    begin

    case t of

    1: begin {random}

    randomize;

    writeln('Vvedite razmer matrici');

    write('n='); readln(k1);

    write('m='); readln(k2);

    for i:=1 to k1 do

    for j:=1 to k2 do

    b[i,j]:=random(21)-10;

    end;{random}

    2: begin{keyboard}

    writeln('Vvedite razmer matrici');

    write('n='); readln(k1);

    write('m='); readln(k2);

    writeln('Vvedite ',k1*k2,' elementov');

    for i:=1 to k1 do

    for j:=1 to k2 do

    begin

    write('Vvedite [',i,',',j,'] element: ');

    readln(s);

    val(s,x,e);

    if e=0 then b[i,j]:=x

    else begin

    Writeln('Matrica dolzhna sostoyat'' iz celih chisel');

    readln;

    i:=k1;

    j:=k2;

    end;

    end;

    end;{keyboard}

    3: begin{FromFile}

    i:=1; j:=1; s:=''; k1:=1; k2:=1;

    Writeln('Vvedite imya faila (ili polniy put)');

    readln(path);

    if FileExists(path) then

    begin

    Assign(f,path);

    Reset(f);

    repeat

    Read(F, ch);

    if ch=#10 then begin

    i:=i+1;

    k1:=k1+1;

    k2:=j-1;

    j:=1;

    end;

    if ((ch<>' ')and(ch<>#13)and(ch<>#10)) then s:=s+ch

    else begin

    if (s<>'') then

    begin

    val(s,x,e);

    s:='';

    if e=0 then begin

    b[i,j]:=x;

    j:=j+1;

    end

    else begin

    writeln('Oshibka v dannih');

    end;

    end;

    end;

    until Eof(F);

    if s<>'' then begin

    val(s,x,e);

    s:='';

    if e=0 then begin

    b[i,j]:=x;

    j:=j+1;

    end

    else begin

    writeln('Oshibka v dannih');

    end;

    end;

    Close(f);

    end{FileExist}

    else begin

    writeln('Fail ne sushestvuet');

    readln;

    end;

    end;{FromFile}

    end;{case}

    end;{procedure}

    procedure vivod;

    var i,j:integer;

    ff,fp:text;

    path:string;

    line:string;

    begin

    case t of

    1: begin

    for i:=1 to k1-x do

    begin

    for j:=1 to k2-x do

    write (b[i,j]:6);

    writeln;

    end;

    if x=1 then Writeln('Kolichestvo nuley: ',null(b));

    end;

    2: begin

    Writeln('Vvedite imya faila (ili polniy put)');

    readln(path);

    assign(ff,path);

    rewrite(ff);

    for i:=1 to k1-x do

    begin

    for j:=1 to k2-x do

    write(ff,b[i,j],' ');

    writeln(ff);

    end;

    Writeln(ff,'Kolichestvo nuley: ',null(b));

    Close(ff);

    Writeln('Matrica uspeshno sohranena v faile ',path);

    end;

    (* 3: begin{Printer}

    AssignDefPrn(fp);

    for i:=1 to k1 do

    for j:=1 to k2 do

    Writeln(fp, b[i,j], ' ');

    if KeyPressed and (ReadKey = #27) then

    begin

    AbortPrn(Prn);

    Break;

    end;

    Close(fp);

    end;*){Printer}

    end;{case}

    end;{Procedure}

    end.

    Текст вызывающей программы:

    uses crt,modul1;

    var A,c:matr;

    f1,f2:boolean;

    procedure menu;

    var choise,cinp:char;

    inp,e:integer;

    begin

    clrscr;

    Writeln(' Menu');

    Writeln(' 1. Vvod matrici A');

    Writeln(' 2. Obraborat''matricu');

    Writeln(' 3. Vivesti rezultat');

    Writeln(' 4. Vihod');

    choise:=readkey;

    if choise=#27 then halt;

    if ((choise<>'1') and (choise<>'4') and (f1=false)) then

    begin

    Writeln('Snachala neobhodimo sozdat'' matricu A');

    cinp:=readkey;

    if cinp=#27 then halt;

    menu;

    end;

    if ((choise='3') and (f2=false)) then

    begin

    Writeln('Snachala neobhodimo obrabotat'' matricu A');

    cinp:=readkey;

    if cinp=#27 then halt;

    menu;

    end;

    Case choise of

    '1': begin

    f1:=true;

    clrscr;

    Writeln;

    Writeln('1. Sozdat sluchainuyu matricu');

    Writeln('2. Vvesti s klaviaturi');

    Writeln('3. Iz faila');

    cinp:=readkey;

    val(cinp,inp,e);

    if ((e=0) And ((inp=1) Or (inp=2) Or (inp=3))) then

    begin

    create(A,inp);

    menu;

    end

    else begin

    writeln('Neverniy vibor');

    readkey;

    menu;

    end;

    end;{1}

    '2': begin

    f2:=true;

    obrab(a,c);

    Writeln('Matrica uspeshno obrabotana:');

    Writeln('Ishodnaya matrica:');

    vivod(A,1,0);

    Writeln('Naiden minor minimalnogo elementa [',nomi('i',A),',',nomi('j',A),']');

    readkey;

    menu;

    end;

    '3': begin

    clrscr;

    Writeln;

    Writeln('1. Vivesti na ekran');

    Writeln('2. Sohranit v fail');

    Writeln('3. Raspechatat''');

    cinp:=readkey;

    val(cinp,inp,e);

    if ((e=0) And ((inp=1) Or (inp=2) Or (inp=3))) then

    begin

    vivod(C,inp,1);

    readkey;

    menu;

    end

    else begin

    writeln('Neverniy vibor');

    readkey;

    menu;

    end;

    end;

    '4': halt;

    else begin

    writeln('Neverniy vibor');

    readkey;

    menu;

    end;

    end;{Case}

    end;

    BEGIN

    clrscr;

    f1:=false;

    f2:=false;

    menu;

    readkey;

    END.

    Заключение

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

    Сколько стоит УНИКАЛЬНАЯ работа?

    оформить заказ

    Скачать работу: Язык программирования Turbo Pascal

    Перейти в список рефератов, курсовых, контрольных и дипломов по
             дисциплине Программирование, компьютеры и кибернетика