Навигация
1. Блок кода
Рисование с помощью графики
Turbo Pascal 7.0
Program myName;
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'D:\BP\BGI');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{Family}
Line(10, 10,10 ,50 );
Line(10,20,30,5);
Line(10,30,30,50);
Line(40,50,50,10);
Line(50,10,60,50);
Line(40,30,65,30);
Line(70,10,70,50);
Line(70,10,80,10);
Line(70,30,80,30);
Line(80,10,80,30);
Line(80,10,100,10);
Line(90,10,90,50);
Line(100,50,110,10);
Line(110,10,120,50);
Line(100,30,120,30);
Line(125,10,125,50);
Line(130,10,130,50);
Line(135,10,135,50);
Line(125,50,135,50);
Circle(155,30,18);
Line(180,10,180,50);
Circle(190,20,9);
Circle(190,40,9);
{Name}
Line(30,100,40,80);
Line(40,80,50,100);
Line(25,100,55,100);
Line(25,100,25,105);
Line(55,100,55,105);
Line(60,105,70,80);
Line(70,80,90,105);
Line(60,90,90,90);
Line(107,105,107,70);
Line(107,85,115,85);
Line(115,105,115,70);
Line(120,70,120,105);
Line(120,105,130,70);
Line(130,70,130,105);
Line(135,105,145,70);
Line(145,70,155,105);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
Borland C++ 3.11
#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
int main(void)
{
int gdriver = DETECT, gmode, errorcode;
initgraph(&gdriver, &gmode, "C:\BORLANDC\BGI");
errorcode = graphresult();
if (errorcode != grOk)
{
printf("Graphics error: %s\n", grapherrormsg(errorcode));
printf("Press any key to halt:");
getch();
exit(1);
}
{Family}
Line(10, 10,10 ,50 );
Line(10,20,30,5);
Line(10,30,30,50);
Line(40,50,50,10);
Line(50,10,60,50);
Line(40,30,65,30);
Line(70,10,70,50);
Line(70,10,80,10);
Line(70,30,80,30);
Line(80,10,80,30);
Line(80,10,100,10);
Line(90,10,90,50);
Line(100,50,110,10);
Line(110,10,120,50);
Line(100,30,120,30);
Line(125,10,125,50);
Line(130,10,130,50);
Line(135,10,135,50);
Line(125,50,135,50);
Circle(155,30,18);
Line(180,10,180,50);
Circle(190,20,9);
Circle(190,40,9);
{Name}
Line(30,100,40,80);
Line(40,80,50,100);
Line(25,100,55,100);
Line(25,100,25,105);
Line(55,100,55,105);
Line(60,105,70,80);
Line(70,80,90,105);
Line(60,90,90,90);
Line(107,105,107,70);
Line(107,85,115,85);
Line(115,105,115,70);
Line(120,70,120,105);
Line(120,105,130,70);
Line(130,70,130,105);
Line(135,105,145,70);
Line(145,70,155,105);
getch();
closegraph();
return 0;
}
Delphi7
unit GRAPH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1 do begin
{К}
Canvas.MoveTo(140,110);
Canvas.LineTo(140,170);
Canvas.MoveTo(170,110);
Canvas.LineTo(140,140);
Canvas.LineTo(170,170);
{А}
Canvas.MoveTo(145,90);
Canvas.LineTo(160,30);
Canvas.LineTo(175,90);
Canvas.MoveTo(155,60);
Canvas.LineTo(170,60);
{Р}
Canvas.MoveTo(145,90);
Canvas.LineTo(160,30);
Canvas.LineTo(175,90);
Canvas.MoveTo(155,60);
Canvas.LineTo(170,60);
{А}
Canvas.MoveTo(180,90);
Canvas.LineTo(160,35);
Canvas.LineTo(175,90);
Canvas.MoveTo(155,60);
Canvas.LineTo(170,60);
{Ш}
Canvas.MoveTo(60,30);
Canvas.LineTo(60,90);
Canvas.LineTo(90,30);
Canvas.LineTo(90,90);
{О}
Canvas.Ellipse(225,30,255,90);
{В}
Canvas.MoveTo(265,30);
Canvas.LineTo(265,90);
Canvas.Ellipse(265,30,295,60);
Canvas.Ellipse(265,60,300,90);
{Д}
Canvas.MoveTo(100,110);
Canvas.LineTo(100,170);
Canvas.LineTo(130,110);
Canvas.LineTo(130,170);
Canvas.MoveTo(170,110);
Canvas.LineTo(140
{А}
Canvas.MoveTo(140,110);
Canvas.LineTo(140,170);
Canvas.MoveTo(170,110);
Canvas.LineTo(140,140);
Canvas.LineTo(170,170);
{Н}
Canvas.MoveTo(180,110);
Canvas.LineTo(180,170);
Canvas.LineTo(210,110);
Canvas.LineTo(210,170);
{И}
Canvas.MoveTo(220,110);
Canvas.LineTo(250,110);
Canvas.MoveTo(235,110);
Canvas.LineTo(235,170);
{Л}
Canvas.MoveTo(260,170);
Canvas.LineTo(275,110);
Canvas.LineTo(290,170);
Canvas.MoveTo(270,140);
end;
end;
end.
Builder C++ 6.0
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Image1-> Canvas->
Form1->Image1-> Canvas->MoveTo(60,30);
Form1->Image1-> Canvas->LineTo(60,90);
Form1->Image1-> Canvas->LineTo(90,30);
Form1->Image1-> Canvas->LineTo(90,90);
Form1->Image1-> Canvas->MoveTo(100,30);
Form1->Image1-> Canvas->LineTo(100,90);
Form1->Image1-> Canvas->Ellipse(100,30,130,60);
Form1->Image1-> Canvas->Ellipse(100,60,135,90);
Form1->Image1-> Canvas->MoveTo(145,90);
Form1->Image1-> Canvas->LineTo(160,30);
Form1->Image1-> Canvas->LineTo(175,90);
Form1->Image1-> Canvas->MoveTo(155,60);
Form1->Image1-> Canvas->LineTo(170,60);
Form1->Image1-> Canvas->MoveTo(185,30);
Form1->Image1-> Canvas->LineTo(185,90);
Form1->Image1-> Canvas->MoveTo(185,60);
Form1->Image1-> Canvas->LineTo(215,60);
Form1->Image1-> Canvas->MoveTo(215,30);
Form1->Image1-> Canvas->LineTo(215,90);
Form1->Image1-> Canvas->Ellipse(225,30,255,90);
Form1->Image1-> Canvas->MoveTo(265,30);
Form1->Image1-> Canvas->LineTo(265,90);
Form1->Image1-> Canvas->MoveTo(60,110);
Form1->Image1-> Canvas->LineTo(60,170);
Form1->Image1-> Canvas->MoveTo(60,140);
Form1->Image1-> Canvas->LineTo(90,140);
Form1->Image1-> Canvas->MoveTo(90,110);
Form1->Image1-> Canvas->LineTo(90,170);
Form1->Image1-> Canvas->MoveTo(100,110);
Form1->Image1-> Canvas->LineTo(100,170);
Form1->Image1-> Canvas->LineTo(130,110);
Form1->Image1-> Canvas->LineTo(130,170);
Form1->Image1-> Canvas->MoveTo(140,110);
Form1->Image1-> Canvas->LineTo(140,170);
Form1->Image1-> Canvas->MoveTo(170,110);
Form1->Image1-> Canvas->LineTo(140,140);
Form1->Image1-> Canvas->LineTo(170,170);
Form1->Image1-> Canvas->MoveTo(180,110);
Form1->Image1-> Canvas->LineTo(180,170);
Form1->Image1-> Canvas->LineTo(210,110);
Form1->Image1-> Canvas->LineTo(210,170);
Form1->Image1-> Canvas->MoveTo(220,110);
Form1->Image1-> Canvas->LineTo(250,110);
Form1->Image1-> Canvas->MoveTo(235,110);
Form1->Image1-> Canvas->LineTo(235,170);
Form1->Image1-> Canvas->MoveTo(260,170);
Form1->Image1-> Canvas->LineTo(275,110);
Form1->Image1-> Canvas->LineTo(290,170);
Form1->Image1-> Canvas->MoveTo(270,140);
Form1->Image1-> Canvas-> LineTo(280,140);
}
//---------------------------------------------------------------------------
Вывод текста на экран
Turbo Pascal 7.0
program name;
uses crt;
begin
clrscr;
write('Karasov Danil ');
readln;
end.
Borland C++ 3.11
#include<stdio.h>
int main (void)
{
printf("'Karasov Danil ");
return 0;
}
Delphi7
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='Карташов Данил';
end;
end.
Borland C++ 3.11
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Label1->Caption = "Карташов Данил";
}
//---------------------------------------------------------------------------
2. Блок выполнения программы
Рисование с помощью графики
Turbo Pascal 7.0
Borland C++ 3.11
Delphi7
Builder C++ 6.0
Вывод текста на экран
Turbo Pascal 7.0
Borland C++ 3.11
Delphi7
Builder C++ 6.0
Вывод
Была проведена работа по написанию программы в четырех языковых средах, выводящей имя и фамилию студента на экран по средствам графики с использование простейших геометрических фигур.
Список использованных источников
1. Джаррод Холингворт, Боб Сворт, Марк Кэшмэн, Поль Густавсон Borland C++ Builder 6. Руководство разработчика = Borland C++ Builder 6 Developer's Guide. — М.: «Вильямс», 2004. — С. 976.
2. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies. — М.: Диалектика, 2007. — 336 с.
3. Хавьер Пашеку. Программирование в Borland Delphi 2006 для профессионалов = Delphi for .NET Developer’s Guide. — М.: Вильямс, 2006. — 944 с.
4. Е.А. Зуев. Программирование на языке Turbo Pascal 6.0, 7.0, М.:Веста,Радио и связь, 1993, — С.376.
5. Моргун Александр Николаевич. Справочник по Turbo Pascal для студентов. — М.: Диалектика, 2006. — С. 608.
Похожие работы
... решения на каждый из вопросов, возможности пропустить некоторые вопросы, чтобы вернуться к ним и ответить на них в случае наличия времени и др. В результате выполнения данной курсовой работы, я убедилась в широких возможностях языка программирования Delphi 7. Перечень ссылок 1. Валентин Озеров «Советы по Delphi», 1999 2. Зуев Е.А. Программирование на языке Turbo Pascal 6. 0,7.0. – М.: ...
... . В случае выбора пункта «выход», необходимо реализовать завершение работы программы и передачу управления операционной системе DOS. 1.3. Требования техническим и программным средствам Программа выполнена на языке ассемблера 8086 процессора, соответственно ей необходим IBM PC – совместимый компьютер с процессором не ниже 8086, также программа может выполняться на компьютерах с ...
... и запутанными. Схема алгоритма Рисунок 3 Схема алгоритма главной процедуры Рисунок 4 Схема алгоритма процедуры A Текст программы ;; SIERPINS.LSP для XLISP версии 2.1 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; Программа построения кривых Серпинского i-го порядка. ;; ;; ЗАПУСК: > (SierpinskiCurve 4) ;; ;; Замечание: Переменная *VMode* управляет установкой видео режима, ;; и по умолчанию ...
... данных будет нести больше смысла, если его отсортировать каким‑либо образом. Часто требуется сортировать данные несколькими различными способами. Во‑вторых, многие алгоритмы сортировки являются интересными примерами программирования. Они демонстрируют важные методы, такие как частичное упорядочение, рекурсия, слияние списков и хранение двоичных деревьев в массиве. Наконец, сортировка ...
0 комментариев