Текст программы (Все готовые лабы по паскалю)
Описание файла
Файл "Текст программы" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 6 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "Текст программы"
Текст из документа "Текст программы"
-
Текст программы:
type mas=array[1..10] of real;
var
s,t,a,b:real;z,c:real;n,m,l:mas;
i:byte;
function f(x,y:real):real;
begin
f:=(sqrt(x*y)/(sqrt(sqr(x)+2*x*y+y)));
end;
function p(i:integer):real;
begin
if i=1 then p:=sqrt(2)
else p:=(p(i-1)+2*p(i-1))/(z)
end;
function H(i:integer):real;
begin
if i=1 then H:=cos(2)
else H:=(H(i-1)+sqr(H(i-1)))/(z)
end;
procedure zad (t:byte; var mt:mas);
begin
for i:=1 to t do
mt[i]:=random(20)
end;
procedure vivod (t:byte;mt:mas);
begin
for i:=1 to t do
write (mt[i]:4:0);
writeln;
end;
procedure preob (t:byte;s:real;var mt:mas);
begin
for i:=1 to t do
if mt[i] >0 then mt[i]:=mt[i]/s;
end;
begin
write('s=');
readln(s);
write('t=');
readln(t);
a:=f(s+sqr(t),t)+f(s,t);
b:=(f(s+5,t+5)/(t+s))+f(s,t);
writeln(a,b);
begin
write('z=');
readln(z);
c:=sqr(p(4))/H(4);
writeln(c);
end;
begin
randomize;
writeln('zadat znachenie a,b,c');
read(a,b,c);
zad(9,n);
writeln('isxodnaia posledovatelnost n');
vivod(9,n);
preob(9,a,n);
writeln('preobraz n');
vivod(9,n);
zad(10,m);
writeln('isxodnaia posledovatelnost m');
vivod(10,m);
preob(10,b,m);
writeln('preobraz m');
vivod(10,m);
zad(8,l);
writeln('isxodnaia posledovatelnost l');
vivod(8,l);
preob(8,c,l);
writeln('preobraz l');
vivod(8,l);
readln;
end;
readln;
end.