Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
M-DRAGNIL
1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
1

Перевод с Паскаля на с++

23.12.2016, 16:15. Просмотров 252. Ответов 2
Метки нет (Все метки)

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

C++
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
ar f:file of integer;
    g:file of real;
    i,n,k,m:integer;
    sr,t:real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('Введите кол-во элементов: ');readln(n);
    For i:=1 to n do
    Begin
      m:=random(31);
      write(m:3);
      write(f,m);
    End;
    k:=0;
    Reset(f);
    Assign(g,'out.dat');Rewrite(g);
    writeln;
    While not Eof(f) do
    Begin
      inc(k);
      read(f,m);
      sr:=sr+m;
      if k=5 then
      Begin
        write(g,sr/k);
        k:=0;
        sr:=0;
      End;
    End;
    if k>0 then write(g,sr/k);
    Reset(g);
    While not Eof(g) do
    Begin
      read(g,t);
      write(t:0:2,' ');
    End;
    Close(f);Close(g);
    readln;
End.
Добавлено через 30 минут
Сделал какую-то лажу
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    ifstream file1("a.txt");
    ofstream file2("b.txt");
    int i,m,n;
    cin >> n;
    
    for (i = 1; i < n; i++)
    {
        m = rand() % 31;
        file1 >> (m,3);
    }
    file1.close();
    file2.close();
    return 0;
}
Добавлено через 39 минут
Помогите ребят, не пойму как дальше писать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 16:15
Ответы с готовыми решениями:

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

Перевод с паскаля на с++
program z1; var i,j,m,k,z,x,l:integer; begin readln(m); for i:=0 to m do...

Перевод с паскаля на С++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var...

Перевод с Паскаля на си++
Помогите перевести на си++. uses crt; const gl=; var s:string; ...

Перевод с Паскаля на C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label...

2
Aslav
1 / 1 / 1
Регистрация: 18.11.2016
Сообщений: 7
23.12.2016, 21:22 2
пожалуйста, преобразовал из Pascal -> C++
C++
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
#include <fstream>
#include <iostream>
#include <cstdlib> //rand; 
 
using std::ifstream;
using std::ofstream;
using std::cin;
using std::cout;
using std::endl;
 
 
ifstream fin;
ofstream fout;
 
int main()
{
 
 
    int m;
 
    int n; //кол-во элементов
    cout<<"Enter the number of items:\t";
    cin>>n;
 
    //заполняем in.dat случайными числами
    fout.open("in.dat"); 
    for(int i = 0; i<n; i++)
    {
        m = rand()%31 + 1;
        cout<<m<<endl;
        fout<<m<<endl;
    }
    fout.close();
 
 
    {//устанавливаем область видимости для переменных k и sr
    fin.open("in.dat");
    fout.open("out.dat");
 
    int k = 0, sr = 0;
    cout<<endl;
 
    while (!fin.eof())
    {
        k++;
        fin>>m;
        sr += m;
        if (k==5)
            {
                fout<<float(sr/k)<<endl;
                k=0;
                sr=0;
            }
    }
 
    if (k>0) fout<<float(sr/k);
 
    fin.close();
    fout.close();
    }
    
    {//устанавливаем область видимости для t
    float t;
    fin.open("out.dat");
    fin.precision(2); // устанавливаем точность
    while (!fin.eof())
    {
        fin>>t;
        cout<<t<<" ";
    }
    fin.close();
    }
    return 0;
}
0
M-DRAGNIL
1 / 1 / 0
Регистрация: 14.04.2016
Сообщений: 97
23.12.2016, 21:25  [ТС] 3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2016, 21:25

Перевод с Паскаля на C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. var z,x,v: text;...

Перевод из Паскаля в С++
const RusLit = ; EngLit = ; var Str: string; procedure...

Перевод из Паскаля в C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const ...


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

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

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