Модуль 4. Задание 7

Модуль 4. Задание 6

Модуль 4. Задание 4

Модуль 4. Задание 2

Модуль 4. Задание 3

Visual Basic

1. Как сохранить проект приложения?

Проект приложения сохраняется в отдельном файле и также в отдельных файлах сохраняются элементы проекта.
При первом сохранении указываются имена файлов для всех элементов проекта. Поскольку проект состоит из нескольких файлов, то для него лучше создать отдельную папку.

Порядок сохранения проекта, содержащего одну форму:

Файл → Сохранить как → Создание новой папки  → Ввести имя папки → Enter → дважды щелкнуть по папке (папка откроется) → ввести имя файла формы → Сохранить → ввести имя файла проекта → Сохранить.

2. Как создать форму приложения?

 Запускаем Visual Basic. Создаем новый Exe-проект.
У нас откроется окно формы Проект1 – Form1 (Form).

3. Как добавить в форму кнопку, область для ввода текста, надпись?

Слева, там где компонеты формы, найдем командную кнопку (CommandButton). Щелкнем по ней, а потом мышь переведем на поле формы и нажав на левую клавишу мыши растянем пунктирный прямоугольник до нужного нам размера.

Аналогично добавляем TextBox - область для ввода текста.

А для ввода надписи используем свойство Caption - текст надписи.

4.Как изменить шрифт надписи на кнопке?

В окне свойств щелкаем по свойству Font и в открывшемся окне Font выберем подходящий шрифт, размер и жирность.

5.Как добавить в форму группу кнопок?

Слева, там где компонеты формы, найдем командную кнопку (CommandButton) или какую-нибудь другую. Щелкнем по ней, а потом мышь переведем на поле формы. И так повторять до нужного нам количества кнопок.

6. Как запустить проект приложения на выполнение?

Запустить программу  (запуск) или F5. При этом появляется стартовая форма, т.е. окно создаваемой программы и его значок в панели задач.

7.Как запрограммировать работу кнопки?

Для этого в верхнем ряду окна нажимаем кнопку “Вид”. В выпавшем меню первая строка “Код” нажимаем её и ищем нашу кнопку, для того чтобы её запрограммировать. Или нажимаем на кнопку правой кнопкой мыши, показать код, появится окно, вверху окна слева в списке выбираем нужную нам кнопку для того чтобы её запрограммировать.

8.Как создать процедуру-обработчик для события?

Обработчик событий в Visual Basic — это процедура Sub. Можно сделать это с помощью предложения Handles (Visual Basic) и переменной WithEvents (Visual Basic) или Оператор AddHandler.

Вызов обработчика событий с помощью AddHandler

1. Убедитесь, что событие объявлено с помощью оператора Event.
2. Выполните Оператор AddHandler для того, чтобы динамически связать процедуру обработки события Sub с событием.
3. При возникновении события Visual Basic автоматически вызывает процедуру Sub. Код может использовать оператор RaiseEvent, чтобы создавать событие.

Модуль 4. Задание 1

Объекты системы программирования

Модуль 3. Задание 7

Модуль 3. Задание 5

Результаты опроса:
Захарова Анна - 6 баллов
Сметкин Алексей - 6 баллов
Шабалина Екатерина - 6 баллов

Проанализировав итоги опроса, я пришел к выводу, что тест  простой и ребята хорошо подготовились. Вопросы были не очень трудными и поэтому результаты совпали с моими прогнозами, я очень рад за ребят!!! 

Модуль 3. Задание 6

Программа на Pascal,вычисляющая вещественные корни произвольного квадратного уравнения.
program Equation;
var a,b,c,d,x1,x2:real;
begin
 writeln;
 writeln ('Введите коэффициенты a,b,c:');
 read (a,b,c);
 d:=sqr(b)-4*a*c;
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 writeln ('Корни уравнения');
 writeln (x1:10:2,x2:10:2);
 readln; readln;
end.

program Equation - имя программы
var - раздел описания переменных
a,b,c,d,x1,x2 - переменные
real - тип переменных. В ЯП Pascal это действительный тип.
begin - начало программы
writeln - оператор вывода данных на экран
('Введите коэффициенты a,b,c:'); - пояснение для облегчения работы с программой.
 read (a,b,c) - оператор ввода данных с клавиатуры. В скобках список ввода.
 d:=sqr(b)-4*a*c; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); - присвоение к переменным.
writeln ('Корни уравнения'); writeln (x1:10:2,x2:10:2); - операторы выводыданных на экран
 readln; readln; - оператор ввода
end - конец программы.

Модуль 3. Задание 5

Модуль 3. Задание 4

Таблица: Сходства и различия ЯП Pascal и Basic

Модуль 3. Задание 3

- Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры.
7.  Оператор присваивания в ЯП Pascal:
  <переменная>:=<выражение>
Примеры:
X: =(Y+Z)/(2+Z*10-1/3);
LogPer: = (A>B) and (C<=D).
Оператор присваивания в ЯП Basic:
<переменная>=<выражение>
Примеры: 
L=8

Р==Р+1

- Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.

8. Оператор ветвления в ЯП Pascal: 

  If <логическое выражение>  then <оператор 1>else <оператор 2>;

Пример: 

Program max3_1;

Var X, Y, Z, MAX: real;

Begin

write(‘Введите X, Y, Z ’); readln(X, Y, Z);

if X > =Y

then if X > = Z then MAX : =X else MAX : =Z

else if Y > = Z then MAX : =Y else MAX : =Z writeln(‘Максимальное значение’, MAX)

end.

Оператор ветвления в ЯП Basic:

IF условие ТНЕN блок_операторов_1 ELSE блок_операторов_2 END IF

Примеры:

INPUT X, M
IF M<0 THEN
                S=X*X
                PRINT"ПЛОШАДЬ КВАДРАТА";S
              ELSE
                S=PI*X*X
                PRINT "ПЛОЩАДЬ КРУГА";S
END FI
END

- Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic.

9.  Оператор ввода и вывода в ЯП Pascal: 

READLN('У машины 4 колеса') с клавиатуры вводим: у машины 4 колеса

WRITELN('У машины 4 колеса'); на экране появится: у машины 4 колеса

Оператор ввода и вывода в ЯП Basic:
INPUT " введите длины сторон прямоугольника "; a , b 
PRINT " a = " ; a ; " b = " ; b 
PRINT " a = " ; a , " b = " ; b 
PRINT "площадь = " ; a * b 
PRINT " "; 
PRINT TAB(27)"периметр прямоугольника = " ; 2 * ( a + b )
- Приведите примеры записи любого цикла на ЯП Pascal.
10. Примеры записи циклов на ЯП Pascal. 
I. С использованием цикла "Пока".
Program Ex1;
Var 
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
While A<=100 Do
Begin
S:=S+A*A;
A:=A+1
End;
Writeln(S)
End.
II. С использованием цикла "До".
Program Ex2;
Var 
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
Repeat
S:=S+A*A;
A:=A+1
Until A>100;
Writeln(S)
End.
III. С использованием цикла "С параметром".
Program Ex3;
Var 
A : Integer;
S : Longint;
Begin
S:=0;
For A:=1 To 100 Do S:=S+A*A;
Writeln(S)
End.

- Приведите пример записи цикла с параметром на ЯП Basic. 

11.Цикл с параметром на ЯП Basic.

Программа для вычисления квадратов четных чисел от 2 до 10 

FOR J=2 ТО 10 SТЕР 2
    PRINT J, J*J
NEXT J
END