Помощь - Поиск - Пользователи - Календарь
Полная версия: Перевод из Delphe на С++
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
stepansiy1
var sn,s:string;
    l,k,kod:integer;
    v,p:real;
begin
writeln('Введите строку');
readln(s);
l:=length(s);
p:=1; k:=1;
repeat
  sn:='';
  while (s[k]>='0')and(s[k]<='9')and(k<=l) do
   begin
    sn:=sn+s[k];
    k:=k+1;
   end;
   if sn<>'' then
   begin
    val(sn,v,kod);
    p:=p*v;
   end;
   k:=k+1;
   until k>l;
   writeln(' p=',p);
end.

Помогите перевести, ато нужно очень срочно сдать
TarasBer
Буквальный перевод

var sn,s:string;
    l,k,kod:integer;
    v,p:real;
begin



#include <iostream>
#include <string>
int main() 
{
  std::string sn,s;
  int l,k,kod;
  float v,p



writeln('Введите строку');
readln(s);
l:=length(s);
p:=1; k:=1;



cout<<"Введите строку";
cin>>s;
l=s.length();
p=1; k=1;



repeat
  sn:='';
  while (s[k]>='0')and(s[k]<='9')and(k<=l) do
   begin
    sn:=sn+s[k];
    k:=k+1;
   end;
   if sn<>'' then
   begin
    val(sn,v,kod);
    p:=p*v;
   end;
   k:=k+1;
   until k>l;



do
{
  sn="";
  while (s[k]>='0' && s[k]<='9' && k<=l)
  {
    sn=sn+s[k];
    k=k+1;
  };
  if (sn != "") 
  {
    stringstream ss(sn);
    ss>>v;
    p=p*v;
  };
  k=k+1;
} while (!(k>l));



   writeln(' p=',p);
end.



  cout << " p=" << p;
};

stepansiy1
Спасибо большое за помощь

Добавлено через 9 мин.
c:\ðàáîòà\îàèï\ñè++ âèñóàë\vc98\include\ios(9) : fatal error C1083: Cannot open include file: 'streambuf': No such file or directory выбивается такая ошибка помогите
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.