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

{Это пример простой циклической программы с двумя циклами, в которой для решения поставленной задачи организованы циклы с параметром и заранее известным числом повторений, с использованием специального оператора цикла (повтора) For … do …}

Program massiv;

uses crt;

var x:array[1..30] of real; {описание массива х}

n,i: integer; a,b,c,y: real; {описание простых переменных}

BEGIN clrscr;

write('Введите колич. элементов массива n = ');

readln(n);

writeln('Введите значения эл-тов массива через пробел');

for i:=1 to n do read(x[i]); readln;

writeln('Массив в памяти организован');

for i:=1 to n do

begin a:=x[i];

if (a<>0) and (cos(2*a)<>0) then

begin

b:=a*a+2*a*sin(a)+sin(a)/cos(a);

if b<>0 then

begin

c:=a*a*exp(-sin(a))+ln(abs(a));

if c<>0 then c:=c/abs(c)*exp(ln(abs(c))/7);

y:=(exp(a*ln(2))+c)/b;

writeln('x=', a:6:2, ' y=', y:10:3)

end

end

else

writeln('х=', a:6:2, ' решение не существует');

end;

End.

Протокол работы программы

Введите колич. элементов массива n = 4

Введите значения эл-тов массива через пробел

3 0 -1 0.5

Массив в памяти организован

x= 3.00 y= 0.965

x= 0.00 решение не существует

x= -1.00 y=1.446

x= 0.50 y=0.391

Ниже приводится задание на выполнение работы вместе с таблицей вариантов расчетных формул.

ОРГАНИЗАЦИЯ ОДНОМЕРНЫХ МАССИВОВ И ИХ ИСПОЛЬЗОВАНИЕ

В ЦИКЛИЧЕСКИХ ПРОГРАММАХ

Цель:

Освоить программную организацию массива в памяти ЭВМ и его использование в циклических программах.

Не нашли, что искали? Воспользуйтесь поиском: