Программа выполненная на языке Microsoft Visual Basic 6.0
Private Sub Command1_Click()
Dim i, j, m, n As Integer
Dim s As Double
Dim c(1 To 50, 1 To 50) As Double
m = 3
n = 3
For i = 1 To m
For j = 1 To n
c(i, j) = 7 * i - j
Next
Next
s = 0
For i = 1 To m
For j = 1 To n
If m = n Then s = s + c(i, i) Else s = s + c(i, j)
Next
Next
Print s
End Sub
Private Sub Form_Load()
End Sub
Заключение
В курсовой работе решена задача определения максимального значения внутреннего радиуса цилиндрической трубы, для которого объём цилиндрической трубы не меньше объёма прямоугольного параллелепипеда со сторонами А, В и С.
Разработан алгоритм решения поставленной задачи, составлена и отлажена программа на языке С++., реализующая указанный алгоритм. С её помощью проведены расчёты, проанализированы полученные результаты. Анализ результатов показал, что поставленная задача успешно решена.
Список литературы
1. Информатика: Базовый курс. / С. В. Симонович и др. СПб.: Питер, 2005
2. Острейковский В. А. Информатика: Учеб. для вузов. – М.: Высш. шк., 2000. – 511 с.: ил.
3. Алексеев Е. В. и др. Вычислительная техника и программирование. Практикум по программированию: Практ. пособие / В. Е. Алексеев, А. С. Ваулин, Г. Б. Петрова; Под ред. А. В. Петрова. – М.: Высш. шк., 1991. – 400 с.: ил
4. Глушаков С. В., Мельников И. В. Персональный компьютер: Учебный курс / Худож. оформитель А. С. Юхтман. – Харьков: Фолио; М.: ООО «Издательство АСТ», 2001. – 520 с. – (Домашняя б-ка).
5. Леонтьев В. Новейшая энциклопедия персонального компьютера. – М.: ОЛМА-ПРЕСС, 1999. – 640 с.
6. Козлов В.В., Можаева Н.А., Зуева Н.Г. Информатика. Алгоритмизация и программирование. Мет. Указания и задания к курсовой работе,2006. -32с
Дата добавления: 2020-12-12; просмотров: 84; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!