Регистрация Спросить otvet5GPT
счастье101
12.05.2022 11:52
Информатика
Есть ответ 👍

Найти паскаль program z232; var operation: byte; a,b: real; function summa(x,y: real): real; begin summa: =a+b end; function raznost(a,b: real): real; begin raznost: =a-b end; function delenie(a,b: real): real; begin delenie: =a/b end; function proizved(a,b: real): real; begin proizved: =a*b end; function sqrt(a,b: real): real; sqrt: =sqrt(a); sqrt: =sqrt(b); end; function abs(a.b: real): real; abs: =abs(a); abs: =abs(b): end; function sin(a.b: real): real; sin: =sin(a); sin: =sin(b); end; function cos(a.b: real): real; cos: =cos(a); cos: =cos(b); end; function tan(a.b: real): real; tan: =tan(a); tan: =tan(b); end; function sqr(a.b: real): real; sqr: =sqr(a); sqr: -sqr(b); end; begin writeln('a'); read(a); writeln('b'); read(b); writeln('1 - сложить'); writeln('2 - вычесть'); writeln('3 - разделить'); writeln('4 - умножить'); writeln('5 - корень'); writeln('6 - модуль'); writeln('7 - синус'); writeln('8 - косинус'); writeln('9 - тангенс'); writeln('10 - квадрат'); read(operation); case operation of 1: writeln(summa(a.b)); 2: writeln(raznost(a.b)); 3: writeln(delenie(a.b)); 4: writeln(proizved(a.b)); 5: writeln(sqrt(a.b)); 6: writeln(abs(a.b)); 7: writeln (sin(a.b)); 8: writeln(cos(a.b)); 9: writeln(tan(a.b)); 10: writeln(sqr(a.b)); end; end.

144
341
Посмотреть ответы 2

Ответы на вопрос:

artem222529ozd6op
artem222529ozd6op
4,6(59 оценок)
Program z232; var   operation: byte;   a, b: real; function summa(x, y: real): real; begin   summa : = a + b end; function raznost(a, b: real): real; begin   raznost : = a - b end; function delenie(a, b: real): real; begin   delenie : = a / b end; function proizved(a, b: real): real; begin   proizved : = a * b end; function sqrt(a, b: real): real; begin   sqrt : = sqrt(a);   sqrt : = sqrt(b); end; function abs(a, b: real): real; begin   abs : = abs(a);   abs : = abs(b); end; function sin(a, b: real): real; begin   sin : = sin(a);   sin : = sin(b); end; function cos(a, b: real): real; begin   cos : = cos(a);   cos : = cos(b); end; function tan(a, b: real): real; begin   tan : = tan(a);   tan : = tan(b); end; function sqr(a, b: real): real; begin   sqr : = sqr(a);   sqr : = sqr(b); end; begin   writeln('a');   read(a);   writeln('b');   read(b);   writeln('1 - сложить');   writeln('2 - вычесть');   writeln('3 - разделить');   writeln('4 - умножить');   writeln('5 - корень');   writeln('6 - модуль');   writeln('7 - синус');   writeln('8 - косинус');   writeln('9 - тангенс');   writeln('10 - квадрат');   read(operation);   case operation of       1: writeln(summa(a, b));       2: writeln(raznost(a, b));       3: writeln(delenie(a, b));       4: writeln(proizved(a, b));       5: writeln(sqrt(a, b));       6: writeln(abs(a, b));       7: writeln(sin(a, b));       8: writeln(cos(a, b));       9: writeln(tan(a, b));       10: writeln(sqr(a, b));   end; end.
mooziviycom
mooziviycom
4,8(75 оценок)
1)нет 2)нет 3)да 4)нет 5)нет 6)да 7)да 8)да 9)да 10)да

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS