Похожие главы из других работ:
Алгоритмический язык Pascal. Программа "Телефонный справочник"
program kurs;
uses Crt;
type
RB=record Запись сведений
A,T,Y: string[10];
end;
var
D,M,i,k,z: integer; Sr,Sr0,max:real;
BookFile: file of RB; Переменная для файла с записями RecBook
Work: RB; Переменная для доступа к записям
Vid: Byte;
End_Menu:boolean;
Name...
Алгоритмы решения задач выбора. Алгоритм отжига
В листинге, приведенном ниже, приведен текст модуля программы решения данной задачи. Все решение было написано на языке MatLab. Выбор на него пал потому что, у MatLab удобные методы визуализации данных...
Анализ статистической модели оценки качества проектируемой технической системы
...
Игра "Виселица"
Private letter As String, word As String
Private Flag As Boolean, k As Integer
Private i As Integer, j As Integer
Private n As Integer, Counter As Integer
Private h As Integer
Dim words() As String
Private Sub Cmdexit_Click()
End
End Sub
Private Sub ExitMenu_Click()
End
End Sub
Private Sub Form_Load()
Shape1.Visible = False
For i = 1 To 7
Txt(i).Visible = False
Next i
cmdVvod...
Игра "Кто хочет стать миллионером?"
Sub GameQuestions(AnswerIsCorrect As Integer)
Dim Questions(1 To 15, 1 To 4) As String
Dim QuestionsMoney(1 To 15) As Long
Dim Answers(1 To 15, 1 To 4) As String
Dim Answer(1 To 4) As String
Dim AnswersRight(1 To 15) As String
Dim ChooseAnswer(1 To 4) As String
Dim I As Integer, J As Integer, Imass As Integer, Jmass As Integer
Dim np As Integer, fp As Integer, Score As Long...
Игра "Ловушка"
Main.cpp
#include <iostream.h>
#include <process.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <time.h>
#define N 4
#include "graphics.h"
#include "gameclass.h"
#include "menufunc.h"
main()
{
Menu m;
int gd = DETECT, gm;
initgraph(&gd, &gm, "");
m.StartGame();
closegraph();
return 0;
}
MenuFunc...
Моделирование программы гипотетической машины с помощью макросредств
;///////////////////////////////////////////////////////////////////////////////////////////
:// Листинг основной программы
;//Сортировка слов с определением их длины и удалением знаков препинания.
;///////////////////////////////////////////////////////////////////////////////////////////
INCLUDE Macros...
Программа управления базой данных, содержащей информацию о читателях, книгах и работниках библиотеки
Program biblioqw; {Курсовая работа: «Библиотека: Книги, Читатели, Библиотекари}
{Автор: Зыков Николай }
uses crt;
const
norm=$7; {Цвет невыделенного пункта}
sel=$2; {Цвет выделенного пункта }
k=20; {Количество команд меню}
Type knigi=record {Запись с данными о книгах}
nomk,god,kol,nomch...
Программирование на VBA в среде MS Excel
Private Sub CommandButton1_Click ()
объявление и обнуление
Сначала объявляем переменные, используемые в программе.
Dim naz (12) As String
Dim cena (12) As Double
Dim ras (12,6) As Double
Dim o_ras (12) As Double
Dim o_trati (6) As Double
Dim trati (12...
Программирование с использованием подпрограмм на языке С
/*Кулаженко И.П. Курсовая рабата. Задача№1*/
#include <stdio. h> // Подключение библиотек;
#include<conio. h>
#include<math. h>
float KrivDlin (float a,float x, float *L); // Прототип функции;
void main ()
{
clrscr (); // Вызов ф-ции очистки экрана;
float L,K,a...
Разработка в среде Turbo Pascal программы вычисления суммы элементов строк матрицы
program Nas;
uses crt;
const m = 15; n= 4;
var
i, j, k, g, x, s: integer;
a: array [1..15, 1..4] of integer;
b: array [1..1000] of integer;
begin
clrscr;
randomize;
writeln( 1) Создаём массив размерностью ( ,m, * ,n, ) );
for i:= 1 to m do
begin
for j:= 1 to n do begin
a[i, j]:= random(21)-1;
write(a[i...
Разработка программы для оптимизации функции одной переменной методом дихотомии
#include "stdafx.h"
#include <locale.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>
#include <stdio.h>
//-------------------------------------------------------------------
void menu();
void out(const char*,double);
double func(double,double,double,double,double,double,double);
double dihotomy(double,double,int,double,double,double,double,double,double...
Разработка программы для работы с массивами
Program change;
uses crt;
var a: array [1.50,1.50] of integer;
n,p,swap: integer;
i,j: byte;
{n - количество строк и столбцов квадратной матрицы
swap - переменная для храненения перемены местами
p - номер строки или столбца для перемены местами
i...
Система автоматизации учета музыки
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace KRM
{
public partial class Form1 : Form
{
DataGridView thisDg;
BindingSource CurrentNavigatorBS = new BindingSource();
int searchId;
public Form1()
{
InitializeComponent();
bindingNavigator1...
Создание базы данных компьютеров
#include <iostream>
#include <conio.h>
#include <vector>
using namespace std;
class computer
{ public:
char code[20];
char producer;
int frequency;
char type[15];
int cost;
char Vozu[5];
char Vvideo[5];
int Vhard;
int quantity;
};
int main()
{
int vibor,i,bul;
computer buf...