Решить . по паскалю 1. а) вычисления значения функции у = 7х2 - 3х + 6 при любом значении х; б) вычисления значения функции х = 12а2 + 7а — 16 при любом значении а. 2. даны катеты прямоугольного треугольника. найти его гипотенузу

213

464

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

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

leonleontiev6

Информатика

4,5(59 оценок)

vary,x: real; beginread(x); y: =7*sqr(x) - 3*x +6; writeln(y); end.

б)

vary,a: real; beginread(a); y: =12*sqr(a) + 7*a - 16; writeln(y); end.

varb,a,g: real; beginreadln(a); readln(b); g: =sqrt(a*a + b*b); writeln(g); end.

video252

Информатика

4,4(54 оценок)

Вот код, написанный в среде pascalabc.net 3.2 и проверенный в среде free pascal (fpc): const n=14; var a,b,c: array[1..n] of integer; i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(199)-99; // [-99; 99] write(a[i],' '); b[i]: =random(199)-99; // [-99; 99] end; writeln; for i: =1 to n do write(b[i],' '); writeln; for i: =1 to n do begin c[i]: =a[i]*b[n+1-i]; write(c[i],' ') end; writeln end. пример 70 92 -92 19 -33 8 10 -37 -87 51 -29 -4 -3 25 20 -69 7 -36 -91 -74 -38 -16 49 -46 93 0 -73 40 2800 -6716 0 1767 1518 392 -160 1406 6438 -4641 1044 -28 207 500 в качестве бонуса и вопроса "в воздух" - та же самая программа, написанная с учетом современных возможностей pascalabc.net 3.2 begin var a: =arrrandom(14,-99,99); a.println; var b: =arrrandom(14,-99,99); b.println; var c: =a.zip(b.reverse,(x,y)-> x*y).toarray; c.println end. и обещанный вопрос: если паскаль, как система программирования, в настоящее время используется только в целях обучения (следовательно, критерий "fpc шире распространен" отпадает), то зачем учиться на давным-давно устаревшей версии? чтобы писать было сложнее, больше и допускать при этом больше ошибок?

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

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

Задай свой вопрос

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

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

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

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

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

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

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