Turbo Pascal
Автор: essg212 • Декабрь 9, 2023 • Лабораторная работа • 754 Слов (4 Страниц) • 104 Просмотры
Министерство науки и высшего образования Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Отчетная работа по теме: Turbo Pascal.
Выполнил: студент гр. ГМНГ-19-1с Карпин С.П. Проверил: ст.препод. каф. ГЭМ |
Чалов И.А |
[pic 1] |
program zadanie3;
var a,b,x,y,z:real;
begin
x:=1.426;
y:=1.220;
z:=3.5;
a:=(2*cos(x-pi/6))/(0.5+sqr(sin(y)));
b:=(1+sqr(z))/(3+sqr(z)/5);
writeln('a=',a);
writeln('b=',b);
end.
[pic 2]
[pic 3]
[pic 4]
var a,b,n:real;
begin
read(a,b);
if sqr(a)>sqr(b) then
write('n=1')
else write('n=2');
end.
[pic 5]
[pic 6]
[pic 7]
program zadanie5;
var x,y,x1,a: real; b:integer;
begin
b:=2;
a:=-0.5;
x:=0;
x1:=0.15;
while x<=3 do
begin
if x<1 then
begin
y:=1;
writeln('y2=',y,' x2=',x);
end;
if (x>=1) and (x<=2) then
begin
y:=a*x*x*ln(x);
writeln('y1=',y,' x1=',x);
end;
if x<1.3 then
begin
y:=pi*(x*x)-7/(x*x);
writeln('y4=',y,' x4=',x);
end;
if x>2 then
begin
y:=Exp(x*a)*cos(b*x);
writeln('y3=',y,' x3=',x);
end;
x:=x+x1;
end;
end.
[pic 8]
[pic 9]
[pic 10][pic 11][pic 12]
var t1,x1,y,a,x,t:real;
begin
a:=-2.1;
x:=1;
x1:=0.2;
t:=2;
t1:=0.2;
while (x<=2) and (t<=3) do
begin
y:= sqrt(t+1)*EXP(-a*x*t)*cos(t-a);
t:=t+t1;
writeln('При x=',x,' и t=',t-t1,' y=',y);
x:=x+x1;
end;
y:= sqrt(t+1)*EXP(-a*x*t)*cos(t-a);
t:=t+t1;
writeln('При x=',x,' и t=',t-t1,' y=',y);
x:=x+x1;
end.
[pic 13]
[pic 14]
[pic 15]
[pic 16]
var i,k: integer; s,z: real;
begin
s:= 0;
z:=1;
for i := 1 to 7 do
begin
s:= s + (-1)**(i+1)/(i*(i+1)*(i+2));
writeln('При i=',i, ' Сумма ряда = ',s);
end;
for i := 1 to 7 do
begin
z:= z*(-1)**(i+1)/(i*(i+1));
writeln('При i=',i, ' Произведение = ',z);
end;
writeln('Сумма = ', s:0:10);
writeln('Произведение = ', z:0:10);
end.
[pic 17]
[pic 18]
[pic 19]
[pic 20]
var x, y, max,maxX: real;
begin
max :=0;
maxX:=0;
x := 0;
while x <= 2 do
begin
y := 2+x-sqr(x);
if y > max then
begin
max:=y;
maxX:=x;
end;
writeln('Промежуточное значение y=',y,' x=',x);
x := x + 0.25;
end;
writeln('Наибольшее значение функции= ', max);
writeln('Наибольшее значение аргумента= ', maxX);
end.
[pic 21]
[pic 22]
[pic 23][pic 24]
program zadanie9;
const
SIZE = 5; // размер массива
...