Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
sucrew
1 / 1 / 1
Регистрация: 08.10.2014
Сообщений: 56
#1

Найти количество и сумму всех максимальных чисел этого текста

12.06.2016, 02:32. Просмотров 195. Ответов 0
Метки нет (Все метки)

Дан текст, состоящий из строк. Каждая строка состоит из слов и чисел, разделенных
пробелами. Найти количество и сумму всех максимальных чисел этого текста
вот мой код
Delphi
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ButtonRun: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure ButtonRunClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  chArr: array[0..99] of string;
  t1, t2: boolean;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.ButtonRunClick(Sender: TObject);
var
  list1,list2: TStringList;
  i, j, x: integer;
begin
 list1 := TStringList.Create;
 list1.Delimiter := ' ';
 list1.DelimitedText:=Memo1.Text;
 list2 := TStringList.Create;
 Memo2.Clear;
 for i := 0 to list1.Count - 1 do
  begin
   val(list1[i],x,j);
   if(j=0)and(abs(x)in [1..9999]) then list2.AddStrings(list1[i]);
  end;
x:=0;
if list2.Count=0 then Memo2.Lines.Add('чисел нет')
else
 begin
  for i:=0 to list2.Count-1 do
   begin
    Memo2.Lines.Add(list2[i]);
    x:=x+strtoint(list2[i]);
   end;
 end;
Memo2.Lines.Add('Сумма чисел='+inttostr(x));
end;
 
 
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2016, 02:32
Ответы с готовыми решениями:

Найти сумму всех различных двузначных чисел из этого текста и вывести список этих чисел
Дан текст, состоящий из строк. Каждая строка состоит из слов и чисел,...

Найти сумму всех чисел, находящихся в строке
Помогите написать код к задаче - " найти сумму всех чисел строки. В строке...

Найти сумму всех целых чисел от A до B (значения A и B вводятся с клавиатуры ) B>=A
Найти сумму всех целых чисел от A до B (значения A и B вводятся с клавиатуры )...

Найти сумму квадратов чётных чисел и сумму кубов нечётных чисел от 1 до Н
Даны 2 задания , 1) найти сумму квадратов чётных чисел и сумму кубов нечётных...

Найти номера двух ближайших чисел из этого массива
Дан массив размера N. Найти номера двух ближайших чисел из этого массива. для...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2016, 02:32

Найти количество отрицательных элементов этого массива, расположенных ниже левой диагонали
Дан целочисленный массив В. Найти количество отрицательных элементов этого...

Определить сумму всех цифр/чисел в заданном тексте
Разместите на форме два компонента TMemo, и несколько кнопок. Второй компонент...

Вывести сумму всех положительных четных чисел из данного массива
1) Дан массив, состоящий из N ненулевых целых чисел. Вывести сумму всех...


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

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

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