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

Создайте небольшую модель «Пастбище» для животных в скечап. 1. Запускаем программу.
2. Выбираем нужный шаблон. Из шаблонов выбираем «Простой
шаблон-метры».
3. После открытия окна программы нажимаем кнопку «Прямо-угольник». Нарисуем в рабочем пространстве прямоугольник, по-ставив курсор на начало координат, где стоит «Модель человека».
4. Нажимая кнопку Тяни/Толкай, тянем прямоугольник и создаем фигуру
5. Ставим ограждение
6. Добавляем растительность

кто может , мне нужно фото (скрин)

👇
Открыть все ответы
Ответ:
обгрейд
обгрейд
21.02.2020
DECLARE FUNCTION f# (x AS DOUBLE)
DECLARE FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)

'Main program
DIM eps AS DOUBLE, n AS LONG, s AS DOUBLE, s1 AS DOUBLE
DIM a AS DOUBLE, b AS DOUBLE
CLS
a = 0: b = 1: eps = .001
n = 100
s = Integ#(a, b, 10#)
DO
   s1 = s
   s = Integ#(a, b, n)
   n = n * 2
LOOP UNTIL ABS(s - s1) <= eps
PRINT s
END

FUNCTION f# (x AS DOUBLE)
   f# = x ^ 3 * EXP(x ^ 2)
END FUNCTION

FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
   DIM h AS DOUBLE, xb AS DOUBLE, x AS DOUBLE
   DIM s AS DOUBLE, i AS INTEGER
   h = (b - a) / n
   s = 0
   xb = a
   FOR i = 0 TO n - 1
      x = xb + i * h
      s = s + f(x) * h
   NEXT i
   Integ# = s
END FUNCTION

Результат выполнения программы:
 .4991509793572241
Погрешность не превышает 0.001 при контрольном значении, равном 0.5
4,5(3 оценок)
Ответ:
alinkaaa888
alinkaaa888
21.02.2020
Количество слогов считаем по количеству гласных букв в слове.

Program pr;
uses crt;

var str,s: string; 
a,i,j,len,k,kslog: byte;      

Begin 
Writeln('Введите предложение'); 
readln(str);   
Writeln('Введите кол-во слогов'); 
readln(k);   
Writeln('Слова с ',k,' слогами:'); 
Writeln;   

len:=length(str); 
a:=0; 
kslog:=0; 

for i:=1 to len do     
            Begin           
                   if (str[i] = ' ')   then         
                        Begin         
                           s:=copy(str,i+1,a);                   
                 
                           for j:=1 to length(s) do           
                           Begin             
                           if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then                                                    inc(kslog);           
                           end;                           
                   if (k=kslog) then Writeln(s);               
                   kslog:=0;               
                   a:=0;         
                      end         
                   else  a:=a+1;     
             end;           

Writeln;     
Writeln('Для завершения программы нажмите Enter');     
readln;      
end.      
4,7(52 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