Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
madam12
0 / 0 / 1
Регистрация: 06.06.2015
Сообщений: 13
#1

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

26.05.2016, 14:48. Просмотров 137. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2016, 14:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить алгоритм работы программы (Free Pascal):

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

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

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

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

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

Составить алгоритм - Pascal
Пожалуйста помогите составить блок схему, программа есть нужна только блок схема к заданию. Дано натуральное число n. Вычислить...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3835 / 2822 / 1940
Регистрация: 05.06.2014
Сообщений: 13,816
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
Привет! Вот еще темы с ответами:

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

составить алгоритм - Pascal
пжалуйста помогите составить алгаритм на программу. дана последовательность чисел а1,а2..аn.образовать новую последовательность выбросив из...

Составить алгоритм - Pascal
Плиз, помогите!!! прога есть осталось только составить алгоритм!!

Составить алгоритм решения - Pascal
1) M=sqrt(K+sqrt(2K+sqrt(3K+...sqrt(K(n-1)+sqrt(Kn))))) 2) N=sqrt(K)+sqrt(K^3)+sqrt(K^7)...+sqrt(K^n+1) 3) Составить алгоритм вывода на...


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

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

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