Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 1
Регистрация: 17.12.2012
Сообщений: 29
1

Составить блок схему к готовому коду

18.01.2013, 19:47. Просмотров 347. Ответов 7
Метки нет (Все метки)

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
31
32
33
34
35
36
37
38
39
40
41
42
CONST
 Eps=0.0001;
VAR
 Xbeg,Xfin,DX,SUM,X:REAL;
 N:word;
 Nx,i:INTEGER;
 
PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD);
 VAR
   a:REAL;
 Begin
   a:=1;
   S:=1;
   Ns:=0;
   Repeat
    Inc(Ns);
    a:=-a*SQR(Xs)/Ns;
    S:=S+a;
   Until Abs(a)<Eps;
 End;
 
BEGIN
 Write('Xbeg= ');
 ReadLn(Xbeg);
 Write('Xfin= ');
 ReadLn(Xfin);
 Write('DX= ');
 ReadLn(DX);
 WriteLn;
 WriteLn('         Results of calculation:');
 WriteLn('    X          SUM         N   Exp(-Sqr(X))');
 WriteLn;
 Nx:=ROUND((Xfin-Xbeg)/DX);
 X:=Xbeg;
 For i:=0 to Nx do
  begin
   X:=Xbeg+DX*i;
   SUMS(X,SUM,N);
   Writeln(X:8:5,'     ',SUM:7:5,'     ',N:3,'     ',Exp(-SQR(X)):7:5);
  end;
 ReadLn;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2013, 19:47
Ответы с готовыми решениями:

Составить блок схему к готовому коду
Нужна блок-схема по этой программе: Program lab6; Uses CRT; type massiv=array of integer; var...

Составить блок схему к готовому коду
program Proc4; var A,P,S,B,C:real; Procedure TrianglePS(a:real; var P,S:real); begin P:=3*a;...

Составить блок схему к готовому коду
program Matrix4; var Pro,j,i,M,N:integer; a: array of integer; begin // Ввод данных...

Составить блок схему к готовому коду
var n: integer; begin write('n? '); read(n); if (n mod 3) = 0 then repeat ...

7
14 / 14 / 1
Регистрация: 21.09.2012
Сообщений: 103
18.01.2013, 23:41 2
Вот ещё
1
Миниатюры
Составить блок схему к готовому коду  
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
19.01.2013, 09:17 3
Pheno, картинки прикрепляйте к сообщению (расширенный режим, верхний ряд кнопок, значок скрепки).
0
14 / 14 / 1
Регистрация: 21.09.2012
Сообщений: 103
19.01.2013, 15:16 4
ermolay,да,я понял,что в расширенном,но он не удобен т.к. не видно,отписали или нет,а почему прикрепление не добавлено в быстрый ответ??
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
19.01.2013, 15:58 5
Цитата Сообщение от Pheno Посмотреть сообщение
а почему прикрепление не добавлено в быстрый ответ??
не знаю, не удобен, согласен. Но зато при прикреплении файла на форуме будет удобно всем желающим посмотреть вложение.. И таковы правила форума..
0
14 / 14 / 1
Регистрация: 21.09.2012
Сообщений: 103
19.01.2013, 16:16 6
Цитата Сообщение от ermolay Посмотреть сообщение
Но зато при прикреплении файла на форуме будет удобно всем желающим посмотреть вложение.. И таковы правила форума..
Согласен,что хранилище для сайта самое оно,а куда можно посылать пожелания и предложения по развитию форума??Если вообще можно??))
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
19.01.2013, 16:22 7
Цитата Сообщение от Pheno Посмотреть сообщение
куда можно посылать пожелания и предложения по развитию форума?
вот сюда можно..
https://www.cyberforum.ru/abou... 35160.html
0
14 / 14 / 1
Регистрация: 21.09.2012
Сообщений: 103
19.01.2013, 16:28 8
ermolay,thx
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2013, 16:28

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

Составить блок схему к готовому коду
Program primer1; USES CRT; CONST m=-2; n=3; Var t ,b: real; k, l: integer; Begin...

Составить блок схему к готовому коду
Составить блок-схему к программе: uses crt;const nmax=15;var a:array of real; y:array of real;...

Составить блок схему к готовому коду
Помогите пожалуйста с блок-схемой к этой программе uses crt; var i, k, n, count: integer; begin...

Составить блок схему к готовому коду
условие программы Дана квадратная матрица A и натуральное число n. Определить матрицу...

Составить блок схему к готовому коду
помогите составить блок схемы!плиз! Program_F8 uses crt; uses crt; var a:array of integer;...

Составить блок схему к готовому коду
var x,y,a,b:real; begin writeln('-b2'); writeln('Введите переменные а,b для х=е+e*сos пb;...


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

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

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