Программирование циклических вычислительных процессов

Практическая работа по предмету «Программирование»
Информация о работе
  • Тема: Программирование циклических вычислительных процессов
  • Количество скачиваний: 13
  • Тип: Практическая работа
  • Предмет: Программирование
  • Количество страниц: 9
  • Язык работы: Русский язык
  • Дата загрузки: 2014-10-23 07:30:21
  • Размер файла: 433.25 кб
Помогла работа? Поделись ссылкой
Ссылка на страницу (выберите нужный вариант)
  • Программирование циклических вычислительных процессов [Электронный ресурс]. – URL: https://www.sesiya.ru/prakticheskaya-rabota/programmirovanie/programmirovanie-ciklicheskih-vychislitelnyh-processov/ (дата обращения: 28.07.2021).
  • Программирование циклических вычислительных процессов // https://www.sesiya.ru/prakticheskaya-rabota/programmirovanie/programmirovanie-ciklicheskih-vychislitelnyh-processov/.
Есть ненужная работа?

Добавь её на сайт, помоги студентам и школьникам выполнять работы самостоятельно

добавить работу
Обратиться за помощью в подготовке работы

Заполнение формы не обязывает Вас к заказу

Информация о документе

Документ предоставляется как есть, мы не несем ответственности, за правильность представленной в нём информации. Используя информацию для подготовки своей работы необходимо помнить, что текст работы может быть устаревшим, работа может не пройти проверку на заимствования.

Если Вы являетесь автором текста представленного на данной странице и не хотите чтобы он был размешён на нашем сайте напишите об этом перейдя по ссылке: «Правообладателям»

Можно ли скачать документ с работой

Да, скачать документ можно бесплатно, без регистрации перейдя по ссылке:

Язык программирования Delphi.

Программирование циклических вычислительных процессов.
Необходимо разработать работоспособную программу по заданному варианту.
Все переменные должны вводиться с клавиатуры.
1.

2.
var
x1,x2,x,kol:integer;
t,a,sum,proiz:real;
begin
Writeln(vvedite x1);
Readln(x1);
Writeln(vvedite x2);
Readln(x2);
Writeln(vvedite a);
Readln(a);
proiz:=1;
sum:=0;
kol:=0;
for x:=x1 to x2 do
begin
t:=sqrt(Sqrt((a+x)/(a-x))+sqrt((a*x)/(a+x)));
writeln(t,x,=,t:0:2);
if t>2 then
begin
proiz:=proiz*t;
kol:=kol+1;
end
else
sum:=sum+t
end;
writeln(summa ravna= ,sum:0:2);
Writeln(proizvedenie ravno= ,proiz:0:2);
writeln(kolichestvo chlenov= ,kol);
Readln;
readln;
end.

3.

Рисунок 1 к заданию 1.12
1.

2.
function fact(n: integer):integer;
var f,i: integer;
begin
f:=1;
for i:=1 to n do f:=f*i;
fact:=f;
end;
var
y,x,j:real;
l,kol,num:Integer;
begin
Writeln(vvedite j);
Readln(j);
writeln(vvedite x);
Readln(x);
kol:=0;
y:=0;
l:=0;
num:=1;
repeat
begin
l:=l+2;
y:=Exp(l*ln(x))/fact(l)+y;
if y<j then
kol:=kol+1;
Writeln(y,num,= ,(y+1):0:2);
num:=num+1;
end;
until y>=j ;
writeln(kolichestvo= ,kol);
readln;
end.
3.

Рисунок 2 к заданию 2.12



1. Дано: а=5; dа=-0.5. Z вычислять по формуле: Z = ln(1+0.8*a)*cos(a). Считать Z до тех пор, пока выражение под знаком логарифма больше 0. Определить k – количество вычисленных Z. Вывести на экран a, Z, k.
2.
var
kol:Integer;
a,z,t:real;
begin
z:=0;
kol:=0;
t:=1;
a:=5;
repeat
begin
t:=(1+0.8*a);
if t<0 then break;
z:=ln(t)*cos(a);
a:=a-0.5;
kol:=kol+1;
end;
until t<0 ;
writeln(t= ,t:0:2);
writeln(z= ,z:0:2);
writeln(kolichestvo= ,kol);
readln;
readln;
end.
3.

Рисунок 3 к заданию 1.52

1. Получить вектор X=(x1,x2,…xk), каждый элемент которого равен сумме элементов соответствующей строки заданной матрицы Y(k,l).
2. Var
a:array[1..15,1..15] of Integer;
i,j,k,l,p,c:integer;
e:array[1..100] of integer;
label metka;
begin
Writeln(vvedite kolichestvo strok);
Readln(k);
writeln(vvedite kolichestvo stolbcov);
readln(l);
Randomize;
for i:=1 to k do
for j:=1 to l do
begin
a[i,j]:=Random(10);
end;
for i:=1 to k do
begin
for j:=1 to l do
write((a[i,j]):4, );
writeln;
end;
metka:
c:=c+1;
p:=p+1;
Writeln;
for j:=1 to l do
begin
e[p]:=a[c,j]+e[c];
end;
if c<> l then goto metka;
write(Massiv raven: ();
for i:=1 to l do
write(e[i],,);
write(#08);
write());
readln;
end.
3.

Рисунок 4 к заданию 2.12



1.

2. var
a:array[1..15,1..15] of Integer;
i,j,n:integer;
begin
Writeln(vvedite razmer);
Readln(n);
Randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=Random(10);
end;
for i:=1 to n do
begin
for j:=1 to n do
write((a[i,j]):4, );
writeln;
end;
Writeln;
for i:=n downto 1 do
begin
for j:=n downto 1 do
write((a[i,j]):4, );
writeln;
end;
readln;
end.
3. Таблица




1.