Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Vomal
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 2
#1

Для заданной строки символов найти наибольшее записанное в этой строке целое число - Turbo Pascal

24.10.2017, 23:11. Просмотров 121. Ответов 1
Метки нет (Все метки)

Для заданной строки символов найти наибольшее записанное в этой строке целое число (без учета знака числа) и вычислить разницу между первым и последним найденным числом.
Например, для строки “sdfvgsd1.9fdmjgvb-15.2dnj052” наибольшее целое число 15, разница 2-1=1.
спасибо всем кто поможет
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2017, 23:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Для заданной строки символов найти наибольшее записанное в этой строке целое число (Turbo Pascal):

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором...

Цикл: Найти наибольшее положительное целое число n, для кого выполняется заданное условие
Использовать оператор цикла с ПОСТУСЛОВИЕМ. Найти наибольшее положительное...

Найти элементы каждой строки матрицы, которые повторяются наибольшее число раз в своей строке
Найдите элементы каждой строки матрицы, которые повторяются наибольшее число...

Найти наибольшее целое число K, квадрат которого не превосходит N
как решить? Дано целое число N (&gt; 0). Найти наибольшее целое число K,...

Найти наибольшее целое положительное число n удовлетворяющее условию
Дано число a&gt;0 Найти наибольшее целое положительное число n удовлетворяющее ...

В данном двухмерном массиве A[1..n,1..n] с целыми коэффициентами для каждой строки найти максимальное значение элемента в этой строке
6. В данном двухмерном массиве A с целыми коэффициентами для каждой строки...

1
Joy
Эксперт Pascal/Delphi
2119 / 1159 / 1418
Регистрация: 29.08.2014
Сообщений: 4,221
25.10.2017, 12:27 #2
Лучший ответ Сообщение было отмечено Vomal как решение

Решение

в условии ошибка - последнее найденное число - 52 и оно же максимальное
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
var
  s,t:string;
  b:boolean;
  i,a,c:integer;
  FirstNumber,LastNumber,MaxNumber:integer;
begin
  write('Text:');readln(s);
  s:=s+' ';
  t:='';
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then t:=t+s[i] else
    if t<>'' then begin
      Val(t,a,c);
      t:=''; 
      if not b then begin
        FirstNumber:=a;
        MaxNumber:=a;
        LastNumber:=a;
        b:=true;
      end else begin
        if a>MaxNumber then MaxNumber:=a;
        LastNumber:=a;
      end;
   end;
   if not b then writeln('No numbers in string!') else begin
     writeln('Maximum number:',MaxNumber);
     writeln('First Number:',FirstNumber);
     writeln('Last Number:',LastNumber);
     writeln(lastNumber,'-',FirstNumber,'=',LastNumber-FirstNumber);
   end;
end.
Код
Text:sdfvgsd1.9fdmjgvb-15.2dnj052
Maximum number:52
First Number:1
Last Number:52
52-1=51
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2017, 12:27
Привет! Вот еще темы с решениями:

Дано целое число N (> 1). Вывести наибольшее целое K...
Дано целое число N (&gt; 1). Вывести наибольшее целое K, при котором выполняется...

Перед каждой строкой текстового файла вставить номер строки и количество символов в этой строке
Перед каждой строкой текстового файла вставить номер строки и количество...

Для каждой строки файла найти слово, содержащее наибольшее число различных букв и поместить его в файл G
помогите решить задачку) Создать текстовый файл F. Для каждой строки найти...

Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов
Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K...


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

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

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