Текст программы на языке Фортран

Program Pr_29

Implicit none

real, parameter:: n = 4

real x, p, a(0:n) /2, 3, -1, 0, 5/

integer k

print *, ʹВведите х’

read *, x

p=a(0)

do k=1, n

p=p*x+a(k)

enddo

print *,ʹЗначение полинома = ’, p

end

Текст программы на языке Python

print("Введите значение параметра x: ")

x=float(input()) 

n = 4 # степень полинома

A = [2.0, 3, -1.0, 0, 5.0] # Инициализация списка

# коэффициентов полинома по заданию

P = A[0]

for i in range(1,n+1): # i = 1,..., n

P = P*x + A[i]

print("P({0}) = {1} ".format(x,P))

Текст программы в системе Матлаб

n=4;

A=[2 3 -1 0 5];

x=input(ʹВведите х’);

p=A(1);

for k=2:n+1

p=p*x+A(k);

end

disp(ʹЗначение полинома =’)

disp(p)

С использованием векторных операций

A=[2 3 -1 0 5];

x=input(ʹВведите х’);

p=polyval(A,x);

disp(ʹЗначение полинома =’)

disp(p)

 

Задача 30. Поиск максимального элемента в массиве

Условие задачи. Найти значение максимального элемента заданного массива.

В данной задаче исходные данные представлены массивом Х и его размером N. Результатом будет максимальный элемент массива Max.

Метод определения максимального элемента состоит в следующем: поиск начинается с первого элемента массива X [1]. Для этого значение первого элемента массива X [1]   запоминается в переменной Max. Она будет служить эталоном для сравнения с другими элементами массива. Далее в цикле просматриваются все элементы массива от второго до последнего, и значение каждого из них (X [ i ]), сравнивается со значением переменной Max. Если значение очередного элемента массива X [ i ]  больше, чем значение переменной Max, то в переменной Max запоминается значение этого большего элемента X [ i ], так как это значение будет максимальным среди уже проверенных элементов, затем переходим к следующему элементу массива. Сравнения будут продолжаться до тех пор, пока не будут проверены все элементы массива Х. По завершении работы цикла в переменной Max останется значение самого большого элемента из всех, его надо вывести на экран как результат.

Структурированная запись алгоритма 30

1. Ввести количество элементов массива N.

2. Повторять для i от 1 до N:

2.1. Ввод элементов массива Х [ i ].

3. Запомнить значение первого элемента в переменной Max= Х[1].

4. Повторять для i от 2 до N:

4.1. Если X [ i ] > М ax то выполнить

4.1.1 М ax= Х [ i ].

5. Вывести сообщение “Максимальный элемент массива =” и значение переменной М ax.

Схема алгоритма

Текст программы на языке Си

#include <stdio.h>

#define N 50

int main (void)

{

int n, i;

double x[N], max;

printf ("Введите количество элементов массива");

scanf ("%d", &n);

for (i=0; i<n; i++)

{

printf ("Введите элемент массива\n");

scanf ("%lf", &x[i]);

}

max=x[0];

for (i=1; i<n; i++)

if (x[i]>max)

   max=a[i];

printf ("max=%lf\n", max);

return 0;

}

 

Текст программы на языке Паскаль

Program Pr_30;

Var

x: array of real;

n,i:integer;

max:real;

begin

writeln(ʹВведите количество элементов’);

readln(n);

setlength(x,n);

writeln (ʹ Введите элементы массива’);

for i:=0 to n-1 do

readln(x[i]);

max:=x[0];

for i:=1 to n-1 do

if x[i]> max then max:=x[i];

writeln (ʹ Максимальный элемент =’, max);

x:=nil;

end.

Текст программы на языке Фортран

Program Pr_30

Implicit none

real, allocatable:: x(:), max

integer i, n

print *,’Введите количество элементов n’

read *, n

allocate (x(n))

print *,’ Введите элементы массива’

read *, (x(i), i=1,n)

max = x(1)

do i = 2, n

 if (x(i)>max) then

    max = x(i)

endif

enddo

print *,’max =’, max

deallocate (x)

end

Текст программы на языке Python

print("Введите число элементов массива")

print(" (если N<1 то N=50)")

N=int(input()) 

if N < 1:

N = 50

X = [] # Создаем пустой список

for i in range(N):

# i = 0,..., N-1 -- всего N

print("Введите {0}-й элемент: ".format(i+1))

X.append(float(input()))

Max = X[0]

for i in range(1,N):

# i = 1,..., N-1 -- всего N-1 сравнений 

if X[i] > Max:

    Max = X[i]

print("Максимальный элемент в массиве = ", Max)

Текст программы в системе Матлаб

N=input('Введите число элементов массива ');

disp('Введите элементы массива');

for i=1:N

disp(sprintf('x(%g)=',i))

x(i)= input(' ');

end

max=x(1);

for i=2:N

if x(i)>max

     max=x(i);

end  

end

disp(sprintf('Максимальный элем.=%4.1f',max))