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

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

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

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

22.05.2012, 17:03. Просмотров 275. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 17:03     переписать задачу с языка Pascal на С++!
Посмотрите здесь:

C++ Переписать код с Pascal
C++ помогите задачу перевести с языка с++ на с
Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) C++
Перепишите задачу из Pascal на C++ (Есть условие) C++
Аналог label языка Pascal в C++ C++
C++ Ошибка при переводе программы с языка Pascal
Переписать с pascal на c++ C++
Перевод кода с языка Pascal на C++ C++
C++ Переписать с Pascal на С++
C++ Перевести код с языка Pascal на язык C++
Перевести код с языка Pascal на язык С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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