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

Перевод с Pascal на С++(16 строк) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ задана некоторая сумма в рублях.определить минимальное количество монеток http://www.cyberforum.ru/cpp-beginners/thread860736.html
задана некоторая сумма в рублях.определить минимальное количество монеток достоинством 1, 2 и 5 рублей, необходимое для того, чтобы набрать данную сумму
C++ Структуры. Программа должна выводить время в днях:часах:минутах:секундах и увеличивать,уменьшать время на 1 секунду Помогите написать программу с помощью структур.Она должна выводить время в днях:часах:минутах:секундах и увеличивать,уменьшать время на 1 секунду.Также разность времен и сумму времен,с выводом... http://www.cyberforum.ru/cpp-beginners/thread860725.html
C++ Не используйте Scanf и Printf (вывести календарь на указанный месяц этого года)
Вводится день, месяц и год, вывести:1)календарь на указанный месяц этого года. 2)Определить день недели по введенное дате. 3)Определить порядковый номер дня в неделе. Не судите меня строго что...
бесконечный ряд интеграла Френеля C++
нужно написать функцию для вычисления знакочередующегося ряда C(x)=\sum_{n=0}^{oo}\frac{{(-1)}^{n}{(\pi/2)}^{2n}}{2n!(4n+1)}{x}^{4n+1} помогите найти ошибку (на выходе неверные значения) ...
C++ Структура студент. Поиск группы с макс. оценкой http://www.cyberforum.ru/cpp-beginners/thread860699.html
Есть структура студент. Необходимо найти и вывести группу с максимальным средним баллом. Я вот тут написал сам, но то что получилось у меня выводит только одну первую группу, а если групп с...
C++ Бинарное дерево. Исправка кода Помогите, пожалуйста, исправить код. Мне нужно сделать, чтобы диапазон значений дерева работал нормально + элементы в дереве не повторялись. #include <iostream> #include <string.h> #include... подробнее

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

Перевод с Pascal на С++(16 строк) - C++

10.05.2013, 16:28. Просмотров 304. Ответов 5
Метки (Все метки)

Всем добрый день!
Так и не разобрался как пользоваться транслятором.
Помогите пожалуйста перевести эти несчастные 16 строк..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program strug_production;
var s_out, s_in, str,itogstroka,tekbukva: string;
fa: text;
ik, len, n: integer;
begin
  assign(fa, 'c:\text.txt');
  reset (fa);
  
  itogstroka:='';
  {раскладываем строчку из файла}
  while not Eof(fa) do begin
    readln (fa, str);
    len:=length(str);
    n:=1;
    While n<len+1 do begin
        tekbukva:= Copy(str, n, 1);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru