Программный модуль учебного назначения по разделу математики "Многогранники"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

").Cells(i, 4).Value = 2 Then= y3 + 1IfIfIfIfi

Следующий оператор определяет средний балл успеваемости.

If (y 0) Then= ((y * 5) + (y1 * 4) + (y2 * 3) + (y3 * 2)) / (y + y1 + y2 + y3)If

Следующий оператор выводит средний балл в ячейку таблицы.

Sheets("Chart").Cells(11, 2).Value = z

Следующий оператор выводит количество баллов в таблицу.

Sheets("Chart").Cells(6, 2).Value = y("Chart").Cells(7, 2).Value = y1("Chart").Cells(8, 2).Value = y2("Chart").Cells(9, 2).Value = y3

Следующий оператор строит гистограмму успеваемости.

Range("B6:B9").Select

Charts.Add.ChartType = xlColumnClustered.SetSourceData Source:=Sheets("Chart").Range("B6:B9"),

PlotBy:= _.SeriesCollection.NewSeries.SeriesCollection.NewSeries.SeriesCollection.NewSeries.SeriesCollection(1).Values = "=Chart!R6C2".SeriesCollection(1).Name = "=""Количество пятёрок""".SeriesCollection(2).Values = "=Chart!R7C2".SeriesCollection(2).Name = "=""Количество четвёрок""".SeriesCollection(3).Values = "=Chart!R8C2".SeriesCollection(3).Name = "="" Количество троек""".SeriesCollection(4).Values = "=Chart!R9C2".SeriesCollection(4).Name = "="" Количество двоек""".Location Where:=xlLocationAsObject, Name:="Chart"ActiveChart(xlCategory, xlPrimary) = False(xlValue, xlPrimary) = TrueWith.Axes(xlCategory, xlPrimary).CategoryType = xlAutomaticActiveChart.Axes(xlCategory)

HasMajorGridlines = False= FalseWithActiveChart.Axes(xlValue)= False= FalseWith.SeriesCollection(1).SelectSelection.Border= xlThin= xlAutomaticWith.Shadow = False.InvertIfNegative = False.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3,

_:=0.231372549019608Selection.Visible = True.ForeColor.SchemeColor = 4With.SeriesCollection(2).SelectSelection.Border= xlThin= xlAutomaticWith.Shadow = False.InvertIfNegative = False.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=3Selection.Visible = True.ForeColor.SchemeColor = 5.BackColor.SchemeColor = 41With.SeriesCollection(3).SelectSelection.Border= xlThin= xlAutomaticWith.Shadow = False.InvertIfNegative = False.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3,

_:=0.231372549019608Selection.Visible = True.ForeColor.SchemeColor = 8With.SeriesCollection(4).SelectSelection.Border= xlThin= xlAutomaticWith.Shadow = False.InvertIfNegative = False.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3,

_:=0.231372549019608Selection.Visible = True.ForeColor.SchemeColor = 3With.SeriesCollection(1).Select.SeriesCollection(1).ApplyDataLabels AutoText:=True,

LegendKey:= _, ShowSeriesName:=False, ShowCategoryName:=False,

ShowValue:=True, _:=False, ShowBubbleSize:=False.SeriesCollection(2).Select.SeriesCollection(2).ApplyDataLabels AutoText:=True,

LegendKey:= _, ShowSeriesName:=False, ShowCategoryName:=False,

ShowValue:=True, _:=False, ShowBubbleSize:=False.SeriesCollection(3).Select.SeriesCollection(3).ApplyDataLabels AutoText:=True,

LegendKey:= _, ShowSeriesName:=False, ShowCategoryName:=False,

ShowValue:=True, _:=False, ShowBubbleSize:=False.SeriesCollection(4).Select.SeriesCollection(4).ApplyDataLabels AutoText:=True,

LegendKey:= _, ShowSeriesName:=False, ShowCategoryName:=False,

ShowValue:=True, _:=False, ShowBubbleSize:=False

Следующий оператор открывает первую страницу книги Excel.("Search").Select

Следующий оператор делает лист базы данных невидимым.

Sheets("Data").Visible = 0 - xlSheetHiddenSub

Приложение 2

