Вычислить и вывести на экран в виде таблицы значения функции - Pascal (247481)
Формулировка задачи:
Пожалуйста помогите написать код программы
Вычислить и вывести на экран в виде таблицы значения функции, задан-
ной с помощью ряда, на интервале от ХНАЧ до ХКОН с шагом dХ и точностью E .
Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать
значение аргумента, значение функции и количество просуммированных чле-
нов ряда.
2(x+((x^3)/3)+((x^5)/5)+....) , |x|<1
Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции»
textual
Листинг программы
uses crt; const n=5; type massiv=array [1..100,1..100] of integer; var mas:massiv; procedure vivod(var a:massiv); begin for var i:=1 to n do begin for var j:=1 to n do write(a[i,j]:5); writeln; end; end; procedure summa(a:massiv); var sum: integer; s:boolean; begin for var j:=1 to n do begin s:=true; for var i:=1 to n do if a[i,j]<0 then s:=false; if s=true then begin sum:=0; for var i:=1 to n do sum:=sum+a[i,j]; writeln('Сумма ',j,'-го столбца = ',sum); end; end; end; procedure minimym(var a:massiv); begin end; begin randomize; writeln('Исходный массив: '); for var i:=1 to n do for var j:=1 to n do mas[i,j]:=random(10)-1; vivod(mas); summa(mas); minimym(mas) end.
Объяснение кода листинга программы
- uses crt; - Импорт модуля CRT для работы с консолью
- const n=5; - Константа n, определяющая количество строк и столбцов в массиве
- type massiv=array [1..100,1..100] of integer; - Определение типа массива
- var mas:massiv; - Объявление переменной массива
- procedure vivod(var a:massiv); - Объявление процедуры вывода массива на экран
- for var i:=1 to n do - Внешний цикл для перебора строк
- for var j:=1 to n do - Внутренний цикл для перебора столбцов
- write(a[i,j]:5); - Вывод значения элемента массива на экран
- writeln; - Переход на новую строку
- end; - Конец процедуры вывода массива
- procedure summa(a:massiv); - Объявление процедуры вычисления суммы элементов массива
- var sum: integer; s:boolean; - Объявление переменных для хранения суммы и флага
- for var j:=1 to n do - Внешний цикл для перебора столбцов
- s:=true; - Инициализация флага значением true
- for var i:=1 to n do - Внутренний цикл для перебора строк
- if a[i,j]<0 then - Проверка на отрицательность элемента
- s:=false; - Если условие выполняется, то флаг меняется на false
- if s=true then - Если флаг равен true
- sum:=0; - Инициализация суммы значением 0
- for var i:=1 to n do - Внутренний цикл для перебора строк
- sum:=sum+a[i,j]; - Вычисление суммы элементов столбца
- writeln('Сумма ',j,'-го столбца = ',sum); - Вывод суммы на экран
- end; - Конец процедуры вычисления суммы
- procedure minimym(var a:massiv); - Объявление процедуры поиска минимального элемента массива
- begin - Начало процедуры
- end; - Конец процедуры поиска минимального элемента
- begin - Начало главного блока программы
- randomize; - Инициализация генератора случайных чисел
- writeln('Исходный массив: '); - Вывод заголовка
- for var i:=1 to n do - Внешний цикл для перебора строк
- for var j:=1 to n do - Внутренний цикл для перебора столбцов
- mas[i,j]:=random(10)-1; - Заполнение массива случайными числами от -1 до 9
- vivod(mas); - Вызов процедуры вывода массива на экран
- summa(mas); - Вызов процедуры вычисления суммы элементов массива
- minimym(mas); - Вызов процедуры поиска минимального элемента массива
- end. - Конец программы