Автор: Преподаватель информатики и информационных технологий высшей категории

школы №461 г. Санкт-Петербурга     М.И. Шелепов.

 

 

Урок №3

Программирование на алгоритмическом языке высокого уровня Qbasic45

 

Цель работы

1) Освоить новые команды - операторы программирования на Qbasic

 

 

получить понятия Алгоритма программы, его определение.

Запись алгоритма программы  в виде структурной схемы

 

 

4) Оператор условия ( IF THEN)

5) Циклические Действия. Оператор цикла  (FOR  NEXT)

6)     Случайные числа (Оператор  RND)

 

2) Закрепить навыки по   Уроку № 2,3  уметь

 

1) Запускать программу Qbasic.

2) Набирать текст программы

3) Выполнить исходник программы.

4) Сохранять исходник программы.

5) Открывать и просматривать файлы исходника *.BAS

6) уметь работать с оператором вывода Print

7) повторить арифметические функции Бейсика

 

 

Задание !!!

 

1) Внимательно прочитайте урок

2) Запустите Бейсик, наберите и выполните 7 перечисленных ниже программ на бейсике)

3) Все программы сохраните в файлы в своей папке.

4) Письменно в тетради ответьте на все контрольные вопросы.

См в конце урока.

5) Создайте  текстовый файл в Word Pad  с ответами на контрольные вопросы и сохраните его на Сервере. Путь \\Server\Basik\ Имя файла ‘Фамилия Имя Basic Урок N3

 

 

1) Оператор условия ( IF THEN)

Структурная схема

(Программа 001)

Print ”Счетчик с выходом по условию”

10 S=0                 : Rem Записать 0 в пер S. Установка счетчика

20 S=S+1             :Rem Счетчик

30 Print S             :Rem Печать значение S

40 IF S<1000 THEN Goto 20 : Rem Если S меньше 1000 Переход на строку N 20

50 End                  :Rem End Конец программы

 

 
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


(Программа 002)

10 Print “Программа анализатор Имени”

10 print "Как вас зовут товарищ  ?"

 

20 Input A$            : Rem Ввести Имя в символьную переменную A$

30 If A$="Вася" Then Print "Рад тебя видеть ", A$:end  :Rem Если в переменной A$ записано ‘Вася’ то сообщение ‘Рад тебя видеть Вася

 

40 Print "Вон отсюда ", A$: Rem Если условие не выполнено то Идет сообщение ‘Вон отсюда Введеное имя’

 

 
Работа с условиями Ветвление

Условие с переходом по метке

Структурная схема

(Программа 003)

5 Print “Программа анализатор Имени с повтором ввода”

10 print "Как вас зовут товарищ  ?"

20 Input A$            : Rem Ввести Имя в символьную переменную A$

25 Cls                      :Команда  Очистки экрана

30 If A$="Вася" Then Print "Рад тебя видеть ", A$:Goto 10: Rem Если в переменной A$ записано ‘Вася’ то сообщение ‘Рад тебя видеть Вася

с переходом на строку 10

40 Print "Вон отсюда ", A$: Goto 10 Rem Если условие не выполнено то Идет сообщение ‘Вон отсюда Введеное имя’ с переходом на строку 10

 
 

 

 

 

 

 

 

 

 

 

 

 

 

 


2) Циклические Действия. Оператор цикла 

                         (FOR  NEXT)

Структурная схема

(Программа 004)

Print "Создание счетчика с ограниченным циклом"

For N=1 to 200 :Rem Создать цикл где N меняется от 1 до 200

Print N              : Rem Печать значения N

Next N              :Rem Конец цикла

 

Print "Конец программы" :Rem При завершении циклических действий Сообщение ‘Конец программы’

 
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


3) Циклические Действия. Оператор цикла 

                         (FOR  NEXT STEP)

Структурная схема

(Программа 005)

Print "Создание счетчика с ограниченным циклом"

с заданным шагом

For N=-100 to 100 Step 10

Print N

Next N

Print "Конец программы

 

 

4)  Случайные числа (Оператор  RND)

 

Определение: Команда RND создает случайное число дробного типа в диапазоне 0-1

 

(Программа 006)

Print “Программа вычисления трех случайных чисел”

A=RND*10                :REM Записать в переменную A случайное число в диапазоне от 0-10}

B:=RND*10+5            :REM Записать в переменную B случайное число в диапазоне от 5-15}

C:=10-RND*20)          :REM Записать в переменную C случайное число в диапазоне от -10..10}

Print A,B,C                 :REM {напечатать на экране значения переменных a,b,c}

 

end.                             :REM {конец программы

 

Программа генератор 200 случайных выполненная с использованием операторов цикла For Next

 

(Программа 007)

Print "Программа генератор 200 случайных чисел с от 0-640"

 

For N=1 to 200

Print INT(Rnd*640) :Rem Печатает целое число диапазона 0-640

Next N

 

Print "Конец программы"

 

Контрольные вопросы

 

1) Назначение оператора ( IF THEN) пример использования

2) Назначение оператора (FOR  NEXT STEP), пример использования

3) Назначение оператора  (Оператор  RND), пример использования

4) Дайте определение циклической программы их назначение , приведите простой пример

5)     Назначение и реализация  Логической конструкции Счетчик, основные элементы назначение

6)     Используя оператор RND создайте программу создающую бесконечное количество случайных чисел в диапазоне от -3000 до 3000

7)     Что называется линейной и разветвляющейся программой

8) Что является началом цикла, телом цикла, концом цикла в циклических программах приведите пример

9) Перечислите все операторы программирования встречающиеся в данной методичке, опишите их назначение.

10) Приведите простейший способ создания бесконечной циклической программы

11) Что такое структурная запись программы, предназначение, приведите простой пример

 

 

 

 

 

 

 

 

© 2002 все права защищены. Копирование и распространение без письменного разрешения автора не допускается E mail: kolpincentr@mail.ru

 


Перейти на Главную


<<НАЗАД