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

Нужно перевести код из Turbo Pascal в Pascal ABC

13.11.2019, 09:23. Просмотров 271. Ответов 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
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
       Program n5;
       {
         Задача.  Описать функцию less(f) от непустого файла f   
                  типа reals, type = file of real; которая
                  подсчитывает количество элементов файла f,
                  меньших среднего арифметического всех
                  элементов этого файла.
       }
 
       Uses Crt;
 
       Const
         n: word = 1000;
 
       Type
         reals = file of real;
       Var
 
         f: reals;
         buf: real;
 
       Procedure fileOpen ( var
                              f {файловая переменная вещественного типа}
                              : reals;
                              name {имя файла}
                              : string
                          );
       {
        Создает или открывает файл.
       }
       begin
         Assign (f, name);
         {$I-}   {отключение генерации кода проверки ошибок ввода-вывода}
         Reset (f);
         if IOResult <> 0
           then
             begin
               Rewrite (f);
               if IOResult <> 0
                 then
                   begin
                     Write ('Ошибка при создании файла!',^G);
                     Readln;
                     Halt (0101);
                   end;
             end;
         {$I+}
       end;
 
       Procedure writeToFile ( n {количество всех обьектов файла}
                               : word
                             );
       var
         i {переменная цикла}
         : word;
       {
        Заполняет файл случайными обьектами типа reals.
       }
       begin
         i := 1;
         while (i <> n) do
           begin
              buf := 1000 / (Random (999) + 1);
              Write (f, buf);
              Inc (i);
           end;
       end;
 
       Function less ( var
                         f {файловая переменная вещественного типа}
                         : reals;
                         n {количество всех обьектов файла}
                         : word
                     )
                     : word;
       var
         i, {переменная цикла}
         l {счетчик}
         : word;
         sArif {накопитель арифметического обьектов файла.}
         : real;
       {
         Возвращает количество обьектов открытого файла меньших
         среднего арифметического всех обьектов.
       }
       begin
         Seek (f, 0);
         i := 1;
         sArif := 0;
         while (i <> n) do
           begin
             Read (f, buf);
             sArif := sArif + buf;
             Inc (i);
           end;
         sArif := sArif / n;
         Seek (f, 0);
         l := 0;
         while (i <> 1) do
           begin
             Read (f, buf);
             if buf < sArif
               then
                 Inc (l);
             Dec (i);
           end;
         less := l;
       end;
 
       Begin
         Randomize;
         ClrScr;
         fileOpen (f, 'reals.tmp');
         writeToFile (n);
         WriteLn (
                   'Количество обьектов в файле меньших среднего ' +
                   'арифметического этих обьектов равно: ', less (f, n)
                 );
         Close (f);
         Erase (f);
         Readln;
       End.
Большое спасибо за помощь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2019, 09:23
Ответы с готовыми решениями:

Перевести из Turbo Pascal в Pascal ABC
Добрый вечер. Необходимо перевести этот код из Turbo Pascal в Pascal ABC. Заранее спасибо. uses...

Переписать код из Turbo Pascal в Pascal ABC
Программа 1: program zadacha; uses crt, graph; const m=150; var gd,gm,i,j,s1,s2,c: integer;...

Переписать код из Turbo Pascal в pascal ABC
очень плохо знаю Turbo Pascal, а времени на изучение нет, а его надо переписать в Pascal ABC, буду...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в Pascal ABCprogram zadacha; uses crt, graph; const m=150; var...

1
Эксперт Pascal/Delphi
6269 / 4227 / 4611
Регистрация: 05.06.2014
Сообщений: 20,806
13.11.2019, 09:31 2
Нужен файл reals.tmp.
Предварительно:
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
program n5;
       {
         Задача.  Описать функцию less(f) от непустого файла f   
                  типа reals, type = file of real; которая
                  подсчитывает количество элементов файла f,
                  меньших среднего арифметического всех
                  элементов этого файла.
       }
 
Uses Crt;
 
const
  n: word = 1000;
 
type
  reals = file of real;
 
var
  
  f: reals;
  buf: real;
 
procedure fileOpen(var
                              f{файловая переменная вещественного типа}
                              : reals;
                              name{имя файла}
                              : string
                          );
       {
        Создает или открывает файл.
       }
begin
  Assign(f, name);
  Reset(f);
  if fileexists(name)            then
  begin
    Rewrite(f);
    begin
      Write('Ошибка при создании файла!');
      Readln;
      exit;
    end;
  end;
end;
 
procedure writeToFile(n{количество всех обьектов файла}: word);
var
  i{переменная цикла}  : word;
       {
        Заполняет файл случайными обьектами типа reals.
       }
begin
  i := 1;
  while (i <> n) do
  begin
    buf := 1000 / (Random(999) + 1);
    Write(f, buf);
    Inc(i);
  end;
end;
 
function less(var
                         f{файловая переменная вещественного типа}
                         : reals;
                         n{количество всех обьектов файла}
                         : word
                     )
                     : word;
var
  i, {переменная цикла}
  l{счетчик}
  : word;
  sArif{накопитель арифметического обьектов файла.}
  : real;
       {
         Возвращает количество обьектов открытого файла меньших
         среднего арифметического всех обьектов.
       }
begin
  Seek(f, 0);
  i := 1;
  sArif := 0;
  while (i <> n) do
  begin
    Read(f, buf);
    sArif := sArif + buf;
    Inc(i);
  end;
  sArif := sArif / n;
  Seek(f, 0);
  l := 0;
  while (i <> 1) do
  begin
    Read(f, buf);
    if buf < sArif
               then
      Inc(l);
    Dec(i);
  end;
  less := l;
end;
 
begin
  Randomize;
  ClrScr;
  fileOpen(f, 'reals.tmp');
  writeToFile(n);
  WriteLn(
                   'Количество обьектов в файле меньших среднего ' +
                   'арифметического этих обьектов равно: ', less(f, n)
  );
  Close(f);
  Erase(f);
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2019, 09:31

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

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в pascal ABCprogram zadacha; uses crt, graph; const m=50; var...

Переписать код из Turbo Pascal в Pascal ABC
program zadacha; uses crt, graph; const m=50; var gd,gm,i,j,s1,s2,c1,c2: integer;...

Перевести код Pascal ABC NET в Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...


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

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

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