Контрольная работа по "Информатике"

Автор работы: Пользователь скрыл имя, 29 Декабря 2011 в 18:32, контрольная работа

Описание работы

Написать программу для вывода матрицы
А(i,g)=Ln(i)! - 0,5*g/i

Файлы: 1 файл

5.docx

— 164.12 Кб (Скачать файл)

Задание:

Вариант 10

Написать программу  для вывода матрицы

А(i,g)=Ln(i)! - 0,5*g/i 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Внешний вид формы

Command1

Text1

Label1

Form1

Command2

Picture1

Измененные  свойства

Form1

   Caption         =   "Form1"

   ClientHeight    =   7200

   ClientLeft      =   120

   ClientTop       =   450

   ClientWidth     =   12315

   LinkTopic       =   "Form1"

   ScaleHeight     =   7200

   ScaleWidth      =   12315

   StartUpPosition =   3  'Windows Default

Command2

      Caption         =   "Выход"

      Height          =   735

      Left            =   9240

      TabIndex        =   103

      Top             =   2400

      Width           =   2295

Command1

      Caption         =   "Пуск"

      Height          =   735

      Left            =   9240

      TabIndex        =   102

      Top             =   1560

      Width           =   2295

Text1

      Height          =   615

      Left            =   9840

      TabIndex        =   101

      Top             =   360

      Width           =   975

Picture1

      Height          =   615

      Index           =   99

      Left            =   7320

      ScaleHeight     =   555

      ScaleWidth      =   675

      TabIndex        =   99

      Top             =   5880

      Width           =   735

Picture1

      Height          =   615

      Index           =   0

      Left            =   840

      ScaleHeight     =   555

      ScaleWidth      =   675

      TabIndex        =   0

      Top             =   480

      Width           =   735

Label1

      Caption         =   "N="

      Height          =   495

      Left            =   9120

      TabIndex        =   100

      Top             =   360

      Width           =   495 

Текст программы

Dim a(10, 10)

Private Sub Command1_Click()

N = Val(Text1.Text)

If N < 2 Then N = 2

If N > 10 Then N = 10

Text1_Text = Str(N)

For k = 0 To 99: Picture1(k).Cls

Next k

p = 1

    For i = 1 To N

    p = i * p

    For g = 1 To N

    f = f * k

    a(i, g) = Log(p) + 0.5 * g / i

    k = (i - 1) * 10 + g - 1

    Picture1(k).Print a(i, g)

Next g

Next i

End Sub 

Private Sub Command2_Click()

Unload Me

End Sub 
 
 

Полученные  результаты 

 
 
 

Информация о работе Контрольная работа по "Информатике"