Задание 6
Дано целое число n [1;5], вычислить L, используя CASE:
Алгоритм решения задачи
Результаты.
-
2,12
-
2
-
0,54
-
149,01
Вывод: Я научился работать с оператором вывода.
Листинг программы
var L:real;
n:integer;
BEGIN
write('vedite chislo n');
readln(n);
case n of
1..3:L:=sqrt(n*n/(n-1));
2:L:=(sin(n-2)/cos(n-2));
4:L:=arctan((n-1)/(n+1));
else
L:=(sin(n/2)+exp(n))
end;
writeln('L=',L:6:2);
readln
END.
Задание 7
Найти сумму ряда с точностью e= 0,01, общий член которого
Алгоритм решения задачи
Результаты.
an= 0.0357143
an= 0.0142857
an= 0.0076923
s= 0.3076923
Вывод: Я научился работать с циклами.
Листинг программы
const e=0.01;
var an,n,s:real;
BEGIN
n:=1;
an:=1/((3*n-2)*(3*n+1));
s:=an;
while abs(an)>e
do begin
n:=n+1;
an:=1/((3*n-2)*(3*n+1));
s:=s+an;
writeln('an=',an:10:7);
end;
writeln ('s=',s:10:7);
readln
END.
Задание 8
Дано целое число n . Вычислить:
Алгоритм решения задачи
Результат
Исходные данные:
n=1
Результат:
S= 1.19
Вывод
В процессе выполнения данной лабораторной работы я
Научился работать с итерационными циклами, научился решать с помощью них задачи приближенных вычислений.
Листинг программы
var i,n :integer;
s:real;
BEGIN
n:=1;
s:= 0;
FOR i:=1 to n do
s:=s+(i/sin(i));
writeln('s=',s:6:2);
readln
END.
Задание 9
Вычислить
Алгоритм решения задачи
Результаты
Результат:
s=2943.57
Вывод
В данной лабораторной работе я повторил цикл со счетчиком и использовал вложенные циклы для решения поставленной задачи.
Листинг программы
var i,j:integer;
s,p:real;
BEGIN
s:=0;
For i:=1 to 20 do
begin
p:=0;
for j:=1 to 15 do
p:= p+ (i/(i+j*j));
P:=p+i*i;
writeln ('p=',p:6:4);
s:=s+p;
end;
writeln ('s=', s:6:4);
readln
END.
Задание 10
Дан массив X . Найти элемент , квадрат которого имеет максимальное значение .
Алгоритм решения задачи
m[i]:=Random*2*i (50)
s:=0
s:=s+a[i]
sr:=S/30
k:=0
нет
да
k:=k+1
Результаты
Вывод
В процессе работы над данной лабораторной работой я изучил массивы и научился применять их для решения необходимых задач.
Листинг программы
const n=10;
var m:array[1..n] of real;
max,imax:real;
i:integer;
BEGIN
randomize;
writeln {'sozdanie massiva'};
for i:=1 to n do
begin
m[i]:=random*2*i-5;
write (m[i]:6:2)
end;
max:=m[1]*m[1];
for i:=1 to n do
if (m[i]*m[i]>max) then
begin
imax:=i;
end;
writeln;
writeln(imax:2:1);
readln;
END.
Задание 11
Дан массив X . Найти два элемента модуль разности которых имеет наименьшее значение .
Алгоритм решения задачи
Результаты
Вывод
Листинг программы
uses crt;
var m:array[1..100] of integer;
i:integer;
md,jmin, imin,j,l,d,n,z,t:integer;
BEGIN
clrscr;
readln(n);
randomize;
writeln('sozdanie massiva');
for i:=1 to n do
begin
m[i]:=random(78);
writeln (m[i]);
end;
md:=abs(m[2]-m[1]);
imin:=m[1];
jmin:=m[2];
for i:=1 to n-1 do
begin
for j:=I+1 to n do
begin
if(abs(m[j]-m[i])<md) then
begin md:=abs(m[j]-m[i]);
imin:=m[i];
jmin:=m[j];
end;
end;
end;
writeln('Modul raven=',md);
writeln;
writeln(imin, ' ',jmin);
readln; end
Задание 11
Дана последовательность символов латинского алфавита , заканчивающейся точкой . Известно , что среди этих символов есть хотя бы одна запятая .
Указать номер запятой за которой следует буква «а»
Алгоритм решения задачи
Результаты
Вывод
Листинг программы
var
st:string;
i,k,n,l:integer;
BEGIN
writeln('enter stroka');
readln(st);
n:=length(st);
k:=0;
l:=0;
for i:=1 to n do
begin
if st[i]=',' then
begin
k:=k+1;
end;
if (st[i]=',') and (st[i+1]='a') then
l:=l+1;
end;
if l>1then
k:=k-l+1;
writeln(k);
readln;
END.