Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Что-то не так с инициализацией! Чем max инициализируем? и как это сделать...? var a: array of integer; i,j,max,l,k:integer; begin randomize; for i:=1 to m do begin https://www.cyberforum.ru/ delphi-beginners/ thread1080588.html Delphi Эксель. Работать с открытой книгой
Как в делфи можно сообщить проекту имя открытого экселевского файла? например я открыл файл "Васютка". Как я могу передать имя этого файла и если реально путь до него)
Delphi Эксель. Запись данных в выделенную ячейку Необходимо передать данные из формы в ячейку, которую выделил пользователь, как это можно реализовать? Например: пользователь ставит курсор в ячейку B3 нажимает на форме, она заполняет B3, ставит F12 ---> F12. https://www.cyberforum.ru/ delphi-beginners/ thread1080550.html Delphi DBXJSON не выдает имена и значения, и, похоже, вообще ничего не парсит https://www.cyberforum.ru/ delphi-beginners/ thread1080541.html
Пытаюсь написать программу, в которой JSON используется везде. Про то, что есть стандартный парсер JSON DBXJSON узнал только сегодня, отсюда - http://www.webdelphi.ru/2011/10/rabota-s-json-v-delphi-2010-xe2/. Если с записью проблем нет, то парсинг полностью не работает - для проверки даже создал простенькое окошко с полем и кнопкой, которая делает так: procedure TForm1.ClickButton(Sender:...
Delphi Вывести строки, заканчивающиеся буквой
Помогите решить плс. Дан массив строк (пользователь должен его ввести в Memo1). Выведите в Memo2 все строки, заканчивающиеся на букву "я". 		Delphi Если идет изменение в Edit https://www.cyberforum.ru/ delphi-beginners/ thread1080437.html
Не могу понять, как сделать такое: If в Edit1 происходят какие то изменения, then begin ... else ... Я думаю выпоняли if then begin
Delphi Что такое IdHTTP и где взять этот компонент? Всем привет ! IdHTTP - у меня такого в delphi lite edition нет... где взять или как установить? https://www.cyberforum.ru/ delphi-beginners/ thread1080412.html Как вывести в ShowMessage название пункта меню в PopupMenu Delphi
Как вывести в ShowMessage название пункта меню в PopupMenu? ShowMessage(PopupMenu1.Items.Caption); //так неработает
Delphi Определить является ли массив геометрической прогрессией Помогите с заданием ,Дан одномерный массив А длиной М. Определить является ли он геометрической прогрессией , нужен именно код проверки массива является ли он геометрической прогрессией , ну тоесть основная часть программы , уже голову себе поломал .. https://www.cyberforum.ru/ delphi-beginners/ thread1080334.html Delphi Общий буфер обмена при использовании KVM Многие пишут о неудобстве использования KVM из=за отсутствия общего буфера обмена. Готового решения не нашел, решил реализовать сам. Идея сделать расшареный по сети текстовый файл, в который при нажатии ПКМ и выборе в меню "копировать" (либо Ctrl+C) будет вставляться содержимое буфера обмена. На другом компе так же, только при нажатии ПКМ (либо Ctrl+V) будет копироваться из этого текстовика инфа.... https://www.cyberforum.ru/ delphi-beginners/ thread1080292.html
Дан файл, содержащий текст на русском языке. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте Delphi
Помогите пожалуйста :cry: 		Delphi Создать проверку на ввод отрицательных чисел https://www.cyberforum.ru/ delphi-beginners/ thread1080259.html
В общем в матрице ввожу количество строк и столбцов, над сделать так, чтобы при вводе отрицательных чисел выдавало сообщение "отрицательное значение повторите ввод" и при этом чтобы матрица не высчитывала значенияprocedure TForm1.btn1Click(Sender: TObject); var i, j, n: integer; begin try n := StrToInt(edt1.Text); except on EConvertError do begin ...
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.01.2014, 19:19 0

Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию. КАК ? - Delphi - Ответ 5688885

24.01.2014, 19:19. Показов 7104. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено ARSLAN928 как решение

Решение

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

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=10;
      x:array[1..n] of real=(5.2,-4.7,1,9.22,-8.3,-9.52,0.75,8.9,-4.2,1.3);
var y:array[1..n] of real;
    r:real;
    i,k:integer;
begin
writeln('Massiv X:');
r:=0;
for i:=1 to n do
 begin
  write(x[i]:6:2);
  r:=r+x[i]
 end;
writeln;
writeln('r=',r:0:2);
k:=0;
for i:=1 to n do
if abs(x[i])<=r then
 begin
  inc(k);
  y[k]:=x[i];
 end;
if k=0 then writeln('Iskomyh elementov net')
else
 begin
  writeln('Massiv Y:');
  for i:=1 to k do
  write(y[i]:6:2)
 end;
readln
end.


Вернуться к обсуждению:
Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию. КАК ? Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.01.2014, 19:19
Готовые ответы и решения:

Задана целочисленная последовательность X=(x1,x2,….x10). Сформировать из неё одномерный массив Y, состоящий из нечётных
Задана целочисленная последовательность X=(x1,x2,….x10). Сформировать из неё одномерный массив Y,...

Задана целочисленная последовательность X=(x1, x2, …, x10). Сформировать из неё одномерный массив Y
решите пожалуйста все задачи

Сформировать из прсоедовательности одномерный массив, состоящий из элементов, удовлетворяющих условию
Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y,...

Сформировать одномерный массив Y, состоящий из элементов, удовлетворяющих условию |Xi|<|Z|, где Z=X(5) + 0.5
как написать программу?может кто помочь? Задана последовательность X = (x1, x2, …, x10). ...

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

Задана последовательность,Сформировать из неё одномерный массив по определенному правилу.(фото внутри)
Заранее спасибо.:drink:

Сформировать массив Y из элементов массива X, удовлетворяющих данному условию
X = {- 8, 24, 6, 3; 7; 9; -14, 3, 12, -5; 0; -15; -9} условие | Xk | ≤10 и кратные трем...

Дан одномерный массив. Определить номера элементов массива,удовлетворяющих условию A<Y(I)<B
Дан одномерный массив. Определить номера элементов массива,удовлетворяющих условию A&lt;Y(I)&lt;B....

Одномерный массив. Считать из файла, найти количество элементов, удовлетворяющих условию
Одномерный массив Х(15) считать из файла *.txt (файл создать самим). Найти: Количество элементов,...

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