Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Марина Педь
0 / 0 / 0
Регистрация: 20.04.2015
Сообщений: 10
1

Программу на PascalABC переделать в Delphi

19.05.2015, 14:45. Просмотров 222. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста, разработать программы в среде Delphi: консольный и визуальный вариант решения задачи. В Pascal ABC я эту программу сделала, а в Delphi не пойму никак. Числа, над которыми работает программа, в файле, где этот файл должен быть в Delphi, чтобы к нему был доступ.
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
const
  fn= 'anna.txt';
var
  {fn : file of Integer;}
  kol,kol1,kol2, chis: Integer; Sum,Sum1,Sum2,Osr:real;
  St: String;
  f: text;
begin
kol:= 0;
Sum:= 0;
assign(f,fn);
reset(f);
while not eof(f) do
    begin
    readln(f,chis);
    Sum := Sum + chis;
      kol:=kol+1;
      Osr:=Sum/kol;
    end;
    close(f);
writeln (' Среднее арифметическое общее=',Osr:0:5);
 
kol1:= 0;
Sum1:= 0;
reset(f);
while not eof(f) do
    begin
    readln(f,chis);
    if chis>0 then
    begin
    Sum1:= Sum1+chis;
      kol1:=kol1+1;
      end;
    end;
    close(f);
writeln ('Среднее арифметическое чисел, которые больше нуля=',Sum1/kol1:0:5);
 
kol2:= 0;
Sum2:= 0;
reset(f);
while not eof(f) do
    begin
    readln(f,chis);
    if chis>Osr then
    begin
    Sum2:= Sum2+chis;
      kol2:=kol2+1;
      end;
    end;
    close(f);
writeln ('Среднее арифметическое чисел, которые больше общего среднего арифметического=',Sum2/kol2:0:5);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2015, 14:45
Ответы с готовыми решениями:

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

Переделать программу из С++ в Delphi
Реализация алгоритма на C++ ...

Переделать программу с паскаля на Delphi
В данной действительной квадратной матрице порядка n найти сумму элементов...

Переделать программу Паскаля в Delphi
День добрый! Уважаемые программисты, нужно переделать программу, написанную в...

Переделать программу, решённую на Pascal, в Delphi
Данная программа заменяет необходимые слова на другие, введённые с клавиатуры....

1
Марина Педь
0 / 0 / 0
Регистрация: 20.04.2015
Сообщений: 10
24.05.2015, 11:03  [ТС] 2
Уже разобралась, все получилось, так что не надо больше никому тратить на меня время!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2015, 11:03

Переделать программу с Си на Delphi (поиск слов в предложении)
Помогите, пожалуйста, переделать программу. Или часть какую-нибудь. void...

переделать программу в delphi
составьте программу, которая создает файл, состоящий из пяти значений типа...

Переделать готовую программу в Borland Developer Studio Delphi 2006
Помогите пожалуйста! Нужно из Delphi 7 переделать готовую программу в Borland...


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

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

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