Помощь - Поиск - Пользователи - Календарь
Полная версия: Перевод из Delphe на С++
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
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 выбивается такая ошибка помогите
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.