Форум программистов, компьютерный форум CyberForum.ru

Переведите программу в C++ - C++

Восстановить пароль Регистрация
 
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47
31.03.2013, 16:58     Переведите программу в C++ #1
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы)

Условие: Файл F генерируется с случайных чисел, размерность файла задает пользователь. Найти количество и среднее арифметическое отрицательных чисел в файле.

Код:
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
program 17;
uses crt;
var f:file of integer; i,d,n,k,k1:integer; in_name:string; k2:rеal; 
Begin 
          Writeln ('Введите имя файла: '); 
          read (in name); 
          Writeln('Введите количество элементов массива: '); 
          read (n) ; 
          Assign (f, in name); 
          Writeln ('Файл имеет вид'); 
          Rewrite (f); 
          For i:=1 to n do 
          Begin 
               d=random (30) -15; 
                Write (f, d) ; 
          End; 
          Ciose (f) ; 
          Reset (f) ; 
          While not eof(f) do 
          begin 
          k1:=0; 
          for i:=1 to n do 
          Begin 
              read (f, d) ; 
              write (d, ' ') ; 
          If d<0 then inc (k) ; 
          If d<0 then k1:=k1+d; 
          k2:=k1/k; 
          End; 
          end; 
          Close (f) ; 
          writeln; 
          Writein ('Количество отрицательных элементов: ',k); 
          Writeln('Среднее арифметическое: ',k2); 
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2013, 16:58     Переведите программу в C++
Посмотрите здесь:

Переведите на С C++
C++ переведите с Паскаля на си++
Переведите пожалуйста программу в C++ C++
C++ Переведите программу в язык С++
Переведите программу в C++ из Pascal C++
переведите на С++ C++
C++ Переведите программу из Паскаля на С++
Переведите программу из Pascal на С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
anmartex
...
 Аватар для anmartex
1699 / 1192 / 494
Регистрация: 12.02.2013
Сообщений: 1,978
01.04.2013, 09:38     Переведите программу в C++ #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
40
41
42
43
44
45
46
47
48
49
50
51
#include <iostream>
#include <fstream>
#include <string>
#include <cstdlib>
#include <ctime>
 
int main()
{
   srand(time(NULL));
 
   std::cout << "imput file name: ";
   std::string fname;
   std::cin >> fname;
 
   std::cout << "imput count elements of array: ";
   size_t count;
   std::cin >> count;
 
   int digit;
   std::ofstream fout(fname.c_str(), std::ofstream::binary);
   while (count--)
   {
      digit = rand()%30 - 15;
      fout.write(reinterpret_cast<char*>(&digit), sizeof(digit));
   }
   fout.close();
 
   count = 0;
   int summ = 0;
   std::ifstream fin(fname.c_str(), std::ifstream::binary);
   while (!fin.eof())
   {
      fin.read(reinterpret_cast<char*>(&digit), sizeof(digit));
      std::cout << digit << " ";
 
      if (digit < 0)
      {
         count++;
         summ += digit;
      }
   }
   fin.close();
 
   std::cout << std::endl
             << "count elements = " << count << std::endl
             << "arithmetical mean = " << static_cast<float>(summ) / count << std::endl;
 
   system("pause");
 
   return 0;
}
Переведите программу в C++

Бинарник + исходник: program.7z
Yandex
Объявления
01.04.2013, 09:38     Переведите программу в C++
Ответ Создать тему
Опции темы

Текущее время: 14:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru