Program N198453627; uses crt; var n,i:integer; max,v:real; yes: string; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); max:=0; yes:='NO'; writeln('Введите количество машин (не больше 30 - у меня мало памяти!)'); write('N = '); readln(n); if n>30 then writeln('Это слишком много!') else begin writeln('Вводите зарегистрированную скорость каждого автомобиля'); for i:=1 to n do begin write(i,'-й автомобиль: '); readln (v); if v >300 then begin writeln ('По-моему, твои приборы плохо отрегулированы - так быстро машины не ездят!'); writeln ('Это число не будет учтено'); end else if v < 1 then begin writeln ('Ты точно умеешь измерять скорость автомобиля? Скорость не может быть меньше 1!'); writeln ('Это число не будет учтено'); end else begin if v<30 then yes:='YES'; if v>max then max:=v; end; end; writeln(); writeln('Максимальная зарегистрированная скорость: ',max); writeln('Cкорость меньше 30 км/ч? ',yes); end; end.
3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).
Графическое изображение трёхмерных объектов отличается тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ. Однако с созданием и внедрением 3D-дисплеев и 3D-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.
Program N198453627;
uses crt;
var
n,i:integer;
max,v:real;
yes: string;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
max:=0;
yes:='NO';
writeln('Введите количество машин (не больше 30 - у меня мало памяти!)');
write('N = ');
readln(n);
if n>30 then
writeln('Это слишком много!')
else
begin
writeln('Вводите зарегистрированную скорость каждого автомобиля');
for i:=1 to n do
begin
write(i,'-й автомобиль: ');
readln (v);
if v >300 then
begin
writeln ('По-моему, твои приборы плохо отрегулированы - так быстро машины не ездят!');
writeln ('Это число не будет учтено');
end
else
if v < 1 then
begin
writeln ('Ты точно умеешь измерять скорость автомобиля? Скорость не может быть меньше 1!');
writeln ('Это число не будет учтено');
end
else
begin
if v<30 then yes:='YES';
if v>max then max:=v;
end;
end;
writeln();
writeln('Максимальная зарегистрированная скорость: ',max);
writeln('Cкорость меньше 30 км/ч? ',yes);
end;
end.
3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).
Графическое изображение трёхмерных объектов отличается тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ. Однако с созданием и внедрением 3D-дисплеев и 3D-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.
Объяснение: лови