2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
1

перевести на c++ с паскаля

29.12.2011, 21:23. Показов 11129. Ответов 17
Метки нет (Все метки)

переведите пожалуйста
как написать эти строчки на с++
for i:=1 to Length(s) do


for j:=length(sl) downto 1 do

Добавлено через 13 минут
нууууууу
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2011, 21:23
Ответы с готовыми решениями:

Перевести с паскаля на Си++
вообщем программа на паскале нужно перевести на с++ суть проги поменять местами главную диагональ...

перевести с Паскаля в с++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); ...

Перевести с Паскаля на С++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите произведение нескольких...

Перевести с Паскаля на Си
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ...

17
43 / 43 / 13
Регистрация: 17.05.2011
Сообщений: 162
29.12.2011, 21:39 2
for i:=1 to Length(s) do
C++
1
2
3
for(int i=1;i<=strlen(s);i++)
 {
 }
Добавлено через 33 секунды
for j:=length(sl) downto 1 do

C++
1
2
3
for(int j=strlen(sl);j>=1;j--)
 {
 }
0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
29.12.2011, 22:27  [ТС] 3
перевидите вот это
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var
  i,j:Integer;
  s,sl,b:string;
begin
write ('Vvedite slovo ');
Readln(s);
sl:=' ';
s:=s+' ';
  for i:=1 to Length(s) do
  begin
  while s[i]<>' ' do
  begin
  sl:=sl+s[i];
  inc(i);
  end;
 
  for j:=length(sl) downto 1 do
  b:=b+sl[j];
  b:=b+' ';
  sl:='';
  if i>length(s) then i:=length(s);
  end;
  s:=b;
  writeln(s);
end.
Добавлено через 19 минут
нуууууууу народ
0
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
29.12.2011, 22:37 4

Не по теме:

Цитата Сообщение от ilyashis Посмотреть сообщение
нуууууууу
Цитата Сообщение от ilyashis Посмотреть сообщение
нууууууу
баранки гну



Условие задачи то, где?
1
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
29.12.2011, 22:45  [ТС] 5
Составить программу, которая переворачивает каждое слово строки S.



только напишите прогу похожую на мою
0
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
29.12.2011, 22:57 6
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream>
#include <algorithm>
#include <string>
#include <sstream>
 
int main()
{
    std::string Str, NewStr;
    std::cout<<"Enter string:"<<std::endl;
    std::getline(std::cin, Str);
    std::istringstream ist(Str);
    while(ist>>Str)
    {
         std::reverse(Str.begin(), Str.end());
         NewStr += Str+" ";
    }
    std::cout<<"Reversed string:\n"<<NewStr<<std::endl;
    system("pause");
    return 0;
}
0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
29.12.2011, 23:02  [ТС] 7
мы эту тему не прошли
переведи с пачкаля просто плизззз
0
Thinker
29.12.2011, 23:05
  #8

Не по теме:

ilyashis, если кто-то трясущейся рукой написал ту программу на паскале (хотя можно много лучше было сделать), то резон какой в роли переводчика выступать без новаторских идей.

0
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
29.12.2011, 23:06 9

Не по теме:

Цитата Сообщение от ilyashis Посмотреть сообщение
мы эту тему не прошли
Es ist nur deine Probleme


Книгу в руки и вперед. В С++ иная работа со строками и грубо переводить с паскаля смысла нет
0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
29.12.2011, 23:07  [ТС] 10
я уже показывал код который написал Dekio
мне препод сказал написать прогу по теме
0
go
Эксперт С++
3645 / 1377 / 243
Регистрация: 16.04.2009
Сообщений: 4,526
29.12.2011, 23:07 11
Peperovich, не совсем так, коды будут не эквивалентые.
0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
30.12.2011, 00:25  [ТС] 12
помогите
0
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
30.12.2011, 00:27 13
Цитата Сообщение от ilyashis Посмотреть сообщение
помогите
Хватит ныть, тебе на 1 странице дали код
0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
30.12.2011, 00:29  [ТС] 14
она для меня сложная
0
85 / 9 / 1
Регистрация: 05.04.2010
Сообщений: 143
30.12.2011, 00:38 15
ilyashis,

Не по теме:

таких как вы здесь не любят. Научитесь правильно обращаться за помощью.

0
2 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 137
30.12.2011, 00:58  [ТС] 16
все я сделал
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
 int i,j;
 string s,sl,b;
     cout<<"Vvedite slovo ";
     cin>> s;
     sl="";      // sl обнуляется
     s=s+' ';    // прибовляет пробел в конец строки
     for(int i=0;i<s.size();i++)     //
        {
          while (s[i]!=' ')             // пока s[i] не пробел
             {
                 sl=sl+s[i];            //отделяет слово от гл стр
                 i++;
  
             }
          for (int j=sl.size()-1;j>=0;j--)
  
            b=b+sl[j];
            b=b+' ';
            sl="";
             if (i>s.size())
             i=s.size();
  
        }
     s=b;
     cout<<s<<endl; 
     system("pause");
  }
блин эксперты
0
Эксперт С++
2343 / 1716 / 148
Регистрация: 06.03.2009
Сообщений: 3,675
30.12.2011, 01:11 17
ilyashis, сразу бы так.
0
0 / 0 / 0
Регистрация: 14.05.2020
Сообщений: 2
14.05.2020, 15:00 18
program c4;

const DMAX=100; {максимально возможное количество детей}

var

N: integer; {количество утренников}

D: integer; {количество детей на утреннике}

K: integer; {количество конфет}

r: integer; {остаток}

c: array[1..DMAX-1] of integer; {счетчики остатков}

i: integer;

imax: integer;

begin

{предварительная очистка счетчиков}

for i:=1 to DMAX-1 do c[i]:=0;

readln(N);

{ввод данных, подсчет количества каждого остатка}

for i:=1 to N do begin

readln(D, K);

r := K mod D;

if r>0 then c[r]:=c[r]+1;

end;

{выбор самого частого остатка}

imax:=1;

for i:=2 to DMAX-1 do begin

if c[i]>=c[imax] then imax:=i;

end;

if c[imax]=0 then imax:=0;

writeln(imax);

end.

Переведите пж на C++
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2020, 15:00
Помогаю со студенческими работами здесь

Перевести с Паскаля на С++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная...

перевести в си++ из паскаля
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N:...

Перевести с Паскаля на С++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A&gt;B)then begin...

Перевести с Паскаля на Си
uses crt; var a,n:Longint; b:boolean; begin clrscr; write('a=');readln(a); n:=2; while...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru