Читайте также:
|
|
(прикладывается отдельным файлом с названием по образцу: ФИО.Заявка.doc)
Фамилия | |
Имя | |
Отчество | |
Место работы (учебы) | |
Должность | |
Ученая степень | |
Звание | |
Для студентов: ФИО, должность, звание науч. рук-ля | |
Тема доклада | |
Адрес с индексом (для отправки приглашения) | |
Телефон раб. | |
Телефон дом. | |
Е-mail | |
Участие очное / заочное | |
Необходимость в гостинице (да / нет; если да – указание периода) |
Проезд, проживание и питание участников осуществляется за счет командирующей стороны.
Адрес оргкомитета дла российских участников: 450000, г. Уфа, ул. Цюрупы, 6(корпус БАГСУ), к. 302, кафедра маркетинга, логистики и коммерции.
Координатор конференции для российских участников: специалист по учебно-методической работе Гульнара Гизатуллина. Контактный телефон: 8(347)272-53-65
Адрес оргкомитета дла зарубежных участников: 450000, г. Уфа, ул. З.Валиди, 40, гл корпус БАГСУ к. 216, отдел международных связей
Контактный телефон координатора: 8 (347) 273-93-06 – Прокофьева Римма Амировна.
Begin
b:=1.5;
x0:=0.1;
xk:=1;
dx:=0.1;
x:=x0;
Repeat
if (b*x<1) then y:=b*x-(ln(b*x)/ln(10));
if (b*x=1) then y:=1;
if (b*x>1) then y:=b*x+(ln(b*x)/ln(10));
writeln(x:8:3,'',y:8:3);
x:=x+dx;
until x>xk;
readln;
end.
2. Вычислить:
Блок-схема.
var S: real;
k, k0, kx: integer;
Begin
k0:=1;
kx:=5;
k:=k0;
S:=0;
for k:=k0 to kx do
S:=S+((k*k)/((k*k)+(3*k)+5));
writeln('S = ', S);
readln;
end.
Блок схема.
var P: real;
i, i0, ix: integer;
Begin
i0:=1;
ix:=4;
i:=i0;
P:=1;
for i:=i0 to ix do
P:=P*exp(i*ln(5))/(exp(i*ln(3))+exp((i+2)*ln(2)));
writeln('P = ', P);
readln;
end.
3. Вычислить минимальный элемент массива, состоящего из 8 элементов, и его номер. Преобразовать исходный массив, вычитая из каждого элемента минимальное значение.
type a = array[1..8] of integer;
var vec: a; i, imin: byte; min: integer;
begin
writeln('введите значения элементов одномерного массива: ');
for i:=1 to 8 do begin
write('vec[',i,'] = ');
readln(vec[i]);
end;
for i:=1 to 8 do
write(vec[i],' ');
min:=vec[1];
imin:=1;
for i:=2 to 8 do begin
if vec[i] < min then begin
min:= vec[i];
imin:= i;
end;
end;
writeln('Min = ',min,', nomer = ',imin);
for i:=1 to 8 do vec[i] - min;
for i:=1 to 8 do
write(vec[i],' ');
end.
Функция определения координат или цвета пикселя - POINT
Назначение: Определяет номер цвета пикселя или выдает его координаты.
Синтаксис: POINT(x,y)
POINT(<число>)
Если в функции POINT задается пара координат х и у, возвращается номер цвета пикселя с этими координатами. В том случае, когда координаты выходят из допустимого диапазона, выдается значение -1.
Функция POINT с аргументом <число> позволяет получить текущую координату курсора (варианты значений аргумента перечислены ниже).
Значение | Возвращаемый результат |
Текущая абсолютная координата х | |
Текущая абсолютная координата у | |
Текущая относительная координата х в системе координат, задаваемой оператором WINDOW. Если оператор WINDOW не выполнялся, то возвращается значение функции POINT (0) | |
Текущая относительная координата у. Если оператор WINDOW не выполнялся, то возвращается значение функции POINT (0). |
Дата добавления: 2014-12-19; просмотров: 30 | Поможем написать вашу работу | Нарушение авторских прав |