Для студентов МГУ им. Ломоносова по предмету Практика расчётов на ПЭВМПрограммы 3Программы 3
2019-04-282019-04-28СтудИзба
Лабораторная работа: Программы 3
Описание
Описание файла отсутствует
Характеристики лабораторной работы
Предмет
Учебное заведение
Семестр
Просмотров
70
Скачиваний
0
Размер
1,51 Mb
Список файлов
- Программы 3
- Генератор случайных чисел.doc 30 Kb
- Задание 4.txt 842 b
- Задача 1.6.doc 26 Kb
- Задача 10.1(1).doc 13,65 Kb
- Задача 10.1(2).doc 32,5 Kb
- Задача 10.2(1).doc 30 Kb
- Задача 10.2(2).doc 31 Kb
- Задача 11(1).doc 14,03 Kb
- Задача 11(2).doc 27 Kb
- Задача 12.1.doc 23,5 Kb
- Задача 12.3.doc 31,5 Kb
- Задача 13(1).doc 13,08 Kb
- Задача 13(2).doc 30 Kb
- Задача 13(3).doc 31 Kb
- Задача 13(4).doc 30 Kb
- Задача 2.6.doc 30,5 Kb
- Задача 3.doc 30 Kb
- Задача 4(1).doc 29 Kb
- Задача 4(2).doc 31 Kb
- Задача 5(1).doc 12,97 Kb
- Задача 5(2).doc 13,28 Kb
- Задача 5(3).doc 32,5 Kb
- Задача 5(4).doc 31 Kb
- Задача 5(5).doc 27 Kb
- Задача 6.1(1).doc 28 Kb
- Задача 6.1(2).doc 25 Kb
- Задача 6.2(1).doc 30 Kb
- Задача 6.2(2).doc 30 Kb
- Задача 7(1).doc 13,92 Kb
- Задача 7(2).doc 30 Kb
- Задача 7(3).doc 30 Kb
- Задача 7.6(1).doc 29,5 Kb
- Задача 7.6(2).doc 13,43 Kb
- Задача 8.1.doc 30 Kb
- Задача 8.2.doc 15,11 Kb
- Задача 8.3.doc 34 Kb
- Задача 8.4.doc 35,5 Kb
- Задача 8.7.doc 34 Kb
- Задача 8.8.doc 15,51 Kb
- Задача 9(1).doc 32 Kb
- Задача 9(2).doc 37 Kb
- Метод касательных и метод Эйлера.doc 20,4 Kb
- Метод средних прямоугольников и метод трапеций.doc 16,92 Kb
- Метод средних прямоугольников.doc 19,5 Kb
- Письмо «11» — Фирсов Андрей Владимирович — Яндекс.Почта.htm 106,7 Kb
- Письмо «11» — Фирсов Андрей Владимирович — Яндекс.Почта_files
- _blue.css 226,46 Kb
Задание 4
Option Strict On
Module Module1
Sub Main()
Dim L As String
Dim t As String
Dim pi As Double = Math.PI
Dim Sum As Double
Dim U As Double
Dim S As Double = 0
Dim eps As Double = 0.00000000000001
Dim n As Integer = 1
Dim K As Integer = 100
L = Console.ReadLine
t = Console.ReadLine
Do While Math.Exp(-2 * (n ^ 2) * (pi ^ 2) * CDbl(t) / (9 * K)) > eps
Sum = (30 / (n * pi)) * Math.Exp(-2 * (n ^ 2) * (pi ^ 2) * CDbl(t) / (9 * K)) * (Math.Cos(pi * n) - 1) * Math.Sin(pi * n * CDbl(L) / 3)
S = S + Sum
n = n + 1
Loop
U = CDbl(L) * 10 + 10 + S
Console.WriteLine("температура= {0}, {1} {2}", U, Sum, Math.Exp(-0.109))
Console.ReadLine()
End Sub
End Module
Хочешь зарабатывать на СтудИзбе больше 10к рублей в месяц? Научу бесплатно!
Начать зарабатывать
Начать зарабатывать