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

перевести с Паскаля на Visual C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ сколько элементов в строкe меньше,болшье... http://www.cyberforum.ru/cpp-beginners/thread108162.html
нужно найти, сколько элементов в строкe меньше чем первий элемент строки и, сколько элементов больше чем последний элемент строки. //int *izm; //unsigned int **matrica; case 5: clrscr();...
C++ Подскажите в чем ошибка (С++) typedef struct { char name, mark; unsigned price, num; } Comp; Comp *list = NULL; int cnt = 0; int Add(Comp val) http://www.cyberforum.ru/cpp-beginners/thread108160.html
Проверить, является ли заданное натуральное число простым C++
у меня есть алгоритм вывода простых чисел, как зделать так штоб можна было ввести число и выдать сообщение што оно просте или нет void sundaram(int n){ int *a = new int , i, j, k; ...
Массив символов в структуре C++
Подскажите, пожалуйста, как объявить структуру, в которой первый элемент - массив массивов символов (например: werrtyfg sdf sgfdh), второй и третий элементы - целочисленные...
C++ Удаление элемента массива http://www.cyberforum.ru/cpp-beginners/thread108140.html
Здравствуйте. Необходимо удалить из массива А(20) первый отрицательный элемент,при этом ввод элементов массива необходимо осуществить с клавиатуры. Язык - С.
C++ Побитовый сдвиг массива Есть двумерный массив int massiv;Нужно сдвинуть первый элемент массива в конец, а все остальные соответственно вперед. В цикле это можно сделать так int temp0=0; int temp1=0; int n=0; for(int... подробнее

Показать сообщение отдельно
Deakon
0 / 0 / 0
Регистрация: 19.03.2010
Сообщений: 5

перевести с Паскаля на Visual C++ - C++

24.03.2010, 05:01. Просмотров 298. Ответов 1
Метки (Все метки)

помогите новичку перевсти с Паскаля на С++. Пожалуйста.
Само задание: "ПУсть дан файл целых чисел f. Определите, сколько раз в нем повторяется максимальное значение(за 1 проход)."

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
program pos;
type
mas=array[1..100] of integer;
 
procedure fileread(var f:text; var k:integer; var a:mas);
begin
assign(f,'input.txt');
reset(f);
k:=0;
while not eof(f) do begin
inc(k);
read(f,a[k]);
end;
end;
 
function MaxPos (a:mas; k:integer):integer;
var
max,n,i:integer;
begin
max:=-32768;
for i:=1 to k do
if a[i]>max then max:=a[i];
n:=0;
for i:=1 to k do
if a[i]=max then inc(n);
MaxPos:=n;
end;
 
var
f:text;
k:integer;
a:mas;
 
begin
assign(f,'input.txt');
reset(f);
fileread(f,k,a);
writeln(MaxPos(a,k));
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.