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

Lazarus

Войти
Регистрация
Восстановить пароль
 
sucrew
1 / 1 / 0
Регистрация: 08.10.2014
Сообщений: 56
#1

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

12.06.2016, 02:32. Просмотров 172. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти количество и сумму всех максимальных чисел этого текста (Lazarus):

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

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

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

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

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

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

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

Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку и стоящих - Lazarus
Найти произведение положительных чисел и определить количество чисел, принадлежащих промежутку(A,B) и стоящих на нечетных местах.(в...

Найти сумму и количество всех положительных элементов массива, количество чисел = 0 и изменение знака всех чисел - Pascal
спасибо всем сможет помочь

С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных. - Pascal
В общем,ребята. Помогите написать код,буду очень признателен. С клавиатуры вводится последовательность дробных чисел(окончание ввода-0)...

Найти сумму всех нечетных чисел и количество четных чисел - QBasic
Помогите пожалуйста решить задачи или найти похожие решёные задачи. Буду рад любой помощи. Заранее благодарю. 1. Дана функция ....


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

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

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