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

Все свои .. умоляю
составить программы на паскале для решения :
1.напишите на ая алгоритм сложения двух простых дробей ( без сокращения дроби)
2. напишите на ая алгоритм вычисления y по формуле y=(1-x^2+5x^4)^2 , где x- заданное целое число
3. напишите наиболее короткие алгоритмы вычисления выражения y=x^10

👇
Ответ:
tytyuuh88
tytyuuh88
18.10.2020

Задание 1)

Program Task_1;

 

var

a, b, c, d: integer;

 

begin

 

writeln('Напишите значение числителя первой дроби:');

readln(a);

 writeln('Напишите значение знаменателя первой дроби:');

 readln(b);

  

 writeln('Напишите значение числителя второй дроби:');

 readln(c);

  writeln('Напишите значение знаменателя второй дроби:');

  readln(d);

  

   writeln('Сложение двух данных дробей равно: ', (a/b)+(c/d));

    

end.

Задание 2)

Program Task_2;

 

var

x,y: integer;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 

 writeln('y=(1-x^2+5x^4)^2, y = ', sqr(1-x*x+5*sqr(x*x)));

 

 

end.

Задание 3)

Program Task_3;

 

var

x,y: real;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 y:= x*x*x*x*x*x*x*x*x*x;

  

  y:= exp(ln(x)*10);

    

    

   end.

4,6(15 оценок)
Открыть все ответы
Ответ:
DmitriyGromov
DmitriyGromov
18.10.2020
1)
program ex1;uses crt;var a, b: integer;begin  readln(a, b);  if a > b then  begin    a:= a * 2;    b:= b + 5;  end  else  begin    a:= a - 5;    b:= b - 5;  end;  write(a, b);end.

2)
program ex1;uses crt;var a, b, c: integer;begin  readln(a, b, c);  if (a + b > c) and (a + c > b) and (b + c > a) then  writeln('Треугольник существует')  else  writeln('Треугольник не существует');  if (a = b ) and (b = c) then    writeln('Треугольник равносторонний')    else      if (a = b) or (b = c) or (a = c) then        writeln('Треугольник равнобедренный')        else          writeln('Треугольник разносторонний');end.
4,8(1 оценок)
Ответ:
popoposa
popoposa
18.10.2020

Чтобы сделать объемную пятиконечную звезду, вам потребуется всего лишь квадратный лист бумаги или картона, и две минуты времени.

Итак, чтобы сделать объемную звезду, возьмите квадратный лист, сложите его пополам. Запомните: все остальные действия необходимо выполнять, чтобы сложенный пополам лист лежал сгибом вниз.

Складываем листик еще раз пополам – получаем полосу сгиба.

Теперь нам нужны еще две полосы – для этого необходимо свернуть нашу заготовку таким образом:

И потом еще вот так:

Далее берем левый нижний уголочек и прикладываем его к середине – точке пересечения двух линий.


Потом отгибаем таким образом:


И к полученной линии ровненько пригибаем правую сторону:


Дальше складываем нашу заготовку пополам, загибая назад:


Следующее действие: отогнуть уголочек, чтобы получить еще одну линию сгиба – по ней нужно будет отрезать, получив в результате треугольник:

Держим вот этой стороной к себе:

Загибаем:

Распрямляем:


И отрезаем и получаем:


В принципе, звезда готова – осталось ее развернуть и слегка подправить все линии, чтобы получилось, как положено:


Вот и все, можно красить гуашью или красками, если вы делали из белой бумаги.
Конечно, это далеко не единственный сделать объемную звезду, и в дальнейшем мы обязательно расскажем вам о других вариантах, чтобы было из чего выбрать.

4,8(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