IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Перевод из Delphe на С++, Помогите перевести прграмму, ато при моём переводе получается уйма оши
stepansiy1
сообщение 10.01.2012 8:28
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


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.

Помогите перевести, ато нужно очень срочно сдать
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
TarasBer
сообщение 10.01.2012 10:13
Сообщение #2


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Буквальный перевод

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;
};



Сообщение отредактировано: TarasBer - 10.01.2012 10:14


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
stepansiy1
сообщение 10.01.2012 10:32
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


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

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

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 12:29
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"