Програмирование на языке Basic. Федоряка Н.И. - 42 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

42
REM ОКРУЖНОСТЬ
CIRCLE (350, 115), 30
REM ДУГА ОКРУЖНОСТИ
CIRCLE (320, 100), 200, , -PI, -PI / 2
REM ОКРУЖНОСТЬ
CIRCLE STEP(-100, -42), 100
REM ЭЛЛИПС
CIRCLE STEP(0, 0), 100, , , , 5 / 25
REM ВЫВЕСТИ НАДПИСЬ В СТРОКЕ 25 И СТОЛБЦЕ 1
LOCATE 25, 1: PRINT "Press any key to end.";
REM ЖДЕМ НАЖАТИЯ ЛЮБОЙ КЛАВИШИ
DO
LOOP WHILE INKEY$ = ""
Результат работы программы:
Пример: построение окружности
REM окружность
CLS
INPUT "Введите координаты центра x,y: ", x,y
INPUT "Введите радиус окружности R: ", r
SCREEN 1
CIRCLE (x, y), r
END
Сейчас на улице зима, а значит и ...
Пример: программа "Снеговик"
REM Снеговик
SCREEN 12
x = 320
y = 240
r = 50
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         REM ОКРУЖНОСТЬ
         CIRCLE (350, 115), 30
         REM ДУГА ОКРУЖНОСТИ
         CIRCLE (320, 100), 200, , -PI, -PI / 2
         REM ОКРУЖНОСТЬ
         CIRCLE STEP(-100, -42), 100
         REM ЭЛЛИПС
         CIRCLE STEP(0, 0), 100, , , , 5 / 25
         REM ВЫВЕСТИ НАДПИСЬ В СТРОКЕ 25 И СТОЛБЦЕ 1
         LOCATE 25, 1: PRINT "Press any key to end.";
         REM ЖДЕМ НАЖАТИЯ ЛЮБОЙ КЛАВИШИ
         DO
         LOOP WHILE INKEY$ = ""

                                      Результат работы программы:




                Пример: построение окружности
         REM окружность
         CLS
         INPUT "Введите координаты центра x,y: ", x,y
         INPUT "Введите радиус окружности R: ", r
         SCREEN 1
         CIRCLE (x, y), r
         END
                Сейчас на улице зима, а значит и ...
         Пример: программа "Снеговик"
         REM Снеговик
         SCREEN 12
         x = 320
         y = 240
         r = 50

         42


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы