Page 26 - 33

Блок виводу на принтер практично дублює блок виводу на екран.
Різниця полягає лише в тому, що замість команд PRINT повинні бути команди

LPRINT. Але набирати цей блок ще раз немає потреби. Копію цього блоку
(100-140) дуже просто зробити зміною номерів. Для цього викликаємо текст

програми на екран (F1). Підводимо курсор до номера 100 і виправляємо його на
170, натискуємо клавішу ENTER. Виправляємо решту номерів від 105 до 140,

не забуваючи натискувати ENTER. Якщо тепер викликати текст програми,

можна побачити два однакових блока: 100-140 і 170-210. Лишилося тепер

тільки до кожної команди PRINT у блоці 170-210 зліва додати літеру L. Але не

слід з цим поспішати. Краще зайнятися відладкою програми. Без літери L після

згоди друкувати результати будуть виведені ще раз на екран. І тільки

переконавшись, що програма працює нормально, можна додавати літеру L до

команди PRINT у другому блоці.

Для закінчення програми треба додати ще один оператор – END.

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

його можна не набирати, програма буде нормально працювати. Але якщо в

програмі є підпрограма або якісь блоки, на які є посилання, без нього не

обійтись.

Таким чином остання частина нашої програми виглядає так:

170 LPRINT “ Об’єм цементного розчину ”

175 LPRINT “ ================================== ”

180 LPRINT “ N n/n D,м d,м l,м V,куб. м ”

185 LPRINT “ ================================== ”

190 FOR I=1 TO N

195 LPRINT USING “ # # #.# # # # #.# # # # # # # # # # #.# ”; I, D1(I), D2(I), L(I), V(I)

200 NEXT I

205 LPRINT “ ================================== ”

210 LPRINT “Сумарний об’єм цементного розчину, куб.м ”;VS

215 END

26