function Decode(bCode: boolean; s:string):string;

// Крайние символы для кодирования: char = А;: char = Я;

: char = а;: char = я;

: char = A;: char = Z;

: char = a;: char = z;

=0;=9;: integer; // Код символа с наименьшим кодом

iMaxOrd: integer; // Код символа с наибольшим кодом: integer; // Для цикла: integer; // Код подставляемого символа: char; // Каждый символ текста: string; // Преобразуемый текст

begin:= Trim(form2x.RichEdit1.Text);

if s1 <> then // Если есть текст

for i := 1 to Length(s1) do // Проходит каждый символ

begin:= s1[i];

// Если очередной символ нужно кодировать

if ch in [chBigFirstLetterRus .. chBigLastLetterRus] then

// Заглавные буквы русского алфавита:= Ord(chBigFirstLetterRus);:= Ord(chBigLastLetterRus);ch in [chFirstLetterRus .. chLastLetterRus] then

// Строчные буквы русского алфавита:= Ord(chFirstLetterRus);:= Ord(chLastLetterRus);ch in [chBigFirstLetterEng .. chBigLastLetterEng] then

// Заглавные буквы английского алфавита:= Ord(chBigFirstLetterEng);:= Ord(chBigLastLetterEng);ch in [chFirstLetterEng .. chLastLetterEng] then

// Строчные буквы английского алфавита:= Ord(chFirstLetterEng);:= Ord(chLastLetterEng);ch in [chFirstNumber..chLastNumber] then // цифры:= Ord(chFirstNumber);:= Ord(chLastNumber);

end// Символ кодировать не нужно

continue;

bCode then // Закодировать

iTempOrd := Ord(ch) + n; // Получаем потенциальную позициюiMaxOrd - iTempOrd < 0 then

// Если символ зашел за границу предельного

ch := Chr(iMinOrd + abs(iMaxOrd - iTempOrd) - 1)

// Возьмем символ с другого конца круга// Если нет:= chr(iTempOrd); //все нормально// Раскодировать:= Ord(ch) - n; // Получаем потенциальную позициюiMinOrd - iTempOrd > 0 then

// Если символ зашел за границу предельного

ch := Chr(iMaxOrd - (iMinOrd - iTempOrd - 1))

// Возьмем символ с другого конца круга// Если нет..:= chr(iTempOrd); //все нормально

end;[i] := ch;;:= s1;

end;

Приложение 3

// масштабирование иллюстрации

Procedure ScaleImage(Image1:TImage);,h:integer; // максимально допустимые размеры картинки:real; // коэф. масштабирования по X:real; // коэф. масштабирования по Y:real; // общий коэф. масштабирования

// вычислить максимально допустимые размеры картинки:=Form1x.ClientWidth-10;

h:=Form1x.ClientHeight

Form1x.Panel1.Height -5

Form1x.Label5.Top

h:=h-Form1x.Label1.Height-5;Form1x.Label2.Caption h:=h-Form1x.Label4.Height-5;

Image1.Picture.Bitmap.WidthscaleX:=1scaleX:=w/Image1.Picture.Bitmap.Width;h>Image1.Picture.Bitmap.HeightscaleY:=1scaleY:=h/Image1.Picture.Bitmap.Height;ScaleYImage1.Picture.Bitmap.HeightscaleY:=1scaleY:=h/Image1.Picture.Bitmap.Height;ScaleY<ScaleXscale:=scaleYscale:=scaleX;

// здесь масштаб определен.Top:=Form1x.Label5.Top+Form1x.Label5.Height+5;.Width:=Round(Image1.Picture.Bitmap.Width*scale);.Height:=Round(Image1.Picture.Bitmap.Height*scale);;

// вывод вопроса на экранVoprosToScr(var f:TextFile;frm:TForm1x;var vopros:integer);:integer;:integer;,buf:string;, ifn:string; // файл иллюстрации

begin:=Многогранники/Image/;

vopros:=vopros+1;(vopros:3,s);

frm.caption:=Вопрос + s;

//Выведем текст вопроса

$)and(s[1] \

Blog

Программный модуль учебного назначения по разделу математики "Многогранники"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование