Лабораторная работа № 5 Создание консольного приложения и вкладки «Пример» в главном меню курсового проекта в Delphi Цель работы: изучение программных способов формирования вкладки «Пример» в главном меню курсового проекта, реализация программы в консольном режиме в интегрированной среде разработки Delphi.

Лабораторная работа № 5

Создание консольного приложения и вкладки «Пример»  в главном меню курсового проекта в Delphi

Цель работы: изучение программных способов формирования вкладки «Пример» в главном меню курсового проекта, реализация программы в консольном режиме в интегрированной среде разработки Delphi.

Задание

Создать папку, проект, блок-схему алгоритма, вкладки «Пример» в главном меню курсового проекта, консольное приложение в интегрированной среде разработки Delphi.

                                          Ход работы

Рисунок 1 – Блок-схема

вкладки «Пример»

                         Да                                         Нет

Рисунок 2- блок-схема консольного приложения

Рисунок 3 – фрагмент окна программы по добавлению примера

Рисунок 4 – фрагмент окна программы по добавлению консольного приложения

Рисунок 5 – вид окна примера решения задачи

Рисунок 6 – вид окна программы консольного режима

Рисунок 7 – результат работы консольного приложения

Код программы

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils,

  Windows;

function rus(m:string):string;

     var i:integer;

     begin

     for i:=1 to length(m) do

     case m[i] of

      'А'..'п':m[i]:=Chr(Ord(m[i])-64);

      'р'..'я':m[i]:=Chr(Ord(m[i])-16);

end;

rus:=m;

end;

var

  M,N,M1,N1,xt,yt,y,y1:Real;

begin

  {SetConsoleCP(1251);

  SetConsoleOutputCP(1251);}

  { TODO -oUser -cConsole Main : Insert code here }

  writeln(Rus('Введите коэффициенты первого уравнения M и N через пробел:'));

readln(M,N);

    writeln('M=',M:8:2,' ','N=',N:8:2);

    writeln(Rus('Введите коэффициенты второго уравнения M1 и N1 через пробел:'));

readln(M1,N1);

    writeln('M1=',M:8:2,' ','N1=',N1:8:2);

    writeln(Rus('Введите координаты точки T через пробел:'));

readln(xt,yt);

    writeln('xt=',xt:8:2,' ','yt=',yt:8:2);

    writeln('---------------------------------------------------');

    y:=M*xt+N;

    y1:=-M1*xt+N1;

if y=yt then  Writeln(Rus('Прямая y=2x+3 проходит через точку'+#13#10+'Прямая y=-x+4 не проходит через точку'))

 else

if y1=yt then Writeln(Rus('Прямая y=-x+4 проходит через точку'+#13#10+'Прямая y=2x+3 не проходит через точку'))

 else

if (y=yt) and (y1=yt) then  Writeln(Rus('Прямая y=2x+3 проходит через точку'+#13#10+'проходит через точку'))

 else

Writeln(Rus('Прямая y=2x+3 не проходит через точку'+#13#10+'Прямая y=-x+4 не проходит через точку'));

readln;

end.

Вывод: Консольный режим используется, когда основными требованиями к программе являются, сокращение времени счёта и расхода оперативной памяти. На подготовку таких программ требуется меньше времени, поэтому консольный режим удобно использовать для быстрой проверки и отладки отдельных алгоритмов. Для создания программы, работающей в консольном режиме, следует после запуска Delphi 7 ввести командуFile/New/Other/ConsoleApplication.