С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Сечение в делфи Добрый день. Подскажите, у меня в программе реализован алгоритм внутреннего сечения фигуры, как сделать внешнее сечение, переделав код процедуры procedure CScode; // Îïðåäåëÿåò êîä òî÷êè xn, yn var ii:Integer; begin ii:=0; if (CSxn < Wxlef) then ii:=ii+1 else if (CSxn > Wxrig) then ii:=ii+2; if (CSyn < Wybot) then ii:=ii+4 else if (CSyn > Wytop) then ii:=ii+8; ... https://www.cyberforum.ru/ delphi-beginners/ thread1897376.html Как вывести вычисления в MessageDlg? Delphi
Форумчане подскажите как вывести вычисления в Messagedlg? У меня вычисления выводятся в компонент Lable и нужно что бы еще выводились в окно Messagedlg. Подскажите как реализовать?
Delphi Нахождение собственных чисел и собственных векторов степенным методом https://www.cyberforum.ru/ delphi-beginners/ thread1897225.html
Здравствуйте. Не могу понять что не так, вроде бы по теории все как и должно быть, но результаты не соответствуют. Возможно кто-то сталкивался со степенным методом и сможет дать дельный совет. Прикрепляю текст программы и что должно как бы получится: собственные числа 13;7;5 и 3 а вектора (1,1,1,1);(-1,-1,1,1);(-1,1,-1,1);(1,-1,-1,1) program step_met; const A: array of extended =...
Delphi Как открыть Word в режиме редактирования? https://www.cyberforum.ru/ delphi-beginners/ thread1897215.html
Собственно вопрос уже прозвучал... Я открываю ворд документ вот так: ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.ExeName)+'\ворд.doc'), nil, nil, SW_SHOW); Так открывается-но в режиме просмотра/чтения, а нужно, режим редактирования (вид/изменить документ) укажите направление или если не жалко поделитесь кодом...буду рада помощи...
Вывод данных из нетипизированного файла в массив записей Delphi
Не подскажете как вывести данные нетипизированного файла в динамический массив записей?
Delphi Управление курсором в Oracle VM VirtualBox https://www.cyberforum.ru/ delphi-beginners/ thread1897195.html
Всем доброго времени суток. Сложилась такая ситуация. Программа уже почти готова. На виртуальной машине запущена другая программа которая показывает мне капчу. Моя прога делает скрин и распознаёт. Теперь осталось двинуть мышку на окошко ввода, тапнуть и ввести код. На основной машине всё работает, а на виртуалке нет. Мышка не как не хочет перемещаться по виртуалке. Может как то по другому...
Delphi Как распознать закрытие формы? https://www.cyberforum.ru/ delphi-beginners/ thread1897191.html
Имеется форма (не главная), на которой есть кнопка. по нажатию кнопки глобальной переменной присваивается true и форма закрывается procedure TForm2.bb1Click(Sender: TObject); begin //if ListBox1.Items.Count < 3 then Exit; //form1.sg(ListBox1); g := true; Form2.Close; end; Как уловить например, если форму закрыл пользователь через крестик окна или через alt+F4, то в этом случае нужно
Иконка в StringGrid Delphi
if (acol=0) and (arow<>0)then begin with StringGrid1, StringGrid1.Canvas do begin ImageList3.Draw(TStringGrid(Sender).Canvas, Rect.Left, Rect.Top, 0); StringGrid1.Canvas.TextOut(Rect.Left+16,Rect.top,StringGrid1.Cells); end; end; Иконка ставится нормально. но как правильно сместить текст? с этим вариантом какая то бурда выходит
Delphi Вставка процессов в ListBox https://www.cyberforum.ru/ delphi-beginners/ thread1897065.html
Как вывести все процессы в ListBox? Нужно вывести их с такими свойствами: имя и pid процесса.
Delphi Как создать динамический массив записей? Объясните, пожалуйста , как создать динамический массив записей. Спасибо заранее https://www.cyberforum.ru/ delphi-beginners/ thread1897010.html
Не получается программма Delphi
Доброго времени суток, товарищи! Очень сильно нуждаюсь в вашей помощи и поддержке. Задача звучит так: Известны и задаются изначально T, tay и e. Необходимо найти множество значений Е на интервале времени t. t изменяется в диапазоне от 0 до Т(период) Е – угол Исходное уравнение:
Delphi Перемешать в определенном порядке Задание простое, нужно перемешать слово в определенном порядке (в каком не важно), но только что бы каждый раз одинаково. Например "ПРИВЕТ" ="РВПИТЕ" И каждый раз одинаково (не в хаотическом порядке) Как это реализовать ? P.S. слово "ПРИВЕТ" может быть любого размера https://www.cyberforum.ru/ delphi-beginners/ thread1896972.html
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
10.01.2017, 14:54 0

Не правильная блок-схема что не так? - Delphi - Ответ 9989056

10.01.2017, 14:54. Показов 718. Ответов 16
Метки (Все метки)

Ответ

Думаю нужно так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array[1..15] of real;
    p:real;
    i,k:integer;
begin
p:=1;
k:=0;
for i:=1 to 15 do
 begin
  a[i]:=StrToFloat(StringGrid1.Cells[i-1,0]);
  if a[i]<0 then p:=p*a[i]
  else if a[i]>0 then k:=k+1;
 end;
Edit1.Text:=FloatToStr(p);
Edit2.Text:=IntTostr(k);
end;


Вернуться к обсуждению:
Не правильная блок-схема что не так? Delphi
Миниатюры
Не правильная блок-схема что не так?  
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2017, 14:54
Готовые ответы и решения:

Блок-схема. Что в ней не так?
ЧТо в ней не так?

Правильная ли блок схема?
Для участка кода if ((i&lt;=j) &amp;&amp; (i&lt;=k)) cout &lt;&lt;&quot;\nmin=(a2)=&quot; &lt;&lt; i&lt;&lt;&quot;\n&quot;; else if ((j&lt;=i)...

Правильная ли блок схема?
Доброе время суток! Пишу пояснительную к курсовому проекту, плохо дружу с блок-схемами, а требуется...

Правильная ли у меня блок-схема
Условие:дано целое число N&gt;1. Вывести наибольшее целое к, при котором выполняется неравенство 3^к&lt;N...

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

Правильная ли блок-схема для функции программы ?
Правильная ли блок-схема для функция void *insert ? Чувствую, что она не правильная... ...

Многопоточность, не правильная работа с мютекосом. Что не так?
Добрый. Хочу чтобы разрешение (permission) устанавливалось только один раз каким-либо потоком, а...

Правильно ли нарисована блок-схема и можно ли так
Правильно ли нарисована блок-схема и можно ли так А вот программа по которой рисовала:...

Если числа не равны, то заменить каждое из них одним и так же равному большему (блок-схема)
Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему....

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