1. Электрондық кестеде модельдеуді қалай орындауға болатындығын еске
түсіріңдер.
2. «Модель», «объект» сөздерін қалай түсінесіңдер?
3. 3D модельдеу нені білдіреді?
4. Қандай жағдайда 3D редакторы қолданылады?
5. 3D модельдеуге арналған қандай программалар бар?
6. Үшөлшемді модельдеудің негізгі кезеңдерін атаңдар.
7. 3D принтер туралы не білесіңдер
1. #include <iostream>
using namespace std;
int main() {
int i;
cout <<"Введите число: " << endl;
cin >> i;
cout << "Вы ввели число: " << i << endl;
}
2. #include <iostream>
using namespace std;
int main (){
int i;
cout << "Vvod" << endl;
cin >> i;
i %= 10;
if(i %2 != 0)
cout << "Нечетная" << endl;
else
cout << "Четная" << endl;
}
3. #include<iostream>
using namespace std;
int main (){
for(int k = 0; k<4; k++){
cout << "random number = " << rand() << endl;
}
}
4. #include <iostream>
using namespace std;
int main(){
int i,a,b,c;
cin >> i;
c = i%10;
b =(i/10)%10;
a = i/100;
if(i*i==a*a*a+b*b*b+c*c*c)
cout<<"Является."<<endl;
else
cout<<"Не является."<<endl;
}
5. #include <iostream>
#include <cmath>
const double pi = 3.1415926536;
using namespace std;
int main(){
float x = 0; cout << "Введите x: " << endl;
cin >> x;
cout << "y = " << sin((pi*(3.2+(sqrt(1+x))))/180)/abs(5*x) << endl;
}
Добавляем "pi" и делим на 180, чтобы "sin" был в градусах.
Блок-схемы смотри во вложении.
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2;
Range(a,b).Aggregate(Biginteger(1),(p,q)->p*q).Println
end.
Результат показан во вложении 1. Большое число получилось)))
2. Free Pascal
program ideone;
var
a,b,i:integer;
p:extended;
begin
Read(a,b);
p:=1;
for i:=a to b do p:=p*i;
Writeln(p)
end.
Результат приведен во вложении 2.
К сожалению, на интервале данных [1;2018] в этой версии Паскаля недостаточно диапазона значений представляемого результата и было вычислено произведение на [1;1000]. Для [1;2018] выводится Inf - машинная бесконечность.