Дано описание. Выбери верный ответ. Это получение движущихся изображений на экране дисплея. Художник создает на экране рисунки начального и конечного положения движущихся объектов, все промежуточные состояния рассчитывает и изображает компьютер, выполняя расчёты, опирающиеся на математическое описание данного вида движения. Полученные рисунки, выводимые последовательно на экран с определённой частотой, создают иллюзию движения. 1)компьютерная анимация 2)народная графика 3)иллюстративная графика 4)конструкторская графика
Ответы
Var
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;
begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
p := m mod 10;
K := K + 1;
m := m div 10;
end;
Str(N, s);
c := 0;
for i := 1 to Length(s) do
if s[i] in ['0', '2', '4', '6', '8'] then
Inc(c);
x := n;
sum := 0;
while (x <> 0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;
begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
p := m mod 10;
K := K + 1;
m := m div 10;
end;
Str(N, s);
c := 0;
for i := 1 to Length(s) do
if s[i] in ['0', '2', '4', '6', '8'] then
Inc(c);
x := n;
sum := 0;
while (x <> 0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.
1)
program discuc;
uses crt;
var x,y,z,c,d,r,q,w:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
writeln ('введите z');
readln (z);
writeln ('введите c');
readln (c);
q:=sin(sqr(x));
d:=cos(x)/cos(exp(ln(x)*3));
w:=z/y*c;
r:=q+d+w;
writeln ('r=',r:5:2);
readkey;
end.
2)
program bibup;
uses crt;
var x,y,z,c,v,j:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
z:=(1/(sqr(x)))+1;
c:=sqrt(5);
v:=6.7*(sqr(y));
j:=z-c+v;
writeln ('j=',j:5:2);
readkey;
end.
Это если в Pascal Free
надеюсь это то
program discuc;
uses crt;
var x,y,z,c,d,r,q,w:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
writeln ('введите z');
readln (z);
writeln ('введите c');
readln (c);
q:=sin(sqr(x));
d:=cos(x)/cos(exp(ln(x)*3));
w:=z/y*c;
r:=q+d+w;
writeln ('r=',r:5:2);
readkey;
end.
2)
program bibup;
uses crt;
var x,y,z,c,v,j:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
z:=(1/(sqr(x)))+1;
c:=sqrt(5);
v:=6.7*(sqr(y));
j:=z-c+v;
writeln ('j=',j:5:2);
readkey;
end.
Это если в Pascal Free
надеюсь это то
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Көрсетілген командалар үшін алгоритм түрін анықтаңыз
Автор: ghjcnjtyjn64
Наведіть 4 приклади вкладених циклічних процесів. 6клас
Автор: ovdei71
со вторым заданием отдаю все что есть
Автор: familumid
Как выложить фото сюда куда нажимать
Автор: Михайлович1309
компьютерная анимация
Объяснение: