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

Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) - C++

Восстановить пароль Регистрация
 
Makssqrt
1 / 1 / 0
Регистрация: 09.05.2013
Сообщений: 15
16.06.2013, 12:17     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) #1
Всем привет.
Вот необходимо переписать этот код на С++ помогите плз:
Задание 1.
Кликните здесь для просмотра всего текста
Найти максимальную цифру в тексте строки.

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
30
31
32
uses crt;
const cf=['0'..'9'];
var s,s1:string;
    t,c,mx:integer;
    n,i,j,k,f:byte;
begin
clrscr;
writeln('Введите текст содержащий целые числа:');
readln(s);
i:=1;
mx:=-maxint-1;
f:=0;
while i<=length(s) do
if (s[i] in cf)and (not(s[i-1]in cf)or(i=1)) then
 begin
  k:=i;
  s1:='';
  f:=1;
  while (s[k] in cf)and(k<=length(s))do
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  val(s1,t,c);
  if t>mx then mx:=t;
  i:=i+length(s1);
 end
else i:=i+1;
if f=0 then write('В тексте нет чисел')
else write('Максимальное число=',mx);
readln
end.
Добавлено через 1 час 34 минуты
И если можно попроще.
Не используя слишком сложные функции требующие различные параметры и другое.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2013, 12:17     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++)
Посмотрите здесь:

Найти в файле максимальную длину строки и вывести в новый файл все строки, имеющую такую длину C++
C++ как найти максимальную сумму значений элементов строки в массиве?
Определить максимальную и минимальную цифру числа C++
C++ Строка: Найти в тексте самую большую цифру.
Дано число, найти максимальную цифру и количество простых цифр C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Thinker
Эксперт C++
 Аватар для Thinker
4215 / 2189 / 150
Регистрация: 26.08.2011
Сообщений: 3,802
Записей в блоге: 5
16.06.2013, 14:23     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) #2
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include<stdio.h>
#include<ctype.h>
char Max(char *s)
{
   char buf;
   return *s ? (isdigit(*s) ? ((buf = Max(s + 1)) > *s ? buf : *s) : Max(s + 1)) : 0;
}
 
int main()
{
   char s[1024];
   fgets(s, 1024, stdin);
   printf("max = %c\n", Max(s));
   return 0;
}
Makssqrt
1 / 1 / 0
Регистрация: 09.05.2013
Сообщений: 15
16.06.2013, 15:27  [ТС]     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) #3
Цитата Сообщение от Thinker Посмотреть сообщение
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include<stdio.h>
#include<ctype.h>
char Max(char *s)
{
   char buf;
   return *s ? (isdigit(*s) ? ((buf = Max(s + 1)) > *s ? buf : *s) : Max(s + 1)) : 0;
}
 
int main()
{
   char s[1024];
   fgets(s, 1024, stdin);
   printf("max = %c\n", Max(s));
   return 0;
}
Все работает отлично.
P.S. поясни мне эту строчку если можно : return *s ? (isdigit(*s) ? ((buf = Max(s + 1)) > *s ? buf : *s) : Max(s + 1)) : 0;
Thinker
Эксперт C++
 Аватар для Thinker
4215 / 2189 / 150
Регистрация: 26.08.2011
Сообщений: 3,802
Записей в блоге: 5
16.06.2013, 15:32     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) #4
Цитата Сообщение от Makssqrt Посмотреть сообщение
Где идет прием данных от пользователя ?
fgets()

Цитата Сообщение от Makssqrt Посмотреть сообщение
что идет просчет по символам ?
все спрятано в рекурсивной функции Max(). Если она не понятна, то просто считайте ее магической. Главное, все работает)))
Makssqrt
1 / 1 / 0
Регистрация: 09.05.2013
Сообщений: 15
16.06.2013, 15:50  [ТС]     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) #5
Всем спасибо.
Тему можно закрывать.
Yandex
Объявления
16.06.2013, 15:50     Найти максимальную цифру в тексте строки (Переделать с Pascal на С++)
Ответ Создать тему
Опции темы

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