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

1. Укажите способы создания, редактирования текста программы в системах программирования Turbo Pascal, QuickBASIC и MS Fortran 5.0

2. Укажите способы запуска программ на выполнение в системах программирования Turbo Pascal, QuickBASIC и MS Fortran 5.0

3. Из каких окон состоит средства разработки программных проектов Visual Studio применительно к Visual Basic?

4. Как расчетную программу на языке QuickBASIC в системе Visual Basic?

Задачи

Задача 1. В каталоге <Ф> создать файл с име­нем <ваша фамилия>.pas и текстом на языке Turbo Pascal:

{Вычисление чисел Фибоначчи}

const u0: longint=0;

u1: longint=1;

n: longint=1;

var s: char;

r: longint;

begin

repeat

writeln(n:5,'-ое число pавно ',u1:6);

r:=u1; u1:=u1+u0; u0:=r; n:=n+1;

writeln ('Завеpшить вычисление?');

readln (s);

until upcase(s)='Y';

end.

Запустите на выполнение текст этой программы из среды разработки (TP.BAT).

Задача 2. В каталоге <Ф> создать файл с име­нем <ваша фамилия>.bas и текстом на языке QuickBASIC:

' Вычисление чисел Фибоначчи

DIM u0 AS LONG

DIM u1 AS LONG

DIM n AS LONG

DIM s AS STRING * 1

DIM r AS LONG

u0 = 0: u1 = 1: n = 1

DO

PRINT n; "-ое число pавно"; u1

r = u1: u1 = u1 + u0: u0 = r: n = n + 1

INPUT "Завеpшить вычисление ? ", s

LOOP UNTIL UCASE$(s) = "Y"

END

Запустите на выполнение текст этой программы из среды разработки (QB.BAT).

Задача 3. В каталоге <Ф> создайте файл с именем <ваша фамилия>.for и текстом на языке Fortran:

c Вычисление чисел Фибоначчи

integer u0/0/, u1/1/, n/1/

character s/'N'/

integer r

do while (.not.(s.eq.'y'.or.s.eq.'Y'))

write(*,*) n,'-ое число pавно ',u1

r=u1

u1=u1+u0

u0=r

n=n+1

write(*,'(a\)') ' Завеpшить вычисление? '

read(*,'(a)') s

end do

end

Желательно создать текст программы в среде FAR, запущенной командным файлом OkrFor.BAT

Компилируйте программу в файле <ваша фамилия>.for коман­дой

FL /FPi87 /AL /Fs /G2 <ваша фамилия>.for

Запустите на выполнение исполняемый файл <ваша фами­лия>.exe и показать преподавателю.

Задача 4. Ознакомьтесь с средой Visual Studio для разработки программ Visual Basic, выполняя пункты задания, приведенные в виде таблицы. Для протоколирования работы создайте отдельный файл с таблицей, аналогичной приведенной. Можно без текста, но при выполнении соответствующие снимки экрана ставьте в нужных клетках.

	Создайте отдельный файл (документ MS Word) с таблицей, аналогичной приведенной. Сохраните его.
	Запустите Visual Basic [Снимок экрана]
	Дайте команду Создать новый проект [Снимок экрана]
	Выберите шаблон Windows Forms Application (Windows-приложение) и нажмите OK.[Снимок экрана]
	Укажите Главное меню. [Снимок экрана]
	Укажите Стандартная панель инструментов. [Снимок экрана]
	Укажите окно Конструктора форм. В нем располагается элемент управления форма с именем Form1. Конструктор форм располагается во вкладке с именем Form1.vb [Design] . [Снимок экрана]
	Укажите окно Solution Explorer. [Снимок экрана]
	Укажите окно Properties . [Снимок экрана]
	Укажите панель Toolbox. Если он свернут, то подведите указатель мыши к нему. Он развернется. На первой строке есть кнопка. Щелкните по нему, она разворачивается и это панель остается развернутом виде. [Снимок экрана]
	На панеле Toolbox есть вкладка Common Controls. Если она свернута, разверните нажав на «+».
	На панеле Toolbox найдите элемент управления TextBox. Щелкните по нему, а затем на конструкторе форм. На конструкторе форм появляется элемент управления с именем TextBox1. [Снимок экрана]
	При этом окно Properties отражает свойства элмента TextBox1. [Снимок экрана]
	Щелкните дважды по элементу TextBox1. Появляется окно редактора кода со вкладкой именем Form1.vb. В нем будет заготовка кода Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub End Class [Снимок экрана]
	Между строками Private Sub ... и End Sub ставьте текст TextBox1.Text = "Я успешно осваиваю Бейсик!"
	Нажмите на клавишу F5. Появляется форма программы с текстовым полем. Нажмите клавишу любой буквы. [Снимок экрана]
	Откройте окно Locals [Снимок экрана]
	Откройте окно Immediate Window [Снимок экрана]
	Откройте окно Watch [Снимок экрана]
	Покажите полученный файл преподавателю

Задача 5. Запуск готовой Quick Basic – программы как консольную программу системы Visual Basic.

1. Запустите Microsoft Visual Studio (обозначим его IDE). Подготовьте к работе IDE (среда разработки):

Войдите в меню Tools-Options . На левой части диалогового окна в древовидной структуре выберите Projects and Solutions. Правая сторона при выборе меняется. Найдите маленький квадрат с названием: Save new projects when created. Ставить на нем галочку.

2. Из меню File – New Project ; выбирайте заготовку для Console Application

3. Появляется диалоговое окно. В поле Name выбирайте имя : ConsoleLab1. В поле Location укажите каталог для размещения проекта. В квадрате Create directory for solution должна быть галочка. Нажмем на кнопку Ok.

4. Появляется рабочее окно с заготовкой

Module Module1

Sub Main()

End Sub

End Module

Содержимое файла с текстом программы QB ставьте в это окно между строками

Sub Main()

End Sub

5. Оператор PRINT … замените на строку

Console.WriteLine("{0}-ое число pавно {1}", n, u1)

6. Оператор INPUT … замените на строки

Console.WriteLine("Завеpшить вычисление ? ")

s = Console.ReadLine

7. После этого на рабочем окне будет следующий текст:

Module Module1

Sub Main()

' Вычисление чисел Фибоначчи

Dim u0 As Long

Dim u1 As Long

Dim n As Long

Dim s As String

Dim r As Long

u0 = 0 : u1 = 1 : n = 1

Do

Console.WriteLine("{0}-ое число pавно {1}", n, u1)

r = u1 : u1 = u1 + u0 : u0 = r : n = n + 1

Console.WriteLine("Завеpшить вычисление ? ")

s = Console.ReadLine

Loop Until UCase$(s) = "Y"

End Sub

End Module

8. Нажмите на клавишу F5 (запуск программу на выполнение). Появляется окно вывода консольной программы. Нажимая на Enter, найдите 30-ое число Фибоначи. Завершите вычисление, нажав клавишу Y и клавишу Enter