Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > С/С++
Перезагрузить страницу Перевод из Pascal в С++
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Garg Garg вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.05.2010
По умолчанию 05.05.2010, 08:38

Нужна помощь в переводе из паскаля на с++ вот этой проги, просто у самого никак не получается... Заранее благодарен за помощь :-(


Код:
program rome2arab;
uses crt;
var s:string;
    n,c,c1,i,a:integer;
begin
writeln('Пожалуйста введите римское число, которое вы хотите перевести:');
      readln(s);
      c:=0;n:=0;
      for i:=1 to length(s) do
        begin
            c1:=c;
            if s[i]='I' then c:=1;
            if s[i]='V' then c:=5;
            if s[i]='X' then c:=10;
            if s[i]='L' then c:=50;
            if s[i]='C' then c:=100;
            if s[i]='D' then c:=500;
            if s[i]='M' then c:=1000;
            if c>c1 then a:=-2*c1
                    else a:=0;
            n:=n+a+c
    end;
      writeln('Это чтисло в десятичной форме =',n);
      readln;
end.
Ответить с цитированием
  (#2 (permalink)) Старый
Зирк Зирк вне форума
Member
 
Сообщений: 1,337
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.04.2005
По умолчанию 05.05.2010, 11:55

[quote]
Код:
#include <iostream>
#include <string.h>
using namespace std;
int main(){
cout<<"Пожалуйста введите римское число, которое вы хотите перевести:";
char* str;
str=new char[256];
cin>>str;
int c=0;
int n=0;
int c1;
int a;
for(int i=0;i<=strlen(str);i++){
  c1=c;
  if(str[i]=='I')c=1;
    else if (str[i]=='V') c=5;
    else if (str[i]=='X') c=10;
    else if (str[i]=='L') c=50;
    else if (str[i]=='C') c=100;
    else if (str[i]=='D') c=500;
    else if (str[i]=='M') c=1000;
      if (c>c1)a=(-2)*c;
        else a=0;
  n=n+a+c;
}
cout<<"\n'Это чтисло в десятичной форме ="<<n;
cin>>n;
}
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод с Delphi на C# Ardni Delphi 0 19.12.2011 17:18
перевод времени win 7 игарокby Любые вопросы от новичков 8 07.11.2011 23:58
Перевод из C++ в Delphi fredwriter Delphi 1 08.10.2010 12:34
Перевод написанной программы в Pascal на C++ sky999 Вопросы начинающих программистов 2 20.07.2009 12:02
Перевод из ДНФ в КНФ VANISH-fcsm Prolog 0 03.05.2009 18:05
Перевод программы с Pascal в C++ roobpass Вопросы начинающих программистов 1 24.04.2009 20:06
Pascal Перевод в Польскую запись Аллочка Pascal 3 29.12.2008 13:18
Перевод моделей в 3D _kT Программирование графики 1 09.11.2007 15:17
Перевод из 3d в 2d координаты dralexthk Программирование графики 4 11.04.2007 12:34
Перевод программы с Pascal на С++ matic Вопросы начинающих программистов 6 21.03.2007 13:46
Перевод программного кода из Pascal в Delphi azard Delphi 0 26.11.2005 17:34
Перевод данных из HEX MG Delphi 0 29.02.2004 12:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов