Билет №10.

1.Вычислите n-е число Фибонначи с помощью функции на языка программирования Pascal.

Ответ:

program Fib;

var n:byte;

function F(k:byte):word;

begin

if k<2 then F:=1 else F:=F(k-1)+F(k-2); {рекурсивный вызов}

end;

begin

write('введите номер числа Фиббоначчи ');

readln(N);

writeln(N,'-е число Фиббоначчи =',F(N));

readln

end.

2. Как определить аппаратную конфигурацию пк, используя Bios?

Ответ:

Сведения о наличии основных устройств компьютера записывается в область данных BIOS с адресом 0000:0410 размером в двухбайтовое слово - слово конфигурации. С помощью прерывания INT 11h программа может получить в регистре AX слово конфигурации из указанной выше области данных BIOS.

Биты регистра AX	Содержимое
0	В системе установлен накопитель на магнитном диске (НМД)
1	В системе установлен арифметический сопроцессор
2 – 3 (все модели, кроме IBM PS/2)	Количество банков оперативной памяти на системной плате. Для компьютера IBM PC размер одного банка равен 16 Кбайт, для IBM PC/XT – 64 Кбайт. Для определения объема оперативной памяти в более современных компьютерах следует использовать другие средства, о которых мы расскажем позже
2 (IBM PS/2)	Компьютер IBM PS/2 оборудован мышью
3 (IBM PS/2)	Не используется в IBM PS/2
4 – 5	Начальный режим видеоадаптера: 00 – EGA или VGA 01 – цветной, 40x25 10 – цветной, 80x25 11 – монохромный, 80x25
6 – 7	Количество установленных накопителей на гибких магнитных дисках (НГМД)
8	Установлен контроллер прямого доступа к памяти DMA
9 – 11	Количество установленных асинхронных последовательных портов
12	Установлен игровой порт
13	Установлен последовательный порт (только для компьютера PCjr)
14 – 15	Количество установленных параллельных адаптеров

Билет №11.

1.Отктыть файл f86.txt и сохранить в нем N целых чисел в пределах от 65 до 90: а) считайте информацию из данного файла; в) найдите сумму элементов, находящихся в файле f86.txt. Реализовать в среде программирования Pascal.

Ответ: см. ксерокс стр.197

2. Создайте запрос на добавление в реляционной базе данных

Ответ: см.ксрерокс.

Билет №12.

1.Создать файл, элементы которого вычисляются по формуле m:=i*i+4*I; i=1…N. Реализовать в среде программирования Pascal.

Ответ: см. ксерокс стр.200.

2.Создайте запрос на удаление в реляционной базе данных

Ответ: см.ксрерокс.

Билет №13.

1. Создайте файл прямого доступа, элементами которого являются целые числа в диапазоне от -35 до 35. число элементов в файле нечетно. Установив указатель позиции на первый, средний и последний элемент, считайте данные из файла и найдите их сумму.

Ответ: см. ксерокс стр.216.

2.Создайте запрос на обновление в реляционной базе данных.

Ответ: см.ксрерокс.

Билет №14.

1. Создайте файл, элементами которого является целые случайные числа. Упорядочить по убыванию, возрастанию элементы файла.

Ответ: см. ксерокс стр.217.

2. Автопостроение источников данных (TRACE MODE® 5.0 )

Ответ:

Автопостроение® - это набор автоматических процедур формирования различных элементов проекта АСУТП. Автопостроение избавляет разработчика АСУТП от наиболее рутинной работы, сокращает время разработки проекта, и снижает вероятность внесения ошибок, возникающих при ручных операциях.

Можно сказать, что автопостроение - это автоматизация автоматизации.

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

Автопостроение источников данных реализовано непосредственно в редакторе проекта. Выбирая в системе контекстных меню тип контроллера (PLC) и его конфигурацию, разработчик АСУТП создает описание структуры аппаратной части проекта. При этом будет автопостроено ровно столько сигналов ввода-вывода, сколько реального существует для выбранной конфигурации данного типа контроллера. Аналогично реализовано и автопостроение источников данных распределенных УСО и плат ввода-вывода, устанавливаемых в промышленные компьютеры.

Билет №15.

1. Среди чисел 1<n<100 найти все пары чисел, для которых их суммы равнялись бы их произведению с помощью оператора счета в среде программирования Pascal.

Ответ:

Program zadacha_12;

var

k, a,b :integer;

begin

k:=1;

for a:=1 to 100 do

for b:=1 to 100 do

begin

if a+b=a*b then

begin

k:=k+1;

writeln(‘числа’, a, ‘u’,b,’такая пара чисел’);

end;

end;

if k=0 then writeln(‘таких чисел нет’);

readln;

end.