Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
nik9611
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 10
1

Даны два вещественных числа. Сколько между ними целых чисел?

18.03.2012, 10:12. Просмотров 649. Ответов 4
Метки нет (Все метки)

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

Даны десять вещественных чисел. Найти их среднее арифметическое
3) Даны десять вещественных чисел. Найти их среднее арифметическое

Калькулятор больших чисел целых и вещественных
Очень нужно в ближайшее время сделать Калькулятор больших чисел целых и...

Даны три целых числа; возвести в квадрат отрицательные числа и в третью степень положительные
даны три целых числа возвести в квадрат отрицательные числа и в третью степень...

Обеспечить ввод двух целых чисел и выполнение над ними операции деления
создать приложение, обеспечивающее ввод двух целых чисел и выполнение над ними...

Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них отрицательных
Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько...

4
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,477
Завершенные тесты: 1
18.03.2012, 10:48 2
Вроде так.
0
Вложения
Тип файла: rar WinRAR archive.rar (2.49 Мб, 10 просмотров)
nik9611
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 10
18.03.2012, 10:58  [ТС] 3
Цитата Сообщение от zuxa-zuxa Посмотреть сообщение
Вроде так.
Можешь просто написать.
А то у меня не открывается этот архив.
0
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,477
Завершенные тесты: 1
18.03.2012, 10:59 4
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)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  r:integer;
  a,b:real;
  a1,b1:string;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  a1:=Edit1.Text;
  b1:=Edit2.text;
  val(a1,a);
  val(b1,b);
  r:=0;
  if a>b then
  begin
    while a>b do
    begin
      a:=a-1;
      r:=r+1;
    end;
  end;
  if b>a then
  begin
    while b>a do
    begin
      b:=b-1;
      r:=r+1;
    end;
  end;
  r:=r-1;
  Label1.Caption:=IntToStr(r);
end;
 
end.
1
nik9611
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 10
18.03.2012, 11:05  [ТС] 5
Цитата Сообщение от zuxa-zuxa Посмотреть сообщение
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)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  r:integer;
  a,b:real;
  a1,b1:string;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  a1:=Edit1.Text;
  b1:=Edit2.text;
  val(a1,a);
  val(b1,b);
  r:=0;
  if a>b then
  begin
    while a>b do
    begin
      a:=a-1;
      r:=r+1;
    end;
  end;
  if b>a then
  begin
    while b>a do
    begin
      b:=b-1;
      r:=r+1;
    end;
  end;
  r:=r-1;
  Label1.Caption:=IntToStr(r);
end;
 
end.
Спасибо конечно, но не считает он что-то.
Ну то-есть проек запускается, все норм, но число какое-то левое.
0
18.03.2012, 11:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.03.2012, 11:05

Даны два слова. Как определить, сколько раз первая буква первого слова повторится во втором слове?
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin...

Даны два натуральных числа. Определить сколько чисел на отрезке между ними являются факториалами
Даны два натуральных числа. Определить сколько чисел на отрезке между ними...

Вводятся два целых числа. Определить, сколько парных чисел находится между ними и найти их сумму
Ребят, помогите пожалуйста, очень срочно нужно решить в Delphi: Вводятся два...


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

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

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