М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ekaterintys
ekaterintys
30.10.2021 11:58 •  Информатика

Кейс 1. «Геометрия будущего» «The 3D» – молодая компания из Уфы, ориентированная на услуги в сфере 3D-технологий. Основатель компании, приобрел для своего бизнеса сразу два персональных 3D-принтера. Изначально, компания занималась изготовлением миниатюрных копий людей, но в связи с получением обновленного 3D-оборудования, так же начала предоставлять услуги по созданию входных групп и скульптурных сооружений. Компания «The 3D» планирует развиваться и дальше по всем направлениям 3D печати и сканирования. По словам основателя компании − Руслана, у них есть много задумок по этому поводу: «Одной из задач для нас является создание входных групп и скульптурных сооружений. При этом достаточно сложна демонстрация объекта заказчику, так как виртуальная картина не дает полного восприятия. Выход был очевиден! Купив 3Dпринтеры, мы решили эту задачу. На сегодняшний день клиент может не только увидеть, но и «потрогать» геометрию будущего декора. А это именно то чувство, которое может убедить даже изощренного эстета». Вопросы и задания к кейсу. 1. Почему кейс называется «геометрия будущего»? 2. О каком направлении 3D-печати рассказывается в кейсе? 3. В чем заключается инновационность деятельности компании «The 3D». 4. Если бы Вы стали директором данной компании, какие дополнительные направления развития Вы бы предложили. 5. Как Вы думаете, будет ли компания «The 3D» также популярна через 5 или 20 лет?

👇
Ответ:
карина2153
карина2153
30.10.2021

Объяснение:

порролппаспа

4,8(27 оценок)
Открыть все ответы
Ответ:
Arina12261
Arina12261
30.10.2021
//PascalABC.NET 3.2 сборка 1318

var
  l, r, counter, i: integer;

function DifNum(a: integer): integer;
var  se: set of integer;
  i: integer;
begin
  while a > 0 do
  begin
    if a mod 10 in se then
    begin
      DifNum := 0;
      exit;
    end
    else include(se, a mod 10);
    a := a div 10;
  end;
  DifNum := 1;
end;

begin
  read(l, r);
  for i := l to r do
    counter += DifNum(i);
  writeln(counter);
end.

//Альтернативное решение на Паскале

Var
  l,r:integer;
begin
read(l,r);
writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count);
end.

//Dev-C++ 5.11 (C)

#include <stdio.h>
#include <malloc.h>

int DifNum(int);

int main(void)
 {int l,r,counter=0;
 scanf("%d %d",&l,&r);
 for(int i=l;i<=r;i++)
  counter+=DifNum(i);
 printf("%d",counter);
return 0;}

int DifNum(int a)
 {int k=1,*nums;
 nums=(int*)malloc(k*sizeof(int));
 nums[0]=-1;
 while(a>0)
  {for(int i=0;i<k;i++)
   if(a%10==nums[i])
    return 0;
  k++;
  nums=(int*)malloc(k*sizeof(int));
  nums[k-1]=a%10;
  a/=10;}
 free(nums);
 return 1;}

Пример ввода:
1 12
Пример вывода:
11
4,5(93 оценок)
Ответ:
1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if max<ar[i] then
   begin;
    max:=ar[i];
    maxi:=i;
   end;
  if min>ar[i] then
   begin;
    min:=ar[i];
    mini:=i;
   end;
  s:=s+ar[i];
 end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
 begin;
  ar[i]:=random(100)-50;
  write(ar[i]:4);
  if (ar[i]>0) and (ar[i] mod 2=0) then
   begin;
    inc(k);
    s:=s+ar[i];
   end;
 end;
f:=s/k;
writeln;
writeln('Result:',f);
end.
4,4(24 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