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

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

Войти
Регистрация
Восстановить пароль
 
viktor-952
0 / 0 / 0
Регистрация: 07.05.2012
Сообщений: 3
#1

переписать задачу с языка Pascal на С++! - C++

22.05.2012, 17:03. Просмотров 281. Ответов 0
Метки нет (Все метки)

Завтра надо сдать отчет все есть кроме одной задачи!
Pascal
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
uses crt;
const cf=['0'..'9'];
var s:string;
    i,k,n,mx,nmx,kmx:byte;
begin
clrscr;
write('Строка:  ');
readln(s);
s:=s+' ';
mx:=0;nmx:=1;
i:=1;
while i<=length(s)do
if s[i] in cf then
 begin
  n:=i;k:=1;
  while s[n+k] in cf do
  k:=k+1;
  if k>mx then
    begin
     mx:=k;
     nmx:=n;
    end;
  i:=i+k+1;
 end
else i:=i+1;
writeln('Самая длинная цепочка цифр ',copy(s,nmx,mx));
write('Количество=',mx);
readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 17:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос переписать задачу с языка Pascal на С++! (C++):

Переписать символы с входящего рядка в выходящий, меняя операторы языка паскаль на операторы языка С++ := на =, = на ==, # на != - C++
Переписать символы с входящего рядка в выходящий, меняя операторы языка паскаль на операторы языка С++ := на =, = на ==, # на != Спасибо.

помогите задачу перевести с языка с++ на с - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main() { double A,maxx,sum=0.0,max; ...

Аналог label языка Pascal в C++ - C++
class myClass { public: void execGoto() { goto label; } }; void main() { myClass a; ...

Перевести код с языка Pascal - C++
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на С++: var s:string; begin ...

Перевод кода с языка Pascal на C++ - C++
Доброго времени суток всем. Дабы не плодить темы, также отпишусь здесь: необходимо перевести код паскаля на С, С++ ил С#, любой из них. В...

Перевести код с языка Pascal на язык C++ - C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2012, 17:03
Привет! Вот еще темы с ответами:

Перевести код с языка Pascal на язык С++ - C++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter count = ');readln(n); rez:=1; ...

Ошибка при переводе программы с языка Pascal - C++
Задание гласит: Вычислить 18 значений функции a{x}^{2}+bx+c на отрезке , сохранив их в массиве Y и определить, имеет ли уравнение на...

Найти ошибку в коде после перевода с языка Pascal - C++
nmcf, #include &lt;iostream&gt; #include&lt;stdio.h&gt; #include &lt;cstdlib&gt; using namespace std; #include &quot;stdafx.h&quot; div_t c,r; int...

Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) - C++
Помогите перевести из языка Pascal в СИ: var a: array of integer max,min,i,k:integer; begin max:= a; min:= a; for i:= 1...


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

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

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