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

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

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

Переделать код с Pascal в С++ - C++

28.06.2013, 14:02. Просмотров 272. Ответов 0
Метки нет (Все метки)

Заполнить двоичный файл N действительными числами, полученными с помощью генератора случайных чисел. Найти сумму минимального и максимального элементов этого файла. N – случайное число, не превышающее 100.

Примечание: Результат работы с данными вывести на экран и в новый файл. Файл, в который записывается результат, называется OUTPUT.DAT для двоичных файлов.


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
const
  DirectionA = 'C:\input.dat';
  DirectionB = 'C:\output.dat';
  Max_Value = 100;
var
  FirstFile, SecondFile: file of Integer;
  Arr: array[1..Max_Value] of Integer;
  Max, Min, Summa: Integer;
  n, i: Byte;
begin
  Randomize;
  Max:=1; Min:=1;
  Summa:=0;
  repeat
    write('N: ');
    readln(n);
  until (n in [1..Max_Value]);
  writeln('Содержимое записанного файла: ');
  assign(FirstFile, DirectionA);
  rewrite(FirstFile);
  for i:=1 to n do
  begin
    Arr[i]:=Random(61)-10;
    if Arr[i] < Arr[Min] then Min:=i;
    if Arr[i] > Arr[Max] then Max:=i;
    write(FirstFile, Arr[i]);
    write(Arr[i], ' ');
  end;
  close(FirstFile);
  writeln;
  Summa:=Arr[Max]+Arr[Min];
  writeln('Максимальный: ', Arr[Max]);
  writeln('Минимальный: ', Arr[Min]);
  writeln('Их сумма: ', Summa);
  assign(SecondFile, DirectionB);
  rewrite(SecondFile);
  write(SecondFile, Summa);
  close(SecondFile);
  writeln('Результат записан в файл!');
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2013, 14:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переделать код с Pascal в С++ (C++):

Переделать код с Pascal на С++ - C++
uses crt; const n1='Name1.txt'; n2='Name2.txt'; n3='Name3.txt'; var f1,f2,f3:text; s1,s2:string; begin clrscr; ...

Переделать код с Pascal на С++ - C++
Имеется данный код: uses crt; var f,h,g:text; s:arrayof string; n,i:integer; begin clrscr; assign(f,'file_ob.txt'); ...

Код написан в Dev C. Не работает в Visual. Как нужно переделать код? - C++
Здравствуйте. Столкнулась с такой проблемой: код был написан в Dev C, но в Visual он выдаёт ошибку. ...

переделать программу из pascal в C++ - C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все формулы открывает ...

Переделать программу написанную на Pascal в С++ - C++
Задание Вариант 1 Вычислить определенный интеграл от функции f(x) на промежутке методом прямоугольников. f(x) = 2sin x cos x + sin...

Переделать из Pascal в C++. Сумма ряда - C++
Program besconecs; uses crt; var n,k:integer; S,elem,e:real; begin clrscr; e:=0.0001; S:=0; n:=0; elem:=1;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.06.2013, 14:02
Привет! Вот еще темы с ответами:

переделать программу из Pascal в язык С - C++
Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005, 100 и т. д. Выразить цену в рублях и...

Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) - C++
Всем привет. Вот необходимо переписать этот код на С++ помогите плз: Задание 1. Найти максимальную цифру в тексте строки. uses...

переделать программу Pascal -> C++ (Восстановить исходную матрицу и напечатать ее по строкам) - C++
с паскаля на с++...буду очень признателен. вот текст задачи. Квадратная матрица, симметричная относительно главной диагонали, задана своим...

Переделать код! - C++
Вот есть задача: Найти площадь шестиугольника, стороны которого равны a, b, c, d, е, f и диагонали, которые разбивают шестиугольник на...


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

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

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