Добавил:

Ecolog Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Московский государственный университет инженерной экологии

Предмет:

Программирование

Файл:

Лабораторные Работы. По дисциплине Программирование на языке высокого уровня.doc

Скачиваний:

Добавлен:

20.05.2014

Размер:

108.03 Кб

Скачать

☆

<<< < Предыдущая 1 2 34 / 54 5 > Следующая >>>

Задача 4 Задание №4

Программа должна быть представлена в виде простого диалогового приложения Win32. Значения аргументовXиZв заданном диапазоне значений выбираютсяcпомощью линейных и инкрементных регуляторов. Вывод результата в текстовом поле.

#include "stdafx.h"

#include "Zad_4.h"

#include "Zad_4Dlg.h"

#include "math.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

class CAboutDlg : public CDialog

{

public:

CAboutDlg();

// Dialog Data

//{{AFX_DATA(CAboutDlg)

enum { IDD = IDD_ABOUTBOX };

//}}AFX_DATA

// ClassWizard generated virtual function overrides

//{{AFX_VIRTUAL(CAboutDlg)

protected:

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

//}}AFX_VIRTUAL

// Implementation

protected:

//{{AFX_MSG(CAboutDlg)

//}}AFX_MSG

DECLARE_MESSAGE_MAP()

};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)

{

//{{AFX_DATA_INIT(CAboutDlg)

//}}AFX_DATA_INIT

}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CAboutDlg)

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)

//{{AFX_MSG_MAP(CAboutDlg)

// No message handlers

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////

// CZad_4Dlg dialog

CZad_4Dlg::CZad_4Dlg(CWnd* pParent /*=NULL*/)

: CDialog(CZad_4Dlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CZad_4Dlg)

m_x = 0.0;

m_z = 0.0;

m_Otv = 0.0;

//}}AFX_DATA_INIT

// Note that LoadIcon does not require a subsequent DestroyIcon in Win32

m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

}

void CZad_4Dlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CZad_4Dlg)

DDX_Text(pDX, IDC_EDIT1, m_x);

DDV_MinMaxDouble(pDX, m_x, 1., 30.);

DDX_Text(pDX, IDC_EDIT2, m_z);

DDV_MinMaxDouble(pDX, m_z, 1., 20.);

DDX_Text(pDX, IDC_EDIT3, m_Otv);

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CZad_4Dlg, CDialog)

//{{AFX_MSG_MAP(CZad_4Dlg)

ON_WM_SYSCOMMAND()

ON_WM_PAINT()

ON_WM_QUERYDRAGICON()

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////

// CZad_4Dlg message handlers

BOOL CZad_4Dlg::OnInitDialog()

{

CDialog::OnInitDialog();

// Add "About..." menu item to system menu.

// IDM_ABOUTBOX must be in the system command range.

ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);

ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);

if (pSysMenu != NULL)

{

CString strAboutMenu;

strAboutMenu.LoadString(IDS_ABOUTBOX);

if (!strAboutMenu.IsEmpty())

{

pSysMenu->AppendMenu(MF_SEPARATOR);

pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);

}

// Set the icon for this dialog. The framework does this automatically

// when the application's main window is not a dialog

SetIcon(m_hIcon, TRUE); // Set big icon

SetIcon(m_hIcon, FALSE); // Set small icon

// TODO: Add extra initialization here

return TRUE; // return TRUE unless you set the focus to a control

}

void CZad_4Dlg::OnSysCommand(UINT nID, LPARAM lParam)

{

if ((nID & 0xFFF0) == IDM_ABOUTBOX)

{

CAboutDlg dlgAbout;

dlgAbout.DoModal();

}

else

{

CDialog::OnSysCommand(nID, lParam);

}

void CZad_4Dlg::OnPaint()

{

if (IsIconic())

{

CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

// Center icon in client rectangle

int cxIcon = GetSystemMetrics(SM_CXICON);

int cyIcon = GetSystemMetrics(SM_CYICON);

CRect rect;

GetClientRect(&rect);

int x = (rect.Width() - cxIcon + 1) / 2;

int y = (rect.Height() - cyIcon + 1) / 2;

dc.DrawIcon(x, y, m_hIcon);

}

else

{

CDialog::OnPaint();

}

HCURSOR CZad_4Dlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon;

}

void CZad_4Dlg::OnOK()

{

UpdateData(true);

m_Otv=(20*(sqrt(m_x))*(sin(((pow(m_z,2))/2)))-1.3)/((pow(m_z,0.2))+(exp(3*m_x))+fabs(cos(m_x)));

UpdateData(false);

}

ЗАДАЧА 5

Задание №5

Программа должна быть представлена в виде простого диалогового приложения Win32. Матрица А – обычный массив. Ввод значений матрицы В осуществляется в текстовых полях. Вывод результата в окне списка. Возможность организации вычисления устанавливается переключателем.

#include "stdafx.h"

#include "Zad_5.h"

#include "Zad_5Dlg.h"

#include "math.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

class CAboutDlg : public CDialog

{

public:

CAboutDlg();

//{{AFX_DATA(CAboutDlg)

enum { IDD = IDD_ABOUTBOX };

//}}AFX_DATA

// ClassWizard generated virtual function overrides

//{{AFX_VIRTUAL(CAboutDlg)

protected:

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

//}}AFX_VIRTUAL

// Implementation

protected:

//{{AFX_MSG(CAboutDlg)

//}}AFX_MSG

DECLARE_MESSAGE_MAP()

};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)

{

//{{AFX_DATA_INIT(CAboutDlg)

//}}AFX_DATA_INIT

}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CAboutDlg)

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)

//{{AFX_MSG_MAP(CAboutDlg)

// No message handlers

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

CZad_5Dlg::CZad_5Dlg(CWnd* pParent /*=NULL*/)

: CDialog(CZad_5Dlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CZad_5Dlg)

m_c = FALSE;

m_x1 = 0.0; m_x2 = 0.0; m_x3 = 0.0; m_x4 = 0.0; m_x5 = 0.0; //}}AFX_DATA_INIT

// Note that LoadIcon does not require a subsequent DestroyIcon in Win32

m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

}

void CZad_5Dlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CZad_5Dlg)

DDX_Control(pDX, IDC_LIST1, m_y);

DDX_Check(pDX, IDC_CHECK1, m_c);

DDX_Text(pDX, IDC_EDIT1, m_x1);

DDX_Text(pDX, IDC_EDIT4, m_x2);

DDX_Text(pDX, IDC_EDIT5, m_x3);

DDX_Text(pDX, IDC_EDIT6, m_x4);

DDX_Text(pDX, IDC_EDIT7, m_x5);

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CZad_5Dlg, CDialog)

//{{AFX_MSG_MAP(CZad_5Dlg)

ON_WM_SYSCOMMAND()

ON_WM_PAINT()

ON_WM_QUERYDRAGICON()

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

BOOL CZad_5Dlg::OnInitDialog()

{

CDialog::OnInitDialog();

ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);

ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);

if (pSysMenu != NULL)

{

CString strAboutMenu;

strAboutMenu.LoadString(IDS_ABOUTBOX);

if (!strAboutMenu.IsEmpty())

{

pSysMenu->AppendMenu(MF_SEPARATOR);

pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);

}

SetIcon(m_hIcon, TRUE); // Set big icon

SetIcon(m_hIcon, FALSE); // Set small icon

// TODO: Add extra initialization here

return TRUE; // return TRUE unless you set the focus to a control

}

void CZad_5Dlg::OnSysCommand(UINT nID, LPARAM lParam)

{

if ((nID & 0xFFF0) == IDM_ABOUTBOX)

{

CAboutDlg dlgAbout;

dlgAbout.DoModal();

}

else

{

CDialog::OnSysCommand(nID, lParam);

}

void CZad_5Dlg::OnPaint()

{

if (IsIconic())

{

CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

int cxIcon = GetSystemMetrics(SM_CXICON);

int cyIcon = GetSystemMetrics(SM_CYICON);

CRect rect;

GetClientRect(&rect);

int x = (rect.Width() - cxIcon + 1) / 2;

int y = (rect.Height() - cyIcon + 1) / 2;

dc.DrawIcon(x, y, m_hIcon);

}

else

{

CDialog::OnPaint();

}

CURSOR CZad_5Dlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon;

}

void CZad_5Dlg::OnOK()

{

UpdateData(true);

CString y,g,I,J;

int i,j;

double Y,x1,x2,a[5][8]={{6.675213,5.34571,6.543211,16.94293,55.1367,4.412212,29.49186,62.49961},{5.543211,5.98611,7.433122,15.42746,56.68927,0.759276,19.39713,60.54063},{6.023432,5.435771,6.456911,15.11028,52.39713,3.547672,24.83557,59.33829},{4.322143,6.876112,6.456233,7.384649,44.40784,3.027812,10.04654,55.15152},{5.079856,3.986344,3.276098,8.028974,30.19957,8.304107,24.3102,49.91051}},b[1][5]={m_x1,m_x2,m_x3,m_x4,m_x5};

if (m_c)

for (i=1;i<5;i++)

{

for (j=1;j<8;j++)

{

Y=b[i][j]*a[i][j];

y.Format("%f",Y);

I.Format("%i",i);

J.Format("%i",j);

g="y("+I+","+J+") ="+y;

m_y.AddString(g);

} }

UpdateData(false);

}

ЗАДАЧА 6

Задание №6

Программа должна быть представлена в виде простого диалогового приложения Win32. Значения X и Y(X) задаются в текстовых полях. Порядок производной выбирается с помощью радиокнопок. Вывод результата в текстовом поле.

#include "stdafx.h"

#include "z_6_nik.h"

#include "z_6_nikDlg.h"

#include "math.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

class CAboutDlg : public CDialog

{

public:

CAboutDlg();

// Dialog Data

//{{AFX_DATA(CAboutDlg)

enum { IDD = IDD_ABOUTBOX };

//}}AFX_DATA

// ClassWizard generated virtual function overrides

//{{AFX_VIRTUAL(CAboutDlg)

protected:

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

//}}AFX_VIRTUAL

// Implementation

protected:

//{{AFX_MSG(CAboutDlg)

//}}AFX_MSG

DECLARE_MESSAGE_MAP()

};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)

