Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi При добавлении данных в StringGrid добавляется "ненужная" строка https://www.cyberforum.ru/ delphi-beginners/ thread1877267.html Всем привет, помогите избавиться от данной проблемы. Никак не могу сообразить. procedure TForm1.BitBtn1Click(Sender: TObject); var w, i: Word; begin w := StringGrid1.RowCount - 1; StringGrid1.Cells := Edit1.Text; StringGrid1.Cells := Edit2.Text; StringGrid1.Cells := Edit3.Text; StringGrid1.Cells := Edit4.Text;	Лабораторные задания Delphi Ребят можите пожалуйста помочь какие нибудь сделать из этих заданий
Delphi Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1877253.html помогите я не могу понять как это сделать. Буду очень благодарна.	Delphi Решение системы линейных уравнений методом Жордана-Гаусса Уважаемые программисты, пожалуйста, помогите, а то я в программировании полный ноль. Уважаемые программисты, пожалуйста, помогите, а то я в программировании полный ноль. Надо решить систему уравнений методом Жордана-Гаусса в среде Delphi, в следующем задании Пусть в некоторой системе одновременно протекают две химические реакции. Они характеризуются выходами U1 и U2. Зависимость выхода, ... https://www.cyberforum.ru/ delphi-beginners/ thread1877238.html
Delphi Составить программу, которая обеспечивает создание файла, в котором хранятся сведения об игрушках Составить программу, которая обеспечивает создание файла, в котором сведения об игрушках: указывается названием игрушки, ее стоимость и возрастные границы(например, игрушка может предназначаться для детей от двух до пяти лет), а также выполняет изменение данных и поиск по следующим критериям: a) название игрушек, цена которой не превышает 4000 руб. и которые подходят детям до четырех лет;...	Delphi Выяснить сколько положительных элементов содержит матрица https://www.cyberforum.ru/ delphi-beginners/ thread1877223.html Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица ;i,j=1,…,n, если aij=sin(i+ i⁄2). Вывести матрицу на экран.
Delphi Попадение точки в заштрихованную область https://www.cyberforum.ru/ delphi-beginners/ thread1877205.html Задание 1. Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения. Так же, если можно нарисовать график, где и разместится эта функция. Пожалуйста в VCL Forms Application Задание 2. Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести...	Строка состояния TStatusBar Delphi Подскажите, пожалуйста, как в строку состояния вывести размеры панели, на которой расположены кнопки, и предыдущий месяц?
Delphi Из Pascal в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1877187.html Помогите пожалуйста переписать код Pascal на Delphi. Очень нужно. Спасибо! program uravnenia; uses crt; const n=3; var v,a,b,c,d,a1,b1,c1,d1,i,t,j,m,p,k:integer; x1,x2:real; //Краммер	Delphi Перестановка элементов квадратной матрицы https://www.cyberforum.ru/ delphi-beginners/ thread1877181.html Путем перестановки элементов квадратной вещественной матрицы добиться того, чтобы ее максимальный элемент находился в левом верхнем углу, следующий по величине- в позиции (2,2), следующий по величине - в позиции (3,3) и т.д. заполнив таким образом всю главную диагональ. Найти номер первой из строк, не содержащих ни одного положительного элемента. Пожалуйста в VCL Forms Application ...
Delphi Сколько треугольников можно составить из заданных таблицей чисел? Задана таблица из N чисел. Сколько треугольников можно составить из тех чисел? Найдите треугольник с максимальной площадью	Delphi XML https://www.cyberforum.ru/ delphi-beginners/ thread1877117.html Нужно вывести в Label1.Caption текст из <text> ... <questions> <quest num="1"> <text>Как называется эта программа?</text> ... <quest num="2"> <text>Программа для игрового команндного общения</text> ... Как получить этот текст?

cfbogd

botsik

262 / 262 / 140

Регистрация: 05.06.2016

Сообщений: 1,247

Записей в блоге: 1

14.12.2016, 11:47

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

14.12.2016, 11:47. Показов 2373. Ответов 7

Метки (Все метки)

Сообщение было отмечено Гульназз как решение

Решение

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,p:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
p:=1;
repeat
p:=p*a;
inc(a);
until a=(b+1);
showmessage(inttostr(p));
end;

Вернуться к обсуждению:
Найти произведение всех целых чисел от A до B (включительно) Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.12.2016, 11:47

Готовые ответы и решения:

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

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

Найти произведение всех целых чисел от -5 до B для 1<b<10
Найти произведение всех целых чисел от -5 до B для 1<b<10

Найти сумму всех чётных чисел от 1 до 100 включительно
Ребятушки, уж извините, не разбираюсь в программировании, но нужно решить задачу. Найти сумму...

	14.12.2016, 11:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.12.2016, 11:47

Помогаю со студенческими работами здесь

Дана непустая последовательность ненулевых целых чисел. Найти произведение сумм чисел, равноудаленных от центра подпоследовательности
Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Найти произведение...

Найти произведение цифр четырехзначного числа (остаток от деления целых чисел)
Составить программы, используя указанные в скобках вспомогательные алгоритмы (вспомогательные...

Найти произведение всех чисел заданной строки
Задана строка, содержащая буквы и числа. Найти произведение всех чисел заданной строки. строки!!!

Найти произведение всех чисел, стоящих на местах кратных 4
Здравствуйте...может кто знает,как решить задачку на Delphi 7 Суть программы такова,надо найти...

Наверх