Сравнительный анализ языков программирования
Изучение организации диалоговой программы и закрепления основных элементов программирования на языке Паскаль и Си (Delphi, C++ Builder). Описание представления информации в программах на языках высокого уровня. Сравнительная характеристика Delphi и C++.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 27.02.2015 |
| Размер файла | 3,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Baraban;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
Form6.ShowModal();
end;
end.
unit Baraban;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
TForm6 = class(TForm)
Label1: TLabel;
Image1: TImage;
Panel1: TPanel;
Button1: TButton;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
sl,i:integer;
s:string;
implementation
uses Net_bukvi, Est_bukva;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
Form4.Close();
Form3.Close();
Form6.Close();
end;
procedure TForm6.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure TForm6.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i> 4 then i:=1;
s:=intToStr(i)+'.bmp';
image1.Picture.LoadFromFile(s);
Randomize;
sl:=1+random(16);
if sl=1 then Panel1.Caption:='100';
if sl=2 then Panel1.Caption:='200';
if sl=3 then Panel1.Caption:='300';
if sl=4 then Panel1.Caption:='500';
if sl=5 then Panel1.Caption:='700';
if sl=6 then Panel1.Caption:='800';
if sl=7 then Panel1.Caption:='100';
if sl=8 then Panel1.Caption:='1000';
if sl=9 then Panel1.Caption:='0';
if sl=10 then Panel1.Caption:='450';
if sl=11 then Panel1.Caption:='50';
if sl=12 then Panel1.Caption:='750';
if sl=13 then Panel1.Caption:='650';
if sl=14 then Panel1.Caption:='600';
if sl=15 then Panel1.Caption:='150';
if sl=16 then Panel1.Caption:='400';
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Button2.Enabled:=false;
Button1.Enabled:=true;
end;
procedure TForm6.FormShow(Sender: TObject);
begin
Timer1.Enabled:=true;
Button2.Enabled:=true;
Button1.Enabled:=false;
end;
end.
Пример формы выигрыша\поражения;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm9 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
Application.Terminate;
WinExec(GetCommandLine,SW_SHOWNORMAL)
end;
end.
unit Spros;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm11 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
FullProgPath: PChar;
implementation
uses Zastavka;
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
begin
Application.Terminate();
end;
procedure TForm11.Button3Click(Sender: TObject);
begin
Application.Terminate;
WinExec(GetCommandLine,SW_SHOWNORMAL)
end;
end.
Размещено на Allbest.ru
Подобные документы
Предмет объектно-ориентированного программирования и особенности его применения в средах Паскаль, Ада, С++ и Delphi. Интегрированная среда разработки Delphi: общее описание и назначение основных команд меню. Процедуры и функции программы Delphi.
курсовая работа [40,8 K], добавлен 15.07.2009Характеристика базовых конструкций языков программирования. Изучение истории их развития и классификации. Определение основных понятий языков программирования. Описание основных операторов, которые используются в языках программирования высокого уровня.
курсовая работа [400,6 K], добавлен 10.11.2016Методы численного интегрирования. Характеристика основных составляющих структурного программирования. Решение задания на языке высокого уровня Паскаль. Построение графического решения задачи в пакете Matlab. Решение задания на языке высокого уровня C.
курсовая работа [381,7 K], добавлен 10.05.2018Сравнительный анализ наиболее распространенных языков, их классификация, описание достоинств и недостатков. Использование процедур, функции и подпрограмм в языках программирования высокого уровня. Разработка и реализация программы "Бортовой компьютер".
курсовая работа [329,8 K], добавлен 22.06.2014Сравнительный анализ языков программирования высокого уровня Си и Паскаль. Реализация алгоритма обработки данных. Тестирование и отладка программы или пакета программ. Структура программы на языке Турбо Паскаль. Указатели и векторные типы данных.
курсовая работа [233,5 K], добавлен 14.12.2012Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.
курсовая работа [1,2 M], добавлен 04.08.2014Сравнительный анализ языков программирования высокого уровня Си и Паскаль: структура программы, типы данных, арифметические операции, операторы ветвления и циклы. Создание программы поиска подпоследовательностей одинаковых элементов в множественном виде.
курсовая работа [78,9 K], добавлен 28.12.2012Классификация языков программирования. Использование циклических конструкций и выполнение итерационных процессов. Алгоритмические структуры циклов языков C, C++, Java, C#. Особенности современных языков программирования высокого уровня и их применение.
курсовая работа [345,6 K], добавлен 13.11.2009Этапы написания программы на четырех языках программирования (Turbo Pascal 7.0, Borland C++ 3.11, Delphi 7, Builder C++ 6.0), которая выводит на экран имя и фамилию студента, используя стандартные средства графики и простейшие геометрические фигуры.
контрольная работа [1,4 M], добавлен 05.06.2010Borland Delphi 7 как универсальный инструмент разработки, применяемый во многих областях программирования, функции: добавление информации об абитуриентах в базу данных, формирование отчетов. Рассмотрение и характеристика основных компонентов Delphi.
контрольная работа [3,6 M], добавлен 18.10.2012
