Private Sub Command1_Click()

x0 = 0: h = 0.7: ex = 0.01

Text1 = x0: Text2 = h: Text3 = ex

X1 = x0

1 Y1 = X1 ^ 2 - 4: X2 = X1 + h: Y2 = X2 ^ 2 - 4

2 If Y1 * Y2 < 0 Then GoTo 4

3 X1 = X1 + h: GoTo 1

4 If h < ex Then GoTo 6

5 h = h / 2:     GoTo 1

6 x = (X1 + X2) / 2:     y = x ^ 2 – 4:   Text4 = x:    Text5 = y

End Sub

ВЫВОД ТАБЛИЧНЫХ ДАННЫХ

Задача 15. «Табуляция»

Задана функция y=x², x [a,b], причём отрезок делится на n отрезков.

Требуется организовать вычисление и вывод в виде таблицы значений x, y.

На Form1 создадим окно Text1 с помощью инструмента «TextBox» (кнопка «ab» для вывода значения шага h изменения значения Х.

Затем с помощью кнопки ListBox создадим 3 вытянутых сверху вниз окна для вывода столбцов значений x, y, i.

Текст программы имеет вид.

Private Sub Command1_Click()сверху вниз

a = 2: b = 10: n = 3:         ! Rem исходные данные

h = (b - a) / n: Text1 = h  ! Rem вычисление и вывод значения h

For i = 1 To n + 1             ! Rem организация цикла

x = a + h * (i - 1): y = x ^ 2                  ! Rem вычисление x, y

List1.AddItem (x): List2.AddItem (y) ! Rem вывод результатов

List3.AddItem (i):                                         ! Rem в таблицу

Next i

Тема 6. Microsoft Fortran PowerStation – лучший язык программирования вычислений.

Алгоритмическому языку Фортран более 50 лет. Но такие ведущие компании как IBM, Microsoft, Intel считают своим долгом иметь в своем арсенале новейшие компиляторы Фортрана. Этот язык очень удобен для реализации вычислительных алгоритмов. Для суперкомпьютеров компиляторы Фортрана разрабатываются в числе первых. На Фортране написано огромное число программ для решения научно–технических задач.

 

Символы языка

 

Символ            Его описание

=  1)Знак присваивания. Выражение А = 5 является не равенством, а

    командой и означает: простой переменной А присвоить число 5.

     Компьютер число 5 перешлет в ячейку памяти по имени А. Если до

     этого в ячейке по имени А находилось число, оно исчезнет.

     Выражение А = В означает: простой переменной А присваивается

     значение простой переменной В. Компьютер копию содержимого

     ячейки памяти по имени В перешлет в ячейку памяти по имени А.

     Прежнее содержимое ячейки памяти с именем А исчезнет.

 

+ – * / Знаки сложения, вычитания, умножения и деления. Пример:

R = ( A + B/С)* F – U

 

**  Знак возведения в степень; Например, выражение R = ( A + B³)

      на Фортране следует записать так R = ( A + B**3).

      При А = 4., В = 5 значение R = 129.0.

       Показатель степени может быть дробным, однако нельзя возводить

   в дробную степень отрицательное число.

      T = ( A + B)**(2./3.) = 4.3267487. В этом случае десятичные точки

        в цифрах показателя степени ставить необходимо. Без них резуль–

       тат деления 2/3 преобразуется в целое. При этом дробная часть ре –

       зультата отбрасывается без округления, результ становится рав–

   ным нулю. Любое число в степени 0 равно 1. Поэтому при любых

   значениях А, В значение Т окажется равным единице.

      L = 0**(2/3) , будет равно целой 1. w = 0.**(1/2) получим 1.0000.

.          Десятичная точка в десятичных числах. Если вы забудете поста–

      вить ее, то во многих случаях число будет воспринято как целое.

      Ставьте десятичную точку всегда, когда смысл числа допускает

      возможность его дробного значения. Например, число 2 имеющее

      смысл длины,  лучше записать с десятичной точкой.  

Если вы напишете С = (3**2 + 4**2)**(1/2), то результатом будет

1. Поскольку простая переменная С по умолчанию является веще–

ственной, то транслятор исправит вашу ошибку и числа 3 и 4 пре–

вратит в вещественные. Но 1/2 – результат деления целых чисел

округляется просто: отбрасывается дробная часть, в результате –

ноль. А любое число в нулевой степени равно единице.

 А если запишете С = (3**2 + 4**2)**(1./2.), то результатом будет

5.000000, так как степень 0.5 – это корень квадратный. Чтобы не за–

ставлять транслятор «теряться в догадках», лучше написать

С = (3.**2 + 4.**2)**(1./2.), так как он не всегда замечает ваши

ошибки.

 

.     Точка в операторе FORMAT является разделителем в спецификато–

рах, Отделяет общее число символов выводимого вещественного числа и число знаков после десятичной точки.

 

.     Точка в логических выражениях операторов IF – является раздели–

телем между  словами, составляющими логическое выражение.

 

,     Запятая, используется в качестве разделителя в операторах

    описания простых переменных и массивов, в качестве разделителя

между индексами в индексированных переменных, является

разделителем в операторе FORMAT.

;     Точка с запятой – разделитель между операторами, записанными

 в одной строке. Разделитель в операторах описания массивов.

 

’   Апострoф, применяется для обозначения символьных констант

    например, F = ’Marija’; Print *,’gromada’. Редактор Фортрана

    не делает различия открывающих скобок.  

:     Двоеточие, используются в операторах описания массивов для за–

дания пределов изменения значений индексов индексированных

переменных.

!     Восклицательный знак, используется для записи комментариев в

      тексте программы. Вся информация справа от этого знака считает–

–ся комментариями и транслятором не обрабатывается.

 

< > Меньше, больше, используются в логических выражениях в опера–

торах IF.

 

<= >=   Меньше или равно, больше или равно используются в логиче–

ских выражениях в операторах IF. К сожалению, знак равенства в

них использовать нельзя, для этого используется выражение «. EQ.».

 

&   Амперсанд, используется для переноса на другую строку продолже–

ния длинного выражения. Этот знак следует установить в конце

обрезаемой строки и в начале строки продолжения.

( )   Скобки, используются в арифметических выражениях и в операто–

      рах.