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

Перевести коды из Pas в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ char* to char http://www.cyberforum.ru/cpp-beginners/thread213972.html
Подскажите, как перевести char* в char!
C++ Длина массива в списке ув. программисты,имеется такая инициализация: struct TRecord {int x,y;int elem; char c; bool step;} all; Как присвоить всем елементам массива elem 0.просто если тут расписывать получится гигантская... http://www.cyberforum.ru/cpp-beginners/thread213971.html
Работа с массивами структур C++
Поля структуры: код студента, фамилия, предмет, оценка. Операция: найти средний балл студента с введенной фамилией. знаю, что писал уже, но я немного не разобрался... написал вот такую вот...
C++ Стационар
В стационарном отделении 60 мест по 4 койки в отдельной палате.Написать программу,которая бы выдавала номер свободного места,чтобы госпитализировать пациента,или номер палаты,где располагается...
C++ Динамические массивы http://www.cyberforum.ru/cpp-beginners/thread213916.html
Здравствуйте уважаемые программисты, я нуждаюсь в вашей помощи, в понедельник нужно сдавать задачу, а я даже не знаю как ее решать, помогите пожалуйста, если можно то программу целиком. Задача...
C++ Первая и последняя буква в слове Дан текст. Распечатать слова которые начинаются и заканчиваються на одну и туже букву Вот что получилось #include <iostream> #include <string.h> using namespace std; int main() {... подробнее

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

Перевести коды из Pas в C++ - C++

18.12.2010, 16:02. Просмотров 559. Ответов 1
Метки (Все метки)

{осуществить циклический сдвиг элементов массива, на k позиций вправо }
program li;
uses crt;
var
a:array[1..100] of integer;
i,r,n,k,j:integer;
begin
writeln('введите размер массива ') ;
readln(n);
write('введите величину сдвига ') ;
readln(k);
write('введите элементы массива через пробел ') ;
for i:=1 to n do
read (a[i]);
for i:=1 to k do
begin
for j:=1 to n do
if (j=1) then r:=a[j] else a[j-1]:=a[j];
a[n]:=r;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.

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