С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Вычислить 100!+2^100 https://www.cyberforum.ru/ delphi-beginners/ thread2458863.html
Если можно то сразу архивом. Спасибо
Delphi Перевести код из Pascal в Delphi
Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонент. Если можно то сразу архивом. Спасибо.
Delphi Долгая загрузка в стринггрид из файла https://www.cyberforum.ru/ delphi-beginners/ thread2458787.html
у меня есть кнопка, с помощью которой я загружаю данные из файла в стринггрид. проблема в том, что в файле около 200 000 строк, соответственно, при загрузке всё как бы зависает. хотелось бы как-то показать более-менее анимированно, что идёт загрузка, а не что всё зависло. конечно, думал о прогресс баре, но там ведь нужно процентное соотношение. собственно говоря, пока идёт загрузка - никакие...
Delphi Рандомная загрузка заданий с ini файла https://www.cyberforum.ru/ delphi-beginners/ thread2458783.html
Как сделать загрузку заданий из файла рандомной ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst,IniFiles, jpeg;
База данных подшипников Delphi
Здравствуйте товарищи программисты! Делаю проект по делфи, и возник вопрос. Нужно сделать что-то типа базы данных подшипников. Чтобы при выборе типа подшипников в одном combobox, в другом заполнился внутренними диаметрами, а при выборе этого диаметра третий combobox заполнился уже наружными диаметрами, и соответственно при выборе наружного edit'ы заполнились всеми остальными параметрами. Вроде...
Delphi Delphi. Поток не запускается Здравствуйте, столкнулся с очень необычной штукой, по крайней мере для меня. Созданные потоки и он просто не начинает работать. Даже не думают начинать. Пробовал даже самый простой поток, который ничего не делает (Приведен ниже). Ставил точку останова в Execute, на самую первую строчку, он даже не заходит внутрь. Привел в низу самый простой код, и поток блин не стартует, просто не понимаю из за... https://www.cyberforum.ru/ delphi-beginners/ thread2458724.html
Delphi Преобразовать код Pascal в Delphi uses crt; type vl=record fio: string; adres: string; marka: string; nomer:string; year:integer; end; tfile=file of vl; https://www.cyberforum.ru/ delphi-beginners/ thread2458706.html Не работает тест Delphi
Помогите найти ошибки в коде: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, jpeg, Menus; type TForm1 = class(TForm) Memo1: TMemo;
Delphi Ошибка в блок-схеме Постановка задачи Найти все натуральные числа, не превосходящие заданного N, десятичная запись которых есть строго возрастающая или строго убывающая последовательность цифр. function numbers(n:integer):boolean; var a,b,k,k1,k2:byte; begin a:=n mod 10;//последняя цифра числа https://www.cyberforum.ru/ delphi-beginners/ thread2458626.html Delphi Объясните, что не так с кодом https://www.cyberforum.ru/ delphi-beginners/ thread2458609.html
procedure TForm1.Button1Click(Sender: TObject); const n=10; var b,c,d:double; a:integer; mas:array of string; begin setlength(mas,10); for a := 1 to n do b:=strtoFloat(inputbox('','вводите вещественные числа числа','')); mas:=FloatToStr(b);
Delphi Как в Memo правильно записать строчку?
Здраствуйте. Можете кто нибудь подсказать как правильно данную строку записать что бы записывало в Memo Form6.Memo1.Lines.Add('|'+Form2.Edit1.Text+'|'+Form2.Edit2.Text+'|'+P+'|'+Date); Спасибо!)
Delphi Поток не начинает работать https://www.cyberforum.ru/ delphi-beginners/ thread2458545.html
Здравствуйте, столкнулся с очень необычной штукой, по крайней мере для меня. Созданные потоки и он просто не начинает работать. Даже не думают начинать. Ставил точку останова в Execute, на самую первую строчку, он даже не заходит внутрь. Привел в низу самый простой код, и поток блин не стартует, просто не понимаю из за чего. Может дело в блоке в котором я создаю этот поток, так как в других...
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
24.05.2019, 08:59 0
Delphi 6-7

Составить программу умножения дроби на дробь - Delphi - Ответ 13596746

24.05.2019, 08:59. Показов 2941. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZedbiV как решение

Решение

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
procedure TForm1.Button1Click(Sender: TObject);
function NOD(n,m:integer):integer;
begin
if n<>0 then NOD:= NOD(m mod n,n) else NOD:=m;
end;
 
var a,b,c,d,p,q:integer;
begin
repeat
a:=strtoint(inputbox('','Введите числитель 1 дроби натуральное число a>0 a=','1'));
until a>0;
repeat
b:=strtoint(inputbox('','Введите знаменатель 1 дроби, натуральное число b>1 b=','2'));
until b>1;
repeat
c:=strtoint(inputbox('','Введите числитель 2 дроби, натуральное число c=','1'));
until c>0;
repeat
d:=strtoint(inputbox('','Введите знаменатель 2 дроби, натуральное число d=','1'));
until d>1;
Edit1.Text:=inttostr(a)+'/'+inttostr(b)+'*'+inttostr(c)+'/'+inttostr(d)+'=';
a:=a*c;
b:=b*d;
p:=a div Nod(a,b);
q:=b div Nod(a,b);
Edit1.Text:=Edit1.Text+inttostr(p)+'/'+inttostr(q);
end;


Вернуться к обсуждению:
Составить программу умножения дроби на дробь Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2019, 08:59
Готовые ответы и решения:

Даны две дроби A/B и C/D. Составить программу умножения дроби на дробь.
2. Даны две дроби A/B и C/D (A, B, C, D — натуральные числа). Составить программу умножения дроби...

Составить программу умножения дроби на дробь
даны две дроби A/B и C/D (A,B,C,D- натуральные числа) составить программу умножения дроби на дробь....

Процедуры. Составить программу умножения дроби на дробь
Даны две дроби A/B и C/D.Составить программу умножения дроби на дробь.Ответ должен быть...

Составить программу для умножения дроби на дробь с использованием пользовательских функций
Помогите пожалуйста!) Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить...

1
24.05.2019, 08:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2019, 08:59
Помогаю со студенческими работами здесь

Составить программу для умножения дроби на дробь (результат должен быть несократимой дробью)
Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить программу для умножения...

Составить подпрограмму для умножения дроби на дробь
Даны две дроби A/B и C/D (A,B,C,D - Натуральные числа). Составить программу для умножения дроби...

Составить программу деления дроби на дробь
Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу деления дроби на...

Важно. Составить программу деления дроби на дробь
Составить программу деления дроби на дробь.(см. вложение)

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru