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

Перевести на C++ из Pascal - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Создать класс Pair (пара чисел); определить методы изменения полей и вычисления произведения чисел. http://www.cyberforum.ru/cpp-beginners/thread554490.html
Создать класс Pair (пара чисел); определить методы изменения полей и вычисления произведения чисел. Определить производный класс Rectangle (прямоугольник) с полями-сторонами. Определить методы вычисления периметра и площади прямоугольника Добавлено через 27 минут пожалуйста помогите(
C++ Помогите с теорией. Пожалуйста.) 1.Какое наибольшее число ребер может быть в двудольном графе с 2n вершинами? http://www.cyberforum.ru/cpp-beginners/thread554482.html
Перевод символа в unicode C++
Всем привет, есть такая задача: допустим у меня есть последовательность русских символов: АБВГ, нужно, чтобы эти символы представились в unicod в шестнадцеричном представление, т.е. C0 C1 C2 C3. Собственно и вопрос, каким образом это можно сделать? P.S. Компилятор использую MinGW
C++ Запись структуры в файл, но стуктура цифровая (int)
нужно записать структуру с цифровыми полями Но запись в файле должна быть структурированной.. _____
C++ В заданном массиве отсортировать по возрастанию его часть, находящуюся между двумя введенными номерами. http://www.cyberforum.ru/cpp-beginners/thread554460.html
#include <iostream.h> #include <stdlib.h> #include <iomanip.h> int i; void main() { srand(time(NULL)); const n=7; int a,low,high,tmp; for (i=0;i<n;i++)
C++ Вычисление интеграла помогите пожалуйста я вообще не знаю как сделать интеграл подробнее

Показать сообщение отдельно
i_SamSky
 Аватар для i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57
21.04.2012, 18:06     Перевести на C++ из Pascal
Буду очень рад тому, кто переведет из Pascal на C++
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure ChangeToInc(var st:string);
var f:boolean;
begin
 f:=true; //удовлетворяет ли шаблону
 while pos(' ',st) > 0 do delete(st,pos(' ',st)+1); //удаляем все имеющиеся пробелы
 if copy(st,length(st)-2,3) = '+1;' then delete(st,length(st)-2,3) else f:=false; //если хвост - '+1', то отсекаем
 if pos(':=',st)>0 then delete(st,pos(':=',st),length(':=')) else f:=false;
 //оставшееся часть строки должна быть шаблоном типа <переменная><переменная>
 if copy(st,1,length(st) div 2) <> copy(st,length(st) div 2 + 1, length(st) div 2) then f:=false;
 if f then st := 'inc(' + copy(st,1,length(st) div 2) + ');';
end;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:46. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru