Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Dolar7
0 / 0 / 0
Регистрация: 12.06.2013
Сообщений: 22
#1

переведите на С++ - C++

17.06.2013, 18:15. Просмотров 219. Ответов 2
Метки нет (Все метки)

переведите на С++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var s,p:string; b:char; i:integer;
Begin
Write('Input text:'); Readln(s);
Write('Input letter:'); Readln(b);{ввод буквы}
For i:=1 to length(s) do
 If not(s[i]=' ') and not(i=length(s))then p:=p+s[i]{собираем слова посимвольно}
 Else
  Begin
   If i=length(s) then p:=p+s[i];
   If upcase(p[1])=upcase(b) then Writeln(p);{если буквы сходятся, то выводим слово}
   p:='';
  End;
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 18:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос переведите на С++ (C++):

Переведите на С - C++
Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив ( где каждая строка стороны...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Переведите формулу на C++ - C++
Переведите пожалуйста вот эту формулу на язык C++. прикрепите картинку к сообщению Заранее Спасибо.

Переведите программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Файл F...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
anmartex
...
1705 / 1198 / 496
Регистрация: 12.02.2013
Сообщений: 1,978
17.06.2013, 19:17 #2
Цитата Сообщение от Dolar7 Посмотреть сообщение
переведите на С++
Просто перевёл, без отсебятины:
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
34
35
36
37
38
#include <iostream>
#include <string>
#include <cctype>
 
int main()
{
   std::string s;
   std::cout << "input text: ";
   getline(std::cin, s);
 
   char b;
   std::cout << "input letter: ";
   std::cin >> b;
 
   std::string p;
   for (size_t i = 0; i < s.size(); ++i)
   {
      if ((s[i] != ' ') && (i != s.size() - 1))
      {
         p += s[i];
      }
      else
      {
         if (i == s.size() - 1)
         {
            p += s[i];
         }
 
         if (toupper(p[0]) == toupper(b))
         {
            std::cout << p << std::endl;
         }
         p.clear();
      }
   }
 
   return 0;
}
1
incrome
9 / 9 / 0
Регистрация: 03.07.2012
Сообщений: 60
17.06.2013, 19:43 #3
Можно еще написать в самом начале так:
C++
1
using namespace std;
Ну и в программе избавится от надоедливой надписи "std::"
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 19:43
Привет! Вот еще темы с ответами:

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...

Переведите с Pascal на C++ - C++
Уважаемые программисты, переведите с Pascal на C++, пожалуйста var a, h, z:longint; tz, tgz, rez:real; begin readln (a,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru