113 / 110 / 33
Регистрация: 21.12.2009
Сообщений: 321
1

Проверьте пожалуйста правелая ли блок схема составлена!!!

12.05.2010, 14:46. Показов 671. Ответов 1
Метки нет (Все метки)

Вот код программы:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program proga1;
var
 a,b:integer;
procedure Drob(NN:integer;M:integer);
type
 TArr=integer;
 TAr=array[0..0] of TArr;
 pAr=^Tar;
var
 N:longint;
 c,i,step,period,dop,flag:integer;
 x:pAr;
begin
 writeln(NN,'/',M);
 GetMem(x,M*sizeof(integer));
 for i:=0 to M-1 do
  begin
   x^[i]:=0;
  end;
 step:=1;
 while 1=1 do
  begin
   N:=10;
   c:=round(N/M);
   N:=N mod M;
   if N=0 then
     begin
      writeln('Tohnai decitihnal drob');
      period:=0;
      break;
     end;
   if x^[N]<>0 then
     begin
      period:=step-x^[N];
      dop:=x^[N]-1;
      writeln('Pereodiheckal drob, dlinna perioda =',period,'dop=',dop);
      break;
     end;
    x^[N]:=step;
    inc(step);
  end;
  write('0.');
  N:=NN;
  i:=0;
  flag:=0;
  while 1=1 do
   begin
    if (flag=0) and (period<>0) and (i>=dop) then
     begin
      write('(');
      flag:=1;
      i:=0;
     end;
     N:=10;
     c:=round(N/M);
     if N=0 then break;
     if period=0 then continue;
     inc(i);
     if (flag<>0) and (i>=period) then
      begin
       writeln(')');
       break;
      end;
   end;
end;
 
begin
 write('Bvedite M:');
 readln(a);
 write('Bvedite N:');
 readln(b);
 Drob(a,b);
 read(a);
end.
А вот схема:
Проверьте пожалуйста правелая ли блок схема составлена!!!

Прокоментируйте пожалуйста)))
Миниатюры
Проверьте пожалуйста правелая ли блок схема составлена!!!  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2010, 14:46
Ответы с готовыми решениями:

Проверьте, правильно ли составлена блок-схема
program first; var v,p,s : array of integer; i(* 1..2 работник*), a (*общее количество...

Правильно ли составлена блок-схема?
1. Программа var s: string; l,i,m_harfho,m_kalimaho: byte; begin readln(s); s:=' '+s;...

Правильно ли составлена блок-схема?
Проверте пжлст блок схему! (вот сама задача...

[Проверьте пожалуйста] Релейно-контактная схема по выражению
\bar{A}+\bar{C}+B (где + дизъюнкция) Получили Если не правильно - пожалуйста, отредактируйте...

1
113 / 110 / 33
Регистрация: 21.12.2009
Сообщений: 321
12.05.2010, 14:59  [ТС] 2
вот для лучшего просмотра схемы рисунок в архиве, пожалуйста посмотрите, нужно точно быть уверенным что правельно!!!Drob.rar
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2010, 14:59
Помогаю со студенческими работами здесь

проверьте пожалуйста блок-схему
Private Sub Command1_Click() Dim s, a As Double Dim k As Integer Picture1.Cls Picture2.Cls...

Проверьте, пожалуйста, блок схему
Имеется выражение: n!/k! * (n – k)! требуется составить блок схему, которую я нарисовала( см....

проверьте пожалуйста блок-схему
program nomer2_1; var k,x,y:real; begin writeln ('vvedi k'); readln (k); writeln ('vvedi x');...

проверьте пожалуйста правильность блок схемы алгоритма
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=100; var a: array of integer;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru