Модуль 4, задание 2

Модуль 4, задание 3

Как сохранить проект приложения? 
Для сохранения всех файлов проекта нужно воспользоваться "Save All".
Как создать форму приложения? 
Для создания нового экземпляра формы нужно использовать конструктор Create класса формы.
Как добавить в форму кнопку, область для ввода текста, надпись? 
Нажать кнопку Command Button (Кнопка) на панели инструментов Form Controls (Элементы управления формы) и щелкнуть мышью в месте предполагаемого размещения создаваемой кнопки.
Как изменить шрифт надписи на кнопке? 
 ParentFont - изменение шрифта (Font) согласно значению объекта-предка.
Как добавить в форму группу кнопок? 
 На закладке Toolbars можно выбрать те группы кнопок, которые мы хотим видеть на панели инструментов
Как запустить проект приложения на выполнение? 
Run
Как запрограммировать работу кнопки? 
Объявим переменную-объект типа Кнопка. Теперь можно создать кнопку, для чего есть конструктор (метод для создания объекта), который выделяет свободную память под этот объект. Процесс инициализации объекта-кнопки выглядит так: переменной Объект нужно присвоить результат работы конструктора объекта Кнопка. Конструктор выделит необходимую объекту память и присвоит свойствам значения по умолчанию. Результат этого действия будет присвоен переменной Объект. Эта переменная будет указывать на область памяти в которой находится созданная кнопка, и ее свойства. После всех этих действий мы можем получить доступ к созданному объекту через переменную Объект.
Как создать процедуру-обработчик для события? 
 Для того, чтобы создать обработчик события, необходимо выполнить следующие действия: 
1. выбрать компонент, для которого необходимо обработать событие.
2. открыть вкладку "События" (Events) и два раза щелкните по правому столбцу выбранного события.
В результате этих действий Delphi автоматически сгенерирует процедуру обработки события. Имя этой процедуры состоит из имени компонента и названия события. Оно может быть изменено пользователем непосредственно в окне "Инспектор объектов".

Модуль 4, задание 1

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

Модуль 3, задание 6

Program INTEGRAL; - название программы
type - раздел описания типов
Func= function(x: Real): Real; - функциональный тип, определяется как заголовок функции, со списком формальных параметров, но без имени
var - секция объявления переменных
I,TN,TK:Real; - переменные вещественного типа
N:Integer; - переменная целого типа
{$F+} - ключ режима дальней адресации, в котором компилируются функции, имена которых будут передаваться как фактические параметры.
Function Q(t: Real): Real; - название функции, в которой t имеет вещественный тип
begin - начало описания функции
Q:=2*t/Sqrt(1-Sin(2*t)); - сама функция
end; - конец описания функции
{$F-} - ключ завершения режима дальней адресации
Procedure Simps(F:Func; a,b:Real; N:Integer; var INT:Real); - процедурный тип, вычисление определенного интеграла по методу Симпсона, где A и B - нижняя и верхняя границы интервала интегрирования (переменные вещественного типа), N - число разбиений интервала интегрирования (переменная целого типа).
var - секция объявления переменных
sum, h: Real; - сумма и переменная h - вещественного типа
j:Integer; - j - переменная целого типа
begin - начало вычисления
if Odd(N) then N:=N+1; - Если функция N - нечетное, тогда выполняем N:=N+1
h:=(b-a)/N; - значение h=(b-a)/N
sum:=0.5*(F(a)+F(b)); - находим первую сумму 0.5*(F(a)+F(b)
for j:=1 to N-1 do - для j=1 берем N-1
sum:=sum+(j mod 2+1)*F(a+j*h); - находим сумму первой суммы и данного произведения, где (j mod 2+1)- остаток от деления значения j на значение 2+1
INT:=2*h*sum/3 - значение интеграла равно 2*h*sum/3
end; - окончание нахождения интеграла
begin - начало выполнения программы
WriteLn(' ВВЕДИ TN,TK,N'); - вывод данных на экран
Read(TN,TK,N); - ввод данных с клавиатуры
Simps(Q,TN,TK,N,I); - значения интегрируемой функции
WriteLn('I=',I:8:3) - вывод данных на экран
end. - конец программы

Модуль 3, задание 5

Модуль 3, задание 4

Таблица Сравнения

Модуль 3, задание 3

6. Как выглядит структура программы на ЯП Pascal?
Program <Имя программы>;
Label <раздел описания меток>;
Const < раздел описания констант>;
Type < раздел описания типов>;
Var < раздел описания переменных>;
Procedure (Function) < раздел описания подпрограмм>;
Begin
<раздел операторов>
End.

7. Как записываются операторы присваивания в ЯП Pascal и Basic? Приведите примеры.
в ЯП Pascal:
<переменная>: = <выражение>(например- S:=V*t),

в ЯП Basic:
<переменная> = <выражение>(например-y=x*3)

8. Как записываются операторы ветвления в ЯП Pascal и Basic? Приведите примеры.
If <логическое выражение> then <оператор1> else <оператор2>
Пример
Program Info1;
Var A,B,C: Real;
Begin
Writeln('Введите два числа');
Readln(A,B);
If A>B Then C:=A Else C:=B;
Writeln(C);
End.

в ЯП Basic:
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)

