Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 26.08.2016
Сообщений: 8
1

Переписать с Pascal на С++

29.08.2016, 13:50. Показов 1167. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
Var
  f1,f2: File of Real;
  i,n,k: Integer;
  x,s: Real;
BEGIN
Write('Введите кол-во чисел: ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
Randomize;
For i:=1 to n do
begin
  x:=10*Random;
  Write(f1,x);
end;
Assign(f2,'2.dat');
Rewrite(f2);
Reset(f1);
Writeln('Содержимое 1 файла:');
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  For k:=1 to i+1 do
  s:=s+x;
  s:=s/(i+1);
  Write(f2,s);
  Write(x:7:2);
end;
Reset(f2);
Writeln;
Writeln('Содержимое 2 файла:');
For i:=0 to Filesize(f2)-1 do
begin
  Seek(f2,i);
  Read(f2,x);
  Write(x:7:2);
end;
Close(f1);
Close(f2);
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.08.2016, 13:50
Ответы с готовыми решениями:

Переписать программу с Pascal ABC в Turbo pascal
Нужно вот это. Переписать в турбо паскаль. Буду очень благодарен. uses graphABC; begin...

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

Переписать программу с Pascal ABC в Turbo pascal
Здравствуйте помогите пожалуйста_) Если не получится то можно задачу решить как-то по другому....

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

5
0 / 0 / 0
Регистрация: 26.08.2016
Сообщений: 8
30.08.2016, 07:26  [ТС] 2
Кто-нибудь помогите, пожалуйста
0
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
30.08.2016, 10:07 3
Условие как звучит?
0
0 / 0 / 0
Регистрация: 26.08.2016
Сообщений: 8
30.08.2016, 10:21  [ТС] 4
Цитата Сообщение от HighPredator Посмотреть сообщение
Условие как звучит?
Записать в файл последовательность доступа n действительных чисел https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{1},{a}_{2},...{a}_{n}. Организовать новый файл последовательность доступа, элементы которого вычисляются по формуле https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{m}=\frac{\sum_{k=0}^{m}*{a}_{k}}{m}. Вывести полученный файл на печать
0
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
30.08.2016, 10:49 5
В общем я не понял как связаны m и n в условии, поэтому перевел почти в лоб:
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
#include <iostream>
#include <fstream>
#include <random>
 
int main()
{
    std::cout << "Enter n:";
  
  int n;
  
  std::cin >> n;
  
  std::fstream f1("1.dat", std::ios_base::out | std::ios_base::trunc | std::ios_base::binary);
  
  std::random_device rd;
  std::mt19937 mt(rd());
  std::uniform_real_distribution<double> dist(0.0, 1.0);
  
  for (int i = 0; i < n; i++)
  {
    double x = dist(mt) * 10.0;
    f1.write(reinterpret_cast<char*>(&x), sizeof(x));
  }
  f1.close();
  
  std::fstream f2("2.dat", std::ios_base::out | std::ios_base::trunc | std::ios_base::binary);
  f1.open("1.dat", std::ios_base::in | std::ios_base::binary);
  
  std::cout << "Contents of file 1:" << std::endl;
  
  int i = 0;
  double s = 0.0;
  while (f1.good())
  {
    double x;
    f1.read(reinterpret_cast<char*>(&x), sizeof(x));
    
    for (int k = 0; k < i + 1; k++)
    {
      s = s + x;
      s = s / (i + 1.0);
      f2.write(reinterpret_cast<char*>(&s), sizeof(s));
      
      std::cout << x << std::endl;
    }
  }
  
  f2.close();
  
  std::cout << "Contents of file 2:" << std::endl;
  
  f2.open("2.dat", std::ios_base::in | std::ios_base::binary);
  
  while (f2.good())
  {
    double x;
    f2.read(reinterpret_cast<char*>(&x), sizeof(x));
    std::cout << x << std::endl;
  }
  
  f2.close();
  
  return 0;
}
3
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
30.08.2016, 11:05 6
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
#include <iostream>
#include <fstream>
#include <ctime>
#include <cstdlib>
 
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "rus");
    ofstream out("1.dat", ios_base::binary | ios_base::trunc | ios_base::out);
    unsigned int n;
    cout << "Введите кол-во чисел: ";
    cin >> n;
    srand(time(0));
    float x;
    for (unsigned int i = 0; i < n; ++i)
    {
        int temp = rand() % 91 + 10;
        x = (float)temp / 10.0;
        if (out.good())
            out.write((char *)&x, sizeof(float));
    }
    out.close();
    ifstream in("1.dat", ios_base::binary | ios_base::in);
    out.open("2.dat", ios_base::binary | ios_base::trunc | ios_base::out);
    float s = 0;
    unsigned int i = 0;
    cout << "Содержимое 1 файла:";
    while (!in.eof())
    {
        in.read((char *)&x, sizeof(float));
        if (!in.eof())
        {
            for (unsigned int k = 0; k < i + 1; ++k)
                s += x;
            s /= (float)(i++ + 1);
            out.write((char *)&s, sizeof(float));
            cout << " " << x;
        }
    }
    cout << endl << "Содержимое 2 файла:";
    out.close();
    in.close();
    in.open("2.dat", ios_base::binary | ios_base::in);
    while (!in.eof())
    {
        in.read((char *)&x, sizeof(float));
        if (!in.eof())
            cout << " " << x;
    }
    cout << endl;
    in.close();
    return 0;
}
Добавлено через 1 минуту
так же переписывал "в лоб".
2
30.08.2016, 11:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.08.2016, 11:05
Помогаю со студенческими работами здесь

Переписать программу с Turbo Pascal на Pascal ABC
Здравствуйте, не могли бы помочь переписать программу с Turbo Pascal на Pascal ABC. Хоть убейте не...

Переписать код из 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 uses graph,crt; const n=20;...

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


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru