Линейные алгоритмы. - Delphi - Ответ 1300751

@Sergiuz · 19.01.2011, 16:53

jack the ripper,
Ну коль ты так просишь подскажу

Сообщение от jack the ripper

1. Составьте программу для вычисления напряжения на каждом из последовательно соединенных участков электрической цепи сопротивлением R1, R2, R3 Ом, если сила тока при напряжении U В составляет 1 А.

1. Открываем делфи и создаем прокт File-New-Vcl Application
2. Из закладки компонентов Standart красиво ложим Edit - 4 шт (для 3х сопротивлений и одного напряжения это твои входные параметры) Memo- 1 шт (для вывода результата) Label - 6 шт (кладем возле каждого лейбела и мемо и красиво на свой вкус даем им названия) а также нам понадобиться кнопочка Button - 1 шт (назовем ее "Результат")
3. Все красиво расположили и готовы к нашему кодингу. Выделяем на форме нашу кнопку в Object inspector идем в закладку Events ищем там событие onClick дважды клацаем нас перекидывает в редактор кода в созданную процедуру
4. Тут все элементарно просто по формуле физики вычисляем напряжение и код будет приблизительно таким

Delphi

procedure Form1.ButtonClick ();
var u,r1,r2,r3: integer; //входные данные
ur1,ur2,ur3: extended; //результаты
begin
r1:=StrToInt(Edit1.text);
r2:=StrToInt(Edit2.text);
r3:=StrToInt(Edit3.text);
u:=StrToInt(Edit4.text);
//делаем проверку
if (u<0) or (r1<0) or (r2<0) or (r3<0) then showmessage ('введены некоректные данные')
else
begin
   {тут вставляем формулы и вычисляем для цепи 0-r1, r1-r2,r2-r3-0}
end;
end;

2. Четырем классам поручено убрать поле площадью F га. Известно количество учеников в каждом классе. Сколько га надо убрать каждому классу?

начало пропускаем и так понятно делаем новый проект кидаем нужные компоненты
а алгорим будет таким
1. Сначала суммируем всех учеников (s:=k1+k2+k3+k4)
2. Делим к-во га на всех учасников (n:=F/s)
3. для каждого класа узнаем к-во га (Fk1:=n*k1, Fk2:=n*k2 и т.д.)

3. На производство 1 кв. метра ситца затрачивают 5 минут. Определить количество ткани, выпущенное за N часов при ширине полотна L.

Начало такое же
алгоритм будет таков
1. переводим часы в минуты (M:=N*60)
2. узнаем сколько выпусти кв.м. за это время (k:=M/5)
3. узнаем длину нашей ткани (x:=k/L)

Если что то с алгоритмом не понятно спрашивай раскажу

Вернуться к обсуждению:
Линейные алгоритмы. Delphi

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

Другие темы раздела
Delphi очердь стеки деревья день добрый всем!помогите,кто чем может в решении 3х каких-либо задач из этого списка :wall: делфи с консольным приложением :cry: 1) Очереди на базе однонаправленных списков. Для работы с очередью напишите пpоцедуpу ее фоpмиpования, причем учтите, что очередь может содержать не более K звеньев (переполнение очереди) и не может быть пустой (опустошение очереди). Пусть уже... https://www.cyberforum.ru/ delphi-beginners/ thread231210.html	Способы чтения данных из файла и вывод. Delphi Можете назвать способы чтения данных(текста) из фалйа что бы их вывести например в memo?
Delphi про указатели https://www.cyberforum.ru/ delphi-beginners/ thread231169.html создал процедуру pars(p:pointer); передаю ей параметр pars(@Response.DataString); Response.DataString - это html код в самой процедуре pars написал так list:=TstringList.Create; list.Text:=^p; кстати так пробовал тоже string(^p) задумано это для того что бы не передавать string что бы сократить объем выделяемой памяти, т.к. в Response.DataString может содержаться несколько тысяч строк.	Delphi Справка по TChart Доброго времени суток, форумчане. Где можно найти подробное описание компонента TChart на русском? https://www.cyberforum.ru/ delphi-beginners/ thread231060.html
алгоритмы суммирования данных Delphi Дано вещественное число r и одномерный массив размера n.Найти два элемента массива сумма которых наименее близка к данному числу	Delphi delphi срочно! на экзамене! Дано вещественное число r и одномерный массив размера n.Найти два элемента массива сумма которых наименее близка к данному числу https://www.cyberforum.ru/ delphi-beginners/ thread231040.html
Delphi Как удалить используя рег. выражения символы пробелов и кавычек в тексте? https://www.cyberforum.ru/ delphi-beginners/ thread231019.html допустим дан текст: "The some&nsbp; нужно только текст оставить	Найти сумму чисел последовательности Delphi я только начала заниматься программированием, так что тапками не кидаться) ммм... я туплю. как сделать так, чтобы программа показывала сумму чисел последовательности (только натуральных чисел, заканчивающиеся нулями, значения с клавиатуры)? у меня есть набросок, но, конечно, неправильный ^ ^'' помощь нужна срочно! var x,s,y,k,a,i,b:integer; begin memo3.clear; ...
Delphi база данных!!! Пожалуйста кто может посмотрите исходник!!:cry:!в общем на первый взгляд работает нормально, создается файл, затем добавляются в таблицу, сохраняются..но потом когда открывается, неправильно выводится цена..да и потом когда запрашиваешь какие нибудь пункты в GroupBox, что-то правильно выводит, что-то нет...:negative: https://www.cyberforum.ru/ delphi-beginners/ thread230996.html	Delphi Лаба Помогите с лабой С клавиатуры вводятся два числа а и b. Составить алгоритм сравнения этих чисел. В Delphi https://www.cyberforum.ru/ delphi-beginners/ thread230990.html
Delphi Функция. Все стало так туманно... Всем привет. Надо составить программу для вычисления в произвольной точке x значений функций , определяемых следующим графиком.(ниже) a=5.05 b=3.3 c=5.73 Программу надо сделать в виде трёх уровневого уравнения	Delphi Обработка backspace Возникла проблема при обработке кнопки backspace на экранной клавиатуре. Не знаю, может пора все мои страдания по экранной клавиатуре объеденить в одну тему... Вот так вот обрабатываются ее события: procedure TStartForm.backspaceMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PressKey((Sender as TsSpeedButton), (Sender as TsSpeedButton).Tag);... https://www.cyberforum.ru/ delphi-beginners/ thread230986.html

	19.01.2011, 16:53