Page 55 - 33

155 END
200 A$(2)=" Вхiднi данi
202 A$(3)=" Глибина свердловини, м "
204 A$(4)=" Пластовий тиск, МПа "
206 A$(6)=" Результати розрахунку
208 A$(7)="Мiнiмальна густина, кг/куб.м "
210 A$(8)="Максимальна густина, кг/куб.м "
212 A$(10)=" Примiтка. Розрахунок виконано за умов:
214 A$(11)="мiнiмальний коефiцiїнт перевищення тиску "
216 A$(12)="максимальний коефiцiїнт перевищення тиску "
218 A$(13)="максимально допустиме перевищення тиску в МПа "
220 A$(14)="максимальну густину визначено за варiантом "
22 RETURN

У наведеній програмі оператори виконують такі функції:

5-20 – презентативний блок;

25 – оголошення символьного масиву;

30 – звернення до підпрограми для читання символьного масиву;

40, 45 – ввід вхідних даних;

50-60 – вибір регламентованих умов розрахунку;

65,70 – визначення допустимого діапазону тисків;

75-85 – перевірка на допустимість перевищення тиску в МПа;

90,95 – визначення допустимого діапазону густин;
100-135 – зрощування символьних змінних з відповідними числами;

140-150 – вивід результатів на екран;
200-222 – підпрограма з символьним масивом.

Деякі коментарі до програми. Оператори зрощування символьних

змінних з числами виділено в окремий фрагмент. Для скорочення “довжини”

програми зрощування можна було б робити відразу після візначення тієї чи

іншої величини у тому ж рядку. Наприклад

90 R1=PI*M/(G+H) : A$(7) =A$(7)+STR$(R1)

Зрощування доцільно робити лише для тих величин, які передбачається

виводити на екран чи принтер, особливо, якщо вивід передбачається циклом, як

в нашій задачі.

55