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

Сдвиг массива, перевести с Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить функцию, возвращающую минимальное из нескольких чисел http://www.cyberforum.ru/cpp-beginners/thread1015074.html
Определить функцию, возвращающую минимальное из нескольких чисел. Выполнить перегрузку функции для следующих типов параметров: 1.Три параметра типа int. 2.Четыре параметра типа int. 3.Три...
C++ Вывод данных в выходной файл Здравствуйте =).Вот готовлюсь к олимпиаде, встретил такую задачку : На свой день рождения Петя купил красивый и вкусный торт, который имел идеально круглую форму. Петя не знал, сколько гостей... http://www.cyberforum.ru/cpp-beginners/thread1015072.html
Что тут исправить в цикле? C++
#include "stdafx.h" #include <stdio.h> #include <cmath> #include <iostream> using namespace std; int _tmain(int argc, _TCHAR* argv) { setlocale(LC_ALL,"Rus"); int n; int i=1; float k,...
Нужно изменить двумерные массивы на динамические C++
Добрый вечер. Не помешала бы ваша помощь,в моей лабе,нужно заменить двумерные массивы на динамические. К сожалению,я не знаю как это сделать. *Задание: В матрице определить номер строки,в которой...
C++ Дифференциально импульсная кодовая модуляция http://www.cyberforum.ru/cpp-beginners/thread1015038.html
народ подскажите нужно написать курсач ,на тему дифференциально импульсная кодовая модуляция... теорию написал) А с реализацией программы проблемы ( точнее ,вообще не представляю как её...
C++ Сортировка слов из массива по алфавиту Здравствуйте! Возникла проблема. Написал программу для сортировки слов по алфавиту. Без использования функций все работало. Теперь выбивает ошибку. Заранее благодарен за помощь. ... подробнее

Показать сообщение отдельно
ZayacV
2 / 2 / 2
Регистрация: 27.10.2013
Сообщений: 72

Сдвиг массива, перевести с Pascal - C++

22.11.2013, 01:11. Просмотров 194. Ответов 1
Метки (Все метки)

Имеется код на Паскале, нужно переписать на С++))) Паскаль не учил, не получается, кто поможет?
PHP
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
const
  nmax = 20;
 
var
  a: array[1..nmax] of integer;
  x: integer;
  i, n, key: integer;
  
begin
  Writeln('Направление сдвига (1 - влево, 2 - вправо): ');
  Readln(key);
  Repeat
    Write('Размер массива (не более ', nmax, '): ');
    Readln(n);
  until n in [1..nmax]; 
  Writeln('Введите n элементов массива');
  for i := 1 to n do
    begin
    Write('A[', i, '] = ');
    Readln(a[i]);
    end;
  case Key of
  1 :
    begin
    x := a[1];
    for i := 1 to n - 1 do a[i] := a[i + 1];
    a[n] := x;
    end;
  2 :
    begin   
    x := a[n];
    for i := n downto 2 do a[i] := a[i - 1];
    a[1] := x;
    end;
  end; 
  Writeln('После сдвига:');
  for i := 1 to n do
    Write(a[i], ' ');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru