Вычислить и вывести на экран в виде таблицы значения функции - 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.

Объяснение кода листинга программы

  1. uses crt; - Импорт модуля CRT для работы с консолью
  2. const n=5; - Константа n, определяющая количество строк и столбцов в массиве
  3. type massiv=array [1..100,1..100] of integer; - Определение типа массива
  4. var mas:massiv; - Объявление переменной массива
  5. procedure vivod(var a:massiv); - Объявление процедуры вывода массива на экран
  6. for var i:=1 to n do - Внешний цикл для перебора строк
  7. for var j:=1 to n do - Внутренний цикл для перебора столбцов
  8. write(a[i,j]:5); - Вывод значения элемента массива на экран
  9. writeln; - Переход на новую строку
  10. end; - Конец процедуры вывода массива
  11. procedure summa(a:massiv); - Объявление процедуры вычисления суммы элементов массива
  12. var sum: integer; s:boolean; - Объявление переменных для хранения суммы и флага
  13. for var j:=1 to n do - Внешний цикл для перебора столбцов
  14. s:=true; - Инициализация флага значением true
  15. for var i:=1 to n do - Внутренний цикл для перебора строк
  16. if a[i,j]<0 then - Проверка на отрицательность элемента
  17. s:=false; - Если условие выполняется, то флаг меняется на false
  18. if s=true then - Если флаг равен true
  19. sum:=0; - Инициализация суммы значением 0
  20. for var i:=1 to n do - Внутренний цикл для перебора строк
  21. sum:=sum+a[i,j]; - Вычисление суммы элементов столбца
  22. writeln('Сумма ',j,'-го столбца = ',sum); - Вывод суммы на экран
  23. end; - Конец процедуры вычисления суммы
  24. procedure minimym(var a:massiv); - Объявление процедуры поиска минимального элемента массива
  25. begin - Начало процедуры
  26. end; - Конец процедуры поиска минимального элемента
  27. begin - Начало главного блока программы
  28. randomize; - Инициализация генератора случайных чисел
  29. writeln('Исходный массив: '); - Вывод заголовка
  30. for var i:=1 to n do - Внешний цикл для перебора строк
  31. for var j:=1 to n do - Внутренний цикл для перебора столбцов
  32. mas[i,j]:=random(10)-1; - Заполнение массива случайными числами от -1 до 9
  33. vivod(mas); - Вызов процедуры вывода массива на экран
  34. summa(mas); - Вызов процедуры вычисления суммы элементов массива
  35. minimym(mas); - Вызов процедуры поиска минимального элемента массива
  36. end. - Конец программы

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы