Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47
#1

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

31.03.2013, 16:58. Просмотров 257. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2013, 16:58
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите программу в C++ (C++):

Переведите программу в C++ из Pascal - C++
Переведите программу в C++ {A} Var T,M,N: Longint; Begin Readln(M,N); If m&gt;n then begin T:=M; M:=N; N:=T;

Переведите программу из Паскаля на С++ - C++
Задание: Даны два числа n и m. Создайте двумерный массив и заполните его по следующим правилам: Числа, стоящие в строке 0 или в столбце 0...

Переведите программу в язык С++ - C++
У меня такая же задача. Только надо на С++. В спойлер дано задание. Кому не трудно. На с++ переделайте с паскаля. Составьте программу,...

Переведите пожалуйста программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Дан текстовый...

Переведите программу из Pascal на С++ - C++
Переведите программу из Pascal на С++, пожалуйста! Условие программы: Найти max{min(o, b), min(c, d)}. ...

переведите на С++ - C++
переведите на С++ Var s,p:string; b:char; i:integer; Begin Write('Input text:'); Readln(s); Write('Input letter:');...

1
anmartex
...
1708 / 1201 / 496
Регистрация: 12.02.2013
Сообщений: 1,978
01.04.2013, 09:38 #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
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2013, 09:38
Привет! Вот еще темы с ответами:

Переведите на С - C++
Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив ( где каждая строка стороны...

Переведите с Pascal в C++ - C++
помогите пож с заданиями,очень нужно на завтра( 1) переведите пож в с ++ код var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real; ...

Переведите с Паскаля - C++
Всем привет! Нарыл в инете прогу на Паскале (прога определяет день недели по дате). Нужно перевести ее на С++ program denned; ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...


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

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

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