Вычислить произведение - Pascal ABC (14089)
Формулировка задачи:
Уже весь мозг сморщил, не могу понять правильно сделал или нет=( Вузовский курс программирования уже напрочь из головы вылетел=(
То что у меня получилось:
Решение задачи: «Вычислить произведение»
textual
Листинг программы
uses crt; var a,b:array[1..15] of real; m,n,i,imax:integer; max,s: real; begin repeat write('введите кол-во элементов массива от 1 до 15 n='); readln(n); until n in [1..15]; m:=n; s:=1; writeln ('Массив А'); for i:=1 to n do begin a[i]:=sin(i); write (a[i]:8:3); end; writeln; writeln ('Массив В'); for i:=1 to m do begin b[i]:=cos(pi+i); write (b[i]:8:3); end; writeln; s:=1; for i:=1 to n do s:=s*(a[i]+b[n-i+1]); writeln ('Произведение = ',s:0:3); max:=a[1]; imax:=1; for i:=2 to n do if a[i]>= max then begin max:=a[i]; imax:=i; end; writeln('Максимальный элемент массива А=',max:0:3,' номер=',imax); end.
Объяснение кода листинга программы
- Используется библиотека crt, которая обеспечивает функции ввода-вывода.
- Объявлены переменные a, b:array[1..15] of real; и m, n, i, imax:integer;. Переменная max устанавливается равной первому элементу массива a, а переменная s устанавливается равной 1.
- Запускается цикл repeat, который продолжается до тех пор, пока введенное число n не будет находиться в диапазоне от 1 до 15.
- Переменная m устанавливается равной n.
- Запускается цикл for, который проходит по каждому элементу массива a от 1 до n. Внутри цикла вычисляется значение a[i] с помощью функции sin(i). Значение a[i] выводится на экран.
- После завершения цикла for, переменная s устанавливается равной произведению суммы всех элементов массива a и b[n-i+1].
- Запускается цикл for, который проходит по каждому элементу массива b от 1 до m. Внутри цикла вычисляется значение b[i] с помощью функции cos(pi+i). Значение b[i] выводится на экран.
- После завершения цикла for, выводится значение переменной s.
- Запускается цикл for, который проходит по каждому элементу массива a от 1 до n. Внутри цикла вычисляется максимальное значение a[i] с помощью функции max(a[i], max). Если a[i] больше max, то max и imax обновляются.
- После завершения цикла for, выводится значение максимального элемента массива a и его номер.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д