WTFHELP

21.10.2020 09:28

Информатика

Есть ответ 👍

Написать программу на pascal. вычислить произведение множества значений функции y= 2a+7 / 3a-2 при изменяющихся a 6, 7, 7 .. 18.

146

256

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

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

HelpMePzhalsta

Информатика

4,7(85 оценок)

program znanija_com_task_32583491;

var proizv: real;

i: integer;

function y(a: integer): real;

begin

y: =(2*a+7)/(3*a-2)

end; {function y}

begin

proizv: =y(6)*y(7);

for i: =7 to 18 do

begin

proizv: =proizv*y(i);

end; {for i}

write('proizvedenie mnozhestva znachenij funkcii y = ',proizv)

end.

{

как я понял , во-первых, функция это дробь с числителем 2a+7, а знаменатель 3а-2. если всё-таки дробный коэффициент перед вторым слагаемым это легко меняется в теле функции.

также, мне кажется, что счетчик цикла 7..18 - это 1. то есть, только функция от натурального аргуента. в принципе тоже легко меняется уже в главной программе.

а дальше уже произведение рассчет самого главного: y(6) * y(7) * y(7) * y(8) * * y(16).

}

котик963

Информатика

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

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i: integer;

begin

for i: =1 to n do

writeln('ваше имя');

end.

пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). ещё хочу отметить, что имя вводится по- и нельзя терять апострофы ( ' ).

2. program sum;

var sum: integer;

m: array[1..4] of integer;

i: integer;

begin

m[1]: =6

for i: =2 to 4 do begin

m[i]: =m[i-1]+1;

end;

sum: =m[1];

for i: =2 to 4 do begin

sum: =sum+m[i];

end;

writeln(sum);

end.

пояснения: можно было делать и по-другому, но так тоже верно. тут использовалось два цикла и массив. а блок-схему сами

3. program n! ;

var n: real;

c: integer;

m: array[1..n] of integer;

begin

readln(n)

m[1]: =1;

for i: =2 to n do begin

m[i]: =m[i-1]+1;

end;

c: =m[1]

for i: =1 to n do begin

c: =c*m[i];

end;

writeln('n! ',c);

end.

если что не понятно, пишите, объясню

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

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

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

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

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

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

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

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

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

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