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

с паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Завершение бесконечного цикла через определенное время http://www.cyberforum.ru/cpp-beginners/thread980265.html
Есть бесконечный цикл for( ; ; ), который обрабатывает событие нажатия кнопки в игре. Если на кнопку не нажали в течении двух секунд, нужно, чтобы цикл завершался, как это можно сделать?
C++ Подключение русского языка Недавно нашла,как сделать так,чтобы на экране отображались на русском языке не только фразы из cout<<, но и которые вводятся с клавиатуры,т.е стоят в cin>>. Итак начнем с того,что добавим еще один заголовочный файл #include<windows.h> после или в процедуре или после main() пишем int=GetConsoleCP(); а рядом с нужным cin>> , которыйи хочется вывести на русском спереди пишем- ... http://www.cyberforum.ru/cpp-beginners/thread980258.html
C++ Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне
Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне
Ввести 5 дробных чисел и после ввода каждого числа вывести среднее арифметическое введённой части последовательности C++
Ввести 5 дробных чисел и после ввода каждого числа вывести среднее арифметическое введённой части последовательности.
C++ Найти все делители целого положительного числа http://www.cyberforum.ru/cpp-beginners/thread980234.html
Найти все делители целого положительного числа
C++ Определить, находится ли в массиве введенное с клавиатуры число Написать программу которая проверяет находится в массиве введенное с клавиатуры число.Вивесты его на экран подробнее

Показать сообщение отдельно
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222

с паскаля в с++ - C++

17.10.2013, 21:22. Просмотров 393. Ответов 7
Метки (Все метки)

помогите перевести с код паскаля в с++
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
program MYstring;
var len1, len2:byte;
    s1, s2: string;
function center (s1,s2:string; len1,len2:byte):string;
var res:string;
    ind,i1,i2:integer;
 
begin
  res := s1;
  res[0] := chr(len1+len2);
  ind := len1 div 2;
  i1 := len1+len2;
  i2 := len1;
  repeat
         res[i1] := res[i2];
         dec(i2); dec(i1);
  until i2=ind;
  for i1 := 1 to len2 do res[ind+i1] := s2[i1];
  center := res;
end;
begin
     repeat
     writeln('Input string:');
     readln (s2);
     readln (s1);
     len1 := ord(s1[0]);
     len2 := ord(s2[0]);
     if len1+len2>255 then writeln ('Wrong input data');
     until len1+len2 <= 255;
     writeln (center(s1,s2,len1,len2));
     writeln ('Enter from EXIT');
     readln;
end.
Добавлено через 1 час 3 минуты
хеллллп

Добавлено через 32 минуты
хеллллп
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru