Кейс 1. «Геометрия будущего» «The 3D» – молодая компания из Уфы, ориентированная на услуги в сфере 3D-технологий. Основатель компании, приобрел для своего бизнеса сразу два персональных 3D-принтера. Изначально, компания занималась изготовлением миниатюрных копий людей, но в связи с получением обновленного 3D-оборудования, так же начала предоставлять услуги по созданию входных групп и скульптурных сооружений. Компания «The 3D» планирует развиваться и дальше по всем направлениям 3D печати и сканирования. По словам основателя компании − Руслана, у них есть много задумок по этому поводу: «Одной из задач для нас является создание входных групп и скульптурных сооружений. При этом достаточно сложна демонстрация объекта заказчику, так как виртуальная картина не дает полного восприятия. Выход был очевиден! Купив 3Dпринтеры, мы решили эту задачу. На сегодняшний день клиент может не только увидеть, но и «потрогать» геометрию будущего декора. А это именно то чувство, которое может убедить даже изощренного эстета». Вопросы и задания к кейсу. 1. Почему кейс называется «геометрия будущего»? 2. О каком направлении 3D-печати рассказывается в кейсе? 3. В чем заключается инновационность деятельности компании «The 3D». 4. Если бы Вы стали директором данной компании, какие дополнительные направления развития Вы бы предложили. 5. Как Вы думаете, будет ли компания «The 3D» также популярна через 5 или 20 лет?
Ответы
//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
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
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Число-176 записано в ячейку памяти размером 16 битов (кодирование знаковое в двоичном пред- ставлении оно имеет вид.
Автор: oksanamalakhova004610
Сортировка массива методом пузырька с++, плес
Автор: vasilevam
Сколько бит или информации состовляет слово маг распишите как что
Автор: Lianchikavon
Дано 2 числа a i b знайти їх середнє арифметичне (a+b)/2
Автор: komarov-dmitriy
Объяснение:
порролппаспа