Пример
REM определить большее из двух чисел...
INPUT "Введите а", а INPUT "Введите b", b
IF a>b THEN
PRINT "Большее число: ", a
с=2*a
ELSE
PRINT "Большее число: ", b
с=2*b
END IF
PRINT "результат: ", c
END

9. Приведите примеры записи операторов ввода и вывода ЯП Pascal и Basic.
ЯП Паскаль
Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);
Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >);

Пример:
Program Info2;
Var
R,S : Real;
Begin
Write('Введите радиус круга ');
Readln(R);
S:=4*ARCTAN(1)*SQR(R);
Writeln('Площадь круга радиусом ',R,' равна ',S)
End.

ЯП Basic
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>

Пример:
INPUT " введите длины сторон прямоугольника "; a , b
PRINT " a = " ; a ; " b = " ; b
PRINT " a = " ; a , " b = " ; b
PRINT "площадь = " ; a * b
PRINT " ";
PRINT TAB(27)"периметр прямоугольника = " ; 2 * ( a + b )

10. Приведите примеры записи любого цикла на ЯП Pascal.
Пример кода оператора цикла Паскаля с постусловием
Readln(n);
i:=0;
y:=0;
Repeat
i:=i+1;
y:=y+1/i;
Until i>n;

11. Приведите пример записи цикла с параметром на ЯП Basic.
Вычислить значение Sin, Cos и tg углов от 0 до 45 градусов с шагом 1 градус.

CONST PI=3.1415
FOR I=1 TO 45
X=PI*I/180
Y1=SIN(X)
Y2=COS(X)
Y3=TAN(X)
PRINT I, “Sin=”;Y1, “Cos=”; Y2, “tg=”; Y3
NEXT I

Модуль 3, задание 3

1. Что входит в состав любого языка программирования?
Используемые символы (алфавит)
Типы данных
Структуры данных
Семантика

2. Какие слова в ЯП называются «зарезервированными»?
Зарезервированное слово — в языках программирования слово, имеющее специальное значение.
В языке Паскаль, например:
MOD STRING FOR THEN NOT TO BEGIN CASE CONST IF OR UNTIL
IN VAR DIV INDEX PROCEDURE DO PROGRAM WHILE DOWNTO ELSE END REPEAT
В языке Basic, например:
DIM THEN NEXT REM ELSE WHILE TO R END GOTO MOD INPUT ON NOT PRINT FOR AND IF

3. Какие идентификаторы могут и не могут быть использованы в ЯП Pascal и Basic? Приведите не менее трех примеров на каждый случай.
ЯП Паскаль
Могут:
последовательность латинских букв и цифр, начинающаяся с буквы. В именах может использоваться символ _ подчеркивание. (My_Program, Anna, Kot)
Не могут:
Не разрешается использовать в качестве имен служебные слова и имена, которыми названы стандартные константы, типы, процедуры, функции и файлы (THEN NOT TO)

ЯП Basic
Могут:
латинские буквы, цифры и некоторые символы и должны начинаться с буквы. В конце идентификатора может быть суффикс – символ «$» или «%». (First, _Var, Kniga)
Не могут:
Не разрешается использовать в качестве имен служебные слова (NEXT REM GOTO MOD ).

4. Что определяет тип данных в языке программирования?
1) возможные значения переменных, констант, функций, выражений, принадлежащих к данному типу;
2) внутреннюю форму представления данных в ЭВМ;
3) операции и функции, которые могут выполняться над величинами, принадлежащими к данному типу

5. Приведите примеры записи массивов в ЯП Pascal и Basic.
ЯП Паскаль
Program Info;

uses CRT;

const N = 20;

var
A : array [1..N] of integer;
i : integer;
begin
ClrScr;
randomize;

for i := 1 to N do
begin
A[i] := random (256);
writeLn ('A[', i, '] = ', A[i])
end
end.

ЯП Basic
Private Type Student
FIO As String
Age As Byte
HasGramot As Boolean
End Type

Модуль 3, задание 2

ЯП Паскаль

ЯП Бейсик

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

Набрала больше 11 баллов с 4-его раза. Тест показался очень сложным.