1. Создать простые формы для ввода данных в таблицы Фирма и Программное обеспечение и обеспечить их - id1579407820200527 от Alishkek 27.05.2020 15:24

Question

Информатика: 1. Создать простые формы для ввода данных в таблицы Фирма и Программное обеспечение и обеспечить их вызов через форму для ввода данных в таблицу Установки. 2. Создать запрос с параметром для обеспечения просмотра списка компьютеров по установленному программному обеспечению. 3. Создать отчет для обеспечения просмотра списка компьютеров по установленному программному обеспечению. 4. Создать главную кнопочную форму для обеспечения перехода между созданными объектами СУБД.

Alishkek · Accepted Answer

//Pascal ABC.NET 3.1 сборка 1219

Var
k,n,max:integer;

procedure hase(var k,n,max:integer); //сама последовательность
begin
if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
writeln(n); //вывод нового члена последовательности
inc(k); //увеличение значения счётчика шагов
if max<n then max:=n; //поиск вершины
end;

procedure start(var k,n,max:integer); //название процедуры намекает
begin
readln(n);
k:=0;
writeln('Seq:');
max:=integer.MinValue;
while n<>1 do
hase(k,n,max);
writeln('Шаги:',k);
writeln('Вершина:',max);
end;
begin
start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

MOGZ ответил