Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
madam12
0 / 0 / 1
Регистрация: 06.06.2015
Сообщений: 13
#1

Составить алгоритм работы программы

26.05.2016, 14:48. Просмотров 141. Ответов 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
30
31
32
33
program ToWords;
uses
  IntToWord in 'IntToWord.pas';
 
var
  F_in: Text;
  line,S,Name:string;
  Sum,R:longint;
  Num:longint;
 
begin
  Write('File name: ');
  Readln(Name);
  Assign(F_in,name);
  Reset(F_in);
 
  Num:=0;
  Sum:=0;
  While not eof(F_in) do
  begin
    Readln(F_in,R);
//    Writeln(numToWords(R));//for debug
    {$Q-}//disable integer overflow checking
    Sum:=Sum+R;
    {$Q+}//enable integer overflow checking
    inc(Num);
  end;
 
  Close(F_in);
  Writeln(Num);
  Writeln(NumToWords(Sum));
  Readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2016, 14:48
Ответы с готовыми решениями:

Составить алгоритм решения задачи в виде программы
Помогите) желательно с подробностями. y=\sum_{k=1}^{20}k^3\left(\sum_{n=1}^{15}(k-n)^2 \right)

Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из текстового файла. Результаты работы программы также помести
Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из...

Составить блок-схему программы работы со справочником компьютерной техники
Ребята, помогите пожалуйста создать бблок схему по справочнику:( Буду ужасно рад любой помощи :3...

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

Кто может составить алгоритм по проге? Алгоритм нужен для отчета если вам это интересно)
uses crt; var a:array of integer; b:array of integer; i,j,m,n:integer; begin ClrScr;...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,964
26.05.2016, 19:39 #2
Дан код программы, не могу составить алгоритм работы
Код не весь.
Еще нужен
Цитата Сообщение от madam12 Посмотреть сообщение
'IntToWord.pas'
0
madam12
0 / 0 / 1
Регистрация: 06.06.2015
Сообщений: 13
26.05.2016, 19:42  [ТС] #3
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
unit IntToWord;
 
interface
 
function numToWords(I:longint):String;
 
implementation
 
const F:array[1..2]of string = ('®¤**','¤ўҐ');
const L:array[0..19]of string = ('*®«м','®¤Ё*','¤ў*','ваЁ','зҐвлаҐ','Їпвм',
  'иҐбвм','ᥬм','ў®бҐ¬м','¤Ґўпвм','¤Ґбпвм','®¤Ё***¤ж*вм','¤ўҐ**¤ж*вм',
  'ваЁ**¤ж*вм','зҐвла**¤ж*вм','Їпв**¤ж*вм','иҐбв**¤ж*вм','ᥬ**¤ж*вм',
  'ў®бҐ¬**¤ж*вм','¤Ґўпв**¤ж*вм');
 
const T:array[2..6]of string = ('¤ў*¤ж*вм','ваЁ¤ж*вм','б®а®Є','¤Ґбпв','¤Ґўп*®бв®');
const Hundr:array[1..5]of string = ('бв®','¤ўҐбвЁ','ваЁбв®','зҐвлаҐбв®','б®в');
const Greaters:array[0..8]of string = ('влбпз*','влбпзЁ','влбпзм','¬Ё««Ё®*','¬Ё««Ё®**','¬Ё««Ё®*®ў','¬Ё««Ё*а¤','¬Ё««Ё*а¤*','¬Ё««Ё*मў');
 
function HundreedsToWords(I:integer;fe:boolean):String;
var
  units,tens,hundreds:byte;
  S:String;
begin
  S:='';
  if i=0 then
  begin
    HundreedsToWords:='';
    exit;
  end;
 
  if i<20 then
    S:=L[i]+' '
  else
  begin
    hundreds:=i div 100;
    tens:=i mod 100 div 10;
    units:=i mod 10;
    case hundreds of
      0:;
      1..4:S:=Hundr[hundreds]+' ';
      else S:=L[hundreds]+Hundr[5]+' ';
    end;
 
    case tens of
      0..1:if i mod 100 <>0 then
          S:=S+L[i mod 100]+' ';
      2..4:S:=S+T[tens]+' ';
      5..8:S:=S+L[tens]+T[5]+' ';
      9: S:=S+T[6]+' ';
    end;
 
    if i mod 100>19 then
      if units>0 then
      begin
        if (fe)and(units<3) then
          S:=S+F[units]+' '
        else
          S:=S+L[units]+' ';
      end;
  end;
  if S<>'' then
    delete(S,length(S),1);
  HundreedsToWords:=S;
end;
 
function numToWords(I:longint):String;
var
  h,j:longint;
  sign:Boolean;
  S:String;
begin
  if i=0 then
  begin
    numToWords:=L[0];
    exit;
  end;
 
  S:='';
  sign:=I<0;
  I:=Abs(i);
  j:=0;
 
  while I<>0 do
  begin
    h:=i mod 1000;
    i:=i div 1000;
    case j of
      0:;//¤® влбпзЁ
      1:if h mod 100 in [5..19] then
        S:=' '+Greaters[2]+S
      else
      case h mod 10 of
         0:;
         1:   S:=' '+Greaters[0]+S;
         2..4:S:=' '+Greaters[1]+S;
         else S:=' '+Greaters[2]+S;
        end;//¤® ¬Ё««Ё®**
      2:if h mod 100 in [5..19] then
        S:=' '+Greaters[5]+S
      else
      case h mod 10 of
         0:;
         1:   S:=' '+Greaters[3]+S;
         2..4:S:=' '+Greaters[4]+S;
         else S:=' '+Greaters[5]+S;
        end;//¤® ¬Ё««Ё*а¤*
      3:if h mod 100 in [5..19] then
        S:=' '+Greaters[8]+S
      else
      case h mod 10 of
         0:;
         1:   S:=' '+Greaters[6]+S;
         2..4:S:=' '+Greaters[7]+S;
         else S:=' '+Greaters[8]+S;
        end;//>= ¬Ё««Ёа¤*
    end;
    if j>0 then
    begin
      if h<>1 then
        S:=' '+HundreedsToWords(h,j=1) + S;
    end
    else
      S:=' '+HundreedsToWords(h,false);
    inc(j);
  end;
  delete(S,1,1);
  if sign then
    S:='¬Ё*гб '+S;
  numToWords:=S;
end;
 
end.mToWords:=S;
end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2016, 19:42

Выбрать алгоритм и составить его блок-схему для вычисления значения указанной функции.Составить программу вычисления
Пожалуйста,помогите!!!

составить алгоритм
Пожалуйста помогите составить алгоритм к задаче методом половинного деления, видоизмененным...

составить алгоритм
Помогите, пж! мне нужно составить алгоритм, но я вообще не понимаю это(( в начале...


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

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

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