{

//{{AFX_DATA_INIT(CAboutDlg)

//}}AFX_DATA_INIT

}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CAboutDlg)

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)

//{{AFX_MSG_MAP(CAboutDlg)

// No message handlers

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////

// CZ_6_nikDlg dialog

CZ_6_nikDlg::CZ_6_nikDlg(CWnd* pParent /*=NULL*/)

: CDialog(CZ_6_nikDlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CZ_6_nikDlg)

m_x1 = 0.0; m_x10 = 0.0;m_y1 = 0.0; m_y2 = 0.0; m_y3 = 0.0; m_y4 = 0.0; m_y5 = 0.0; m_y6 = 0.0; m_y7 = 0.0; m_y8 = 0.0; m_y9 = 0.0; m_x2 = 0.0;

m_y10 = 0.0;m_z = 0.0; m_x3 = 0.0; m_x4 = 0.0; m_x5 = 0.0; m_x6 = 0.0;

m_x7 = 0.0; m_x8 = 0.0; m_x9 = 0.0; m_radio = -1; //}}AFX_DATA_INIT

// Note that LoadIcon does not require a subsequent DestroyIcon in Win32

m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

}

void CZ_6_nikDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CZ_6_nikDlg)

DDX_Text(pDX, IDC_EDIT1, m_x1);

DDX_Text(pDX, IDC_EDIT10, m_x10);

DDX_Text(pDX, IDC_EDIT11, m_y1); DDX_Text(pDX, IDC_EDIT12, m_y2);

DDX_Text(pDX, IDC_EDIT13, m_y3); DDX_Text(pDX, IDC_EDIT14, m_y4);

DDX_Text(pDX, IDC_EDIT15, m_y5); DDX_Text(pDX, IDC_EDIT16, m_y6);

DDX_Text(pDX, IDC_EDIT17, m_y7); DDX_Text(pDX, IDC_EDIT18, m_y8);

DDX_Text(pDX, IDC_EDIT19, m_y9); DDX_Text(pDX, IDC_EDIT2, m_x2);

DDX_Text(pDX, IDC_EDIT20, m_y10); DDX_Text(pDX, IDC_EDIT21, m_z);

DDX_Text(pDX, IDC_EDIT3, m_x3); DDX_Text(pDX, IDC_EDIT4, m_x4);

DDX_Text(pDX, IDC_EDIT5, m_x5); DDX_Text(pDX, IDC_EDIT6, m_x6);

DDX_Text(pDX, IDC_EDIT7, m_x7); DDX_Text(pDX, IDC_EDIT8, m_x8);

DDX_Text(pDX, IDC_EDIT9, m_x9); DDX_Radio(pDX, IDC_RADIO1, m_radio);

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CZ_6_nikDlg, CDialog)

//{{AFX_MSG_MAP(CZ_6_nikDlg)

ON_WM_SYSCOMMAND()

ON_WM_PAINT()

ON_WM_QUERYDRAGICON()

ON_BN_CLICKED(IDC_BUTTON1, OnButton1)

ON_BN_CLICKED(IDC_RADIO1, OnRadio1)

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

BOOL CZ_6_nikDlg::OnInitDialog()

{

CDialog::OnInitDialog();

ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);

ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);

if (pSysMenu != NULL)

{

CString strAboutMenu;

strAboutMenu.LoadString(IDS_ABOUTBOX);

if (!strAboutMenu.IsEmpty())

{

pSysMenu->AppendMenu(MF_SEPARATOR);

pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);

}

SetIcon(m_hIcon, TRUE); // Set big icon

SetIcon(m_hIcon, FALSE); // Set small icon

return TRUE; // return TRUE unless you set the focus to a control

}

void CZ_6_nikDlg::OnSysCommand(UINT nID, LPARAM lParam)

{

if ((nID & 0xFFF0) == IDM_ABOUTBOX)

{

CAboutDlg dlgAbout;

dlgAbout.DoModal();

}

else

{

CDialog::OnSysCommand(nID, lParam);

}

void CZ_6_nikDlg::OnPaint()

{

if (IsIconic())

{

CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

// Center icon in client rectangle

int cxIcon = GetSystemMetrics(SM_CXICON);

int cyIcon = GetSystemMetrics(SM_CYICON);

CRect rect;

GetClientRect(&rect);

int x = (rect.Width() - cxIcon + 1) / 2;

int y = (rect.Height() - cyIcon + 1) / 2;

dc.DrawIcon(x, y, m_hIcon);

}

else

{

CDialog::OnPaint();

}

HCURSOR CZ_6_nikDlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon;

}

void CZ_6_nikDlg::OnButton1()

{

UpdateData(true);

double x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,z;

switch(m_radio)

{

case 0:

m_z=(m_x1+m_y2)*(m_x6+m_y7)/(m_x2+m_y3);

break;

case 1:

m_z=(m_x2+m_y3)*(m_x7+m_y8)/(m_x3+m_y4);

break;

case 2:

m_z=(m_x3+m_y4)*(m_x8+m_y9)/(m_x4+m_y5);

break;

case 3:

m_z=(m_x4+m_y5)*(m_x9+m_y10)/(m_x5+m_y6);

}

z,dx[10],dy[10][9],X[10]={m_x1,m_x2,m_x3,m_x4,m_x5,m_x6,m_x7,m_x8,m_x9,m_x10},Y[10][10];

UpdateData(false);

}

void CZ_6_nikDlg::OnRadio1()

{

// TODO: Add your control notification handler code here

}

ЗАДАЧА 7

Задание №7

Программа должна соответствовать следующим требованиям:

тип приложения Win32 – SDI;
ввод исходных данных производится посредством диалогового окна, вызываемого соответствующей командой меню и пиктограммой на панели инструментов (значения XиY(X)задаются в текстовых полях, выбор дискретного преобразования Фурье осуществляется с помощью радиокнопок);
вывод результатов расчета осуществляется в диалоговом окне (окно списка).

// newClass.cpp : implementation file

#include "stdafx.h"

#include "ZADACHA_7.h"

#include "newClass.h"

#include<math.h>

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

newClass::newClass(CWnd* pParent /*=NULL*/)

: CDialog(newClass::IDD, pParent)

{

//{{AFX_DATA_INIT(newClass)

m_x = 0.0;

m_y = 0.0;

//}}AFX_DATA_INIT

}

void newClass::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(newClass)

DDX_Control(pDX, IDC_LIST1, m_Otv);

DDX_Text(pDX, IDC_EDIT1, m_x);

DDX_Text(pDX, IDC_EDIT2, m_y);

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(newClass, CDialog)

//{{AFX_MSG_MAP(newClass)

ON_BN_CLICKED(IDC_BUTTON1, OnButton1)

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

void newClass::OnOK()

{

UpdateData (true);

CString Otv;

double Z;

double m_x, m_y;

Z=m_x*cos(3.14*m_y/0.4)+m_x*sin(3.14*m_y/0.4);

Otv.Format("%", Z);

m_Otv.AddString (Otv);

UpdateData (false);

}

void newClass::OnButton1()

UpdateData (true);

CString Otv;

double Z;

double m_x, m_y;

Z=m_x*cos(3.14*m_y/0.4)+m_x*sin(3.14*m_y/0.4);

Otv.Format("%", Z);

m_Otv.AddString (Otv);

UpdateData (false);

}

ЗАДАЧА 8

<<< < Предыдущая 1 2 34 / 54 5 > Следующая >>>

Соседние файлы в предмете Программирование

#
20.05.2014379.39 Кб74Pascal 7.0 - учебник. Учебник по программированию на языке Pascal 7.0.doc
#
20.05.2014108.03 Кб10Лабораторные Работы. По дисциплине Программирование на языке высокого уровня.doc
#
20.05.2014937.98 Кб49Полная теория по Visual Basic + описание выполнения курсовой работы.doc
#
20.05.201443.52 Кб29Программирование - Численные методы.doc
#
20.05.2014141.66 Кб25Розин Л.А. - Метод конечных элементов (статья).pdf