Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Iason21
1

Найти произведение всех целых чисел от A до B включительно

24.05.2012, 22:33. Просмотров 874. Ответов 1
Метки нет (Все метки)

Даны два целых числа А и В
(A < B). Найти произведение всех
целых чисел от A до B включитель-
но.

Помогите решить, я абсолютнейший чайник, а решение надо отослать до полуночи.
Откликнитесь, пожалуйста
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2012, 22:33
Ответы с готовыми решениями:

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
помогите

Найти произведение всех целых чисел от A до B (включительно)
Даны два целых числа A и B (A&lt;B). Найти произведение всех целых чисел от A до B (включительно) ...

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
Помогите Пожалуйста

Найти произведение всех целых чисел от А до В включительно
даны 2 целых числа А и В (А&lt;В). найти произведение всех целых чисел от А до В включительно.

1
0 / 0 / 1
Регистрация: 23.05.2012
Сообщений: 4
24.05.2012, 23:38 2
Лучший ответ Сообщение было отмечено как решение

Решение

Добавь на форму 2 edit, 2 label и 1 button... это всё скопируй и вставь вместо всего что есть в твоё юните... label1 как добавишь, поставь visible false...
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s1,s,a,b:integer;  i:Integer;
begin
  s1:=0;
label2.Visible:=false;
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
For i:=(a) to (b-1) do
begin
s:=i*(i+1);
s1:=s1+s;
end;
label1.caption:=label1.caption+' '+IntToStr(s1);
label1.Visible:=true;
end;
 
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".


Добавлено через 43 минуты
Sorry, сначала решил не правильно, сейчас вроде-бы работает...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  s1:=1;
label3.Visible:=false;
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
For i:=(a) to (b-1) do
begin
s:=i*(i+1);
s1:=(s1*s)/i;
end;
label1.caption:=label1.caption+' '+floatToStr(s1*a);
label1.Visible:=true;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2012, 23:38

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

Найти произведение всех целых чисел от A до B включительно
если можно с циклом for и while Добавлено через 1 час 22 минуты сделал сам:)

Найти произведение всех целых чисел от А до В включительно
Даны два целых числа А и В (А&lt;В). Найти произведение всех целых чисел от А до В включительно....

Найти произведение всех целых чисел от А до В включительно
Задано два целых А и В . (А&lt;В) найти произведение всех целых чисел от А до В включно. помогите...

Найти произведение всех целых чисел от А до В включительно
FOR Даны два целых числа А и В (А&lt;В). Найти произведение всех целых чисел от А до В включительно.


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

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

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