4 Задание 4.1 Составьте функцию пользователя, вычисляющую стоимость дорожки, проходящей по через луг и пляж (постановка задача приведена в практическом занятии 6 Все данные (восемь значений) передаются в функцию как параметры. 4.2 Создайте процедуру для этих же вычислений. Все данные процедура должна получать из ячеек рабочего листа, а результат поместить в ячейку, адрес которой задается пользователем. 4.3 Создаваемые процедуры должны обеспечить вычисления длины двух отрезков дорожки и стоимости строительства дорожки: S = S1 * AB + S2 * BC при следующих исходных данных S1=80; S2=120; xa=0; ya=10; yb=5; xc=10; yc=0 Значение xb принять равным одному из тех, для которых на занятии 6 было получено значение стоимости, например 2. 5 Указания к выполнению работы 5.1 Все операции выполняйте в рабочей книге, созданной на занятии 2-6. 5.2 Перед началом работы проверьте и, если нужно, измените на Средний, уровень безопасности при работе с макросами. 5.3 Редактор VBA открывается командами Сервис – Макрос – Редактор Visual Basic . 5.4 Для вставки новой процедуры используется команда Insert – Procedure; тип новой процедуры следует указать Function для первого задания и Sub для второго. Имя функции и процедуре задайте сами, они не должны совпадать. 5.5 Для вычисления длины отрезков можно использовать стандартную функцию VBA Sqr() – вычисления квадратного корня или воспользоваться операцией возведения в степень и тождеством: √х = х1/2. 5.6 Вычислите значения стоимости строительства дорожки с функции и с процедуры. Сравните со значениями, полученными при выполнении занятия 6. 5.7 Сохраните результаты работы.
Ответы
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('В числе');
Writeln(n div 1000,' - тысяч');
Writeln((n div 100) mod 10,' - сотен');
Writeln((n mod 100) div 10,' - десятков');
Writeln(n mod 10,' - единиц')
end.
Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите трехзначное число');
var s:=n div 100;
var d:=(n div 10) mod 10;
var e:=n mod 10;
Writeln('Sum=',s+d+e);
Writeln(e,d,s);
Writeln('В числе');
Writeln(e,' - сотен');
Writeln(d,' - десятков');
Writeln(s,' - единиц')
end.
Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('В числе');
Writeln(n div 1000,' - тысяч');
Writeln((n div 100) mod 10,' - сотен');
Writeln((n mod 100) div 10,' - десятков');
Writeln(n mod 10,' - единиц')
end.
Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите трехзначное число');
var s:=n div 100;
var d:=(n div 10) mod 10;
var e:=n mod 10;
Writeln('Sum=',s+d+e);
Writeln(e,d,s);
Writeln('В числе');
Writeln(e,' - сотен');
Writeln(d,' - десятков');
Writeln(s,' - единиц')
end.
Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Если здесь вопрос понимать "Все записи в таблице реляционной БД имеют", то ответ, скорее всего,
d) Одинаковое количество полей
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв):
c) Продумать структуру базы данных
d) Дать имя каждому полю в базе данных
a) Занести данные в таблицу
b) Осуществить сортировку записей в базе данных
4) Поиск информации– это:
a) выбор информации по определённым правилам
5) Примером базы данных может служить:
Скорее всего
b) Телефонный справочник,
хотя и
c) Энциклопедия тоже может быть
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом:
Да или Нет ?
b) В логическом поле
7) В какой из перечисленных пар данные относятся к одному типу?
a) 12.04.98 и 01/02/99; - тип дата
b) ДА и TRUE (ИСТИНА); - логический тип
8) База Данных содержит информацию о каждой собаке из клуба собаководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля?
d) текстовое, текстовое, дата, текстовое, числовое;
Возможно, такие ответы. Хотя многие вопросы некорректны.