Тесты на тему: “Основы 3D Моделирования”. 1.Дайте определение термину Моделирование.
А) Назначение поверхностям моделей растровых или процедурных текстур;
B) Установка и настройка источников света;
C) Создание трёхмерной математической модели сцены и объектов в ней;
D) Вывод полученного изображения на устройство вывода - дисплей или принтер.
2. Что такое рендеринг?
А) Трёхмерные или стереоскопические дисплеи;
B) Установка и настройка источников света;
C) Построение проекции в соответствии с выбранной физической моделью;
D) Вывод полученного изображения на устройство вывода - дисплей.
3. Где применяют трехмерную графику (изображение)?
А) Науке и промышленности, компьютерных играх, медицине ;
B) Кулинарии,общепитах;
C) Торговли;
D) Стоматологии.
4. Модель человека в виде манекена в витрине магазина используют с целью:
А) Продажи ;
B) Рекламы;
C) Развлечения ;
D) Описания
5. Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой модели следующего вида:
А) Табличные информационные;
B) Математические;
C) Натурные;
D) Графические информационные.
6. Программные обеспечения, позволяющие создавать трёхмерную графику это...
А) Blender Foundation Blender, Side Effects Software Houdini;
B) AutoPlay Media Studio;
C) Adobe Photoshop;
D) FrontPage.
7. К числу математических моделей относится:
А) Формула корней квадратного уравнения;
B) Правила дорожного движения;
C) Кулинарный рецепт;
D) Милицейский протокол.
8. Процесс построения информационных моделей с формальных языков называется:
А) Планированием;
B) Визуализацией;
C) Формализацией;
D) Редеринг.
9. Математическая модель объекта:
А) Созданная из какого-либо материала модель, точно отражающая внешние признаки объекта-оригинала;
B) Совокупность данных, содержащих информацию о количественных характеристиках объекта и его поведении в виде таблицы;
C) Совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;
D) Установка и настройка источников света.
10. Сколько существует основных этапов разработки и исследование моделей на компьютере:
А) 5
B) 6
C) 3
D) 2
var
n, s, i: integer;
x: array[1..100]of integer;
answer: string;
begin
readln(n);
for i := 1 to n do
read(x[i]);
readln(s);
answer := IntToStr(s) + ' = ';
for i := n downto 1 do
begin
answer := answer + IntToStr(s div x[i]) + '*' + IntToStr(x[i]);
s := s mod x[i];
if i > 1 then
answer := answer + ' + ';
end;
if s <> 0 then
writeln('NO')
else
writeln(answer);
end.
Более полный и правильный вариант решения, но и куда более сложный
//PascalABC.Net 3.1 сборка 1200
uses System.Collections.Generic;
uses System;
var
x := new List<integer>;
c := new List<Tuple<string, integer>>;
procedure getParcelling(sum, step: integer; coefficients: string; count: integer);
begin
if step >= x.Count then begin
if sum = 0 then c.Add((coefficients, count));
Exit;
end;
if step < 0 then step := 0;
for var j := 0 to (sum div x[step]) do
begin
var s := '';
if j > 0 then begin
if step > 0 then s += ' + ';
s += IntToStr(j) + '*' + IntToStr(x[step]);
end;
getParcelling(sum - x[step] * j, step + 1, coefficients + s, count + j);
end;
end;
begin
x := ReadArrInteger('x:', ReadInteger('n =')).ToList;
var sum := ReadInteger('sum =');
getParcelling(sum, 0, '', 0);
if c.Count = 0 then
writeln('No')
else begin
var min := c.Min(cc -> cc.Item2);
Println(c.Where(cc -> cc.Item2 = min));
end;
end.
var t: real;
i: integer;
begin
WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
Read(t);
for i := 1 to 10 do
WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.
Смысл такой:
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной
Далее идет цикл
Для каждого целого i от 1 до 10 сделай вот что:
Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t
После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
А дальше у нас end (последний end. всегда с точкой).
Конец.