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

Преобразовать программу под c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Целочисленные и дробные значения http://www.cyberforum.ru/cpp-beginners/thread985007.html
Здравствуйте! Проблема скорее техническая. Я сделал программу нахождения 2 противоположных координат квадрата. При целых значениях работает нормально, но при значении double или float(если...
C++ Программа выводит что-то непонятное Помогите пожалуйста, подскажите, почему программа бред выводит? Вот программа. #include <stdio.h> #include <conio.h> #include <math.h> #include <C:\Users\Ангелина\Documents\Visual Studio... http://www.cyberforum.ru/cpp-beginners/thread984981.html
C++ Получить среднее арифметическое всех членов последовательности
Напишите пожалуйста полный код данной программы в microsoft visual studio c++ Даны действительные числа a1, ..., a20. Получить числа b1, ..., b20, где bi – среднее арифметическое всех членов...
Сортировка двумерного массива C++
Задача: Написать код сортировки двумерного массива размерностью m*n. Переставить строки матрицы так, чтобы элементы k-го столбца были отсортированы по неубыванию с помощью прямого выбора.
C++ Собеседник на C++ http://www.cyberforum.ru/cpp-beginners/thread984960.html
Нужны советы как написать такую программу.
C++ Необработанное исключение Доброго времени суток. Ошибка: Необработанное исключение типа "System.Resources.MissingManifestResourceException" в mscorlib.dll Дополнительные сведения: Не удалось найти ресурсы,... подробнее

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

Преобразовать программу под c++ - C++

22.10.2013, 21:04. Просмотров 173. Ответов 0
Метки (Все метки)

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
const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a,b:Tarr;
  i,k,n:integer;
procedure MakeArray(const x:Tarr;xSize:integer;var y:Tarr;var ySize:integer);
var
  i:integer;
begin
  ySize:=0;
  i:=1;
  while i<=xSize-1 do
    begin
      inc(ySize);
      if x[i]>x[i+1] then
        y[ySize]:=x[i]
      else
        y[ySize]:=x[i+1];
      inc(i,2);
    end;
end;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv a:');
  for i:=1 to n do
    begin
      a[i]:=-10+random(21);
      write(a[i]:4);
    end;
  writeln;
  MakeArray(a,n,b,k);
  writeln('Poluchenniy massiv b->');
  for i:=1 to k do
    write(b[i]:4);
end.



//Заранее благодарю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru