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

Практическая работа по предмету «Программирование»
Информация о работе
  • Тема: Программирование циклических вычислительных процессов
  • Количество скачиваний: 14
  • Тип: Практическая работа
  • Предмет: Программирование
  • Количество страниц: 9
  • Язык работы: Русский язык
  • Дата загрузки: 2014-10-23 07:30:21
  • Размер файла: 433.25 кб
Помогла работа? Поделись ссылкой
Узнать стоимость учебной работы online!
  • Тип работы
  • Часть диплома
  • Дипломная работа
  • Курсовая работа
  • Контрольная работа
  • Решение задач
  • Реферат
  • Научно - исследовательская работа
  • Отчет по практике
  • Ответы на билеты
  • Тест/экзамен online
  • Монография
  • Эссе
  • Доклад
  • Компьютерный набор текста
  • Компьютерный чертеж
  • Рецензия
  • Перевод
  • Репетитор
  • Бизнес-план
  • Конспекты
  • Проверка качества
  • Экзамен на сайте
  • Аспирантский реферат
  • Магистерская работа
  • Научная статья
  • Научный труд
  • Техническая редакция текста
  • Чертеж от руки
  • Диаграммы, таблицы
  • Презентация к защите
  • Тезисный план
  • Речь к диплому
  • Доработка заказа клиента
  • Отзыв на диплом
  • Публикация статьи в ВАК
  • Публикация статьи в Scopus
  • Дипломная работа MBA
  • Повышение оригинальности
  • Копирайтинг
  • Другое
Узнать стоимость
Информация о документе

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

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

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

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

Язык программирования 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.