Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
17 / 43 / 5
Регистрация: 26.10.2010
Сообщений: 447
1

Написать программу по структурной схеме:

08.06.2011, 22:25. Показов 1332. Ответов 1
Метки нет (Все метки)

Вот схема:
Написать программу по структурной схеме:

Вот моя формула:
Написать программу по структурной схеме:


Помогите пожалуйста, буду очень благодарен!
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2011, 22:25
Ответы с готовыми решениями:

Составить прогу по структурной схеме
Найти сумму ряда с точностью е.Значение х произвольное и задается с клавиатуры или описывается в...

Написать программу по блок-схеме
по блок схеме, и задание внутри? помогите

Написать программу по блок схеме
написать программу по блок схеме (не испльзовать булевы операции OR,AND)

Написать программу по блок-схеме
помогите плиз решить 4,5,6 задание.???? блок схему сделал сам)

1
17 / 43 / 5
Регистрация: 26.10.2010
Сообщений: 447
09.06.2011, 01:40  [ТС] 2
Лучший ответ Сообщение было отмечено Сидоренко как решение

Решение

Посмотрите пожалуйста:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program Rostik;
const
 n:=1;
 Label m;
 Var
   x,eps,a,b,c,d,rez,s:real;
   n:byte
 Begin
   Writeln('Vvedite x,eps');
   readln(x,eps);
   n:=0;
   s:=0;
   a:=(a*n-1*(-1*exp(x)));
   b:=(b-1*cos(x));
   c:=(c*n-1*exp(x));
   d:=(d-1*(n+2));
   rez:=((a*b)/(c+d));
 m:  if (abs(rez)<eps) then
   Writeln('summa = ',s)
   else Begin
   s:=s+rez;
   a:=(a*n-1*(-1*exp(x)));
   b:=(b-1*cos(x));
   c:=(c*n-1*exp(x));
   d:=(d-1*(n+2));
   goto m; End;
 
 readln;
 End.
Добавлено через 13 минут
вот еще новее версия:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Program Rostik;
const
 n:=1;
 Label m;
 Var
   x,eps,a,b,c,d,rez,s:real;
   n:byte
 Begin
   Writeln('Vvedite x,eps');
   readln(x,eps);
   n:=0;
   s:=0;
   a*n:=(a*n-1*(-1*exp(x)));
   b*n:=(b-1*cos(x));
   c*n:=(c*n-1*exp(x));
   d*n:=(d-1*(n+2));
   rez:=((a*b)/(c+d));
 m:  if (abs(rez)<eps) then
   Writeln('summa = ',s)
   else Begin
   s*n:=s+rez;
   a*n:=(a*n-1*(-1*exp(x)));
   b*n:=(b-1*cos(x));
   c*n:=(c*n-1*exp(x));
   d*n:=(d-1*(n+2));
   n:=n++;
   goto m; End;
 
 readln;
 End.
Добавлено через 2 часа 10 минут
Вот что у меня вышло, только она все равно работает неправильно((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program alfa_1;
uses crt;
Var x,a,b,c,d,eps,s,rez:real;
  n:integer;
 Begin
   Writeln(' Vvedite x,eps');
   Readln(x,eps);
  n:=1; S:=0;
   While (x>eps) do
      Begin
       rez:=(((rez*n-1*(-1*exp(x)))*(rez-1*cos(x)))/((rez*n-1*exp(x))+(rez-1*(n+2))));
       S:=S+rez;
       n:=n+1;
      end;
     Writeln(' summa = ', S);
    readln;
  End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2011, 01:40

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу по блок-схеме
Вот моя задача, по которой нужно создать алгоритм задачи.. Я написал(а), но, не могу понять, что...

Написать программу по блок-схеме
Написать по блок-схеме. Заранее благодарю

Написать программу по блок-схеме
Напишите пожалуйста, заранее спасибо

Написать программу по блок-схеме
по блок схеме, и задание внутри? помогите


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.