7я лабораторная работа по информатике


Вариант №16
Составить программу для вычисления таблицы значений функции F(x)= для с шагом 0.05.
Составить программу для вычисления произведения .
Составить программу для вычисления элементов вектора Х по формуле:
Составить программу для вычисления величины S по формуле:.
Написать программу для решения следующей задачи: найти наименьший элемент конечной числовой последовательности, вывести его порядковый номер и значение.
1.
Program lab1;
Var i: integer;
x,f:real;
Begin
x:=0;
For i:=1 to 21 do
Begin
f:=(sqr(sin(x))*sin(x)+exp((1/3)*ln(sqr(x)+1)))/(2*ln(x+3));
Writeln('x= ', x,' y= ',f);
x:=x+0.05;
End;
End.
2.
Program lab2;
Var p:real;
i:integer;

Begin
p:=1;
For i:=1 to 10 do
p:=p*(1+exp(i));
Writeln('Произведение равно ',p);
End.
3.
Program lab3;
Var x:array[1..20] of real;
j:integer;
Begin
j:=1;
While j<4 do
Begin
Write('Ââåäèòå x(',j,'):');
Readln(x[j]);
If (x[j]=-1) or (x[j]=1) or (x[j]=0) then
Writeln('Значение аргумента равное ',x[j],' является недопустимым') else j:=j+1;
End;
For j:=4 to 20 do
Begin
x[j]:=cos(x[j-1])+sqr(sin(x[j-2]))+1/(ln(abs(x[j-3])));
Writeln('x(',j,')=',x[j]);
End;
End.
4.
Program Laba4;
Var x,y,Sx, Py, S:real;
i,n,m:integer;

Begin
Writeln('Введите значение n:');
Readln(n);
Writeln('Введите значение m:');
Readln(m);
Sx:=0;
Py:=1;
For i:=1 to n do
Begin
Writeln('Введите значение x(',i,'):');
Readln(x);
Sx:=Sx+sqr(sqr(sin(x)));
End;
For i:=1 to m do
Begin
Writeln('Введите значение y(',i,'):');
Readln(y);
Py:=Py*cos(sqr(y));
End;
S:=sqrt(Sx)+Py; Writeln('Значение выражения S=',S);
End.
5.
Program lab5;
Const n=1000;
Var x:array[1..n] of real;
i,k:integer;
min:real;
Begin
Write('Введите количество элементов в последовательности:');
Readln(k);
For i:=1 to k do
Begin
Write('Введите ',i,'-ый элемент последовательности:');
Readln(x[i]);
End;
min:=x[1];
For i:=2 to k do
If x[i]<min then min:=x[i];
Writeln('Наименьший элемент последовательности равен:',min);
End.

Приложенные файлы

  • docx 10272434
    Размер файла: 24 kB Загрузок: 0

Добавить комментарий