Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Найти сумму и число определенных элементов заданного массива Найти сумму и число тех элементов заданного массива X1, X2, …, Xn, каждый из которых, во- первых, больше элемента с тем же номером из другого заданного массива Y1, Y2, …, Yn, а, во- вторых, положителен. Код написать на delphi. https://www.cyberforum.ru/ delphi-beginners/ thread1530988.html Delphi Найти сумму целых положительных чисел больших 20, меньших 100 и заканчивающихся на 2,4 или 8
найти сумму целых положительных чисел больших 20 меньших 100 и заканчивающихся на 2,4 или 8
Delphi Проверка StringGrid на правильность ввода https://www.cyberforum.ru/ delphi-beginners/ thread1530875.html
Здравствуйте, СРОЧНО нужна помощь. Нужна проверка на любые символы кроме цифр в таблице стрингрид. (т.е. при нажатии на кнопку проверки должно выскакивать сообщение типо "все правильно" (если в таблице введены только цифры) или "ошибка ввода" (если там присутствуют например буквы или другие символы (/,*,%,@ и т.д.)" ..заранее спасибо
Delphi Ошибка на вывод результата У меня в одном задание - два похожих. Я их сделала но выводит ошибку. помогите, с чем это может быть связано?! 1. Сформировать одномерный массив, состоящий из произведений тех элементов, значение которых входит в интервал и стоящих в нечетных столбцах матрицы X (n x m). var Form1: TForm1; mas,mas1:array of array of Integer; ma:array of integer; implementation https://www.cyberforum.ru/ delphi-beginners/ thread1530848.html
Delphi Задать размер буфера com-порта
Уважаемые знатоки Delphi. Такой вопрос. Снимаю сигнал с потенциометра, оцифровываю АЦП в микроконтроллере и передаю через COM порт в компьютер. Т.е. в компьютер, через com порт периодично отправляется один байт со значением с датчика. Пытаюсь написать программу, считывающую это значение в реальном времени. Проблема в том, что буфер com порта быстро наполняется данными, а при считывании...
Delphi Перевод чисел на римские цифры https://www.cyberforum.ru/ delphi-beginners/ thread1530811.html
Помогите пожалуйста :wall: Разработать программу, которая заданное целое число от 1 до 1999 выводит на экран римскими цифрами.
Delphi Матрица размером NxM https://www.cyberforum.ru/ delphi-beginners/ thread1530807.html
Ребят, очень нужно :) : Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по убыванию, и значение 0 в противном случае.
Delphi Задача на определение порядкового номера
Условие: Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Если кому надо вот код этой задачи на Pascal: var k,min,mini,kl:integer; begin writeln('введите првое число последовательности'); readln(k); min:=k; mini:=1; kl:=1;
Delphi Организовать ввод с клавиатуры неограниченного количества вещественных чисел Организовать ввод с клавиатуры неограниченного количества вещественных чисел. Завершить ввод, если сумма введенных чисел станет больше 35,96. Вывести на экран все введенные числа, их количество и среднее арифметическое. Чем быстрее тем лучше. Заранее очень благодарен! https://www.cyberforum.ru/ delphi-beginners/ thread1530794.html Delphi Перевод кода c++ на delphi https://www.cyberforum.ru/ delphi-beginners/ thread1530719.html
Здравствуйте, есть очень простой код на c++. Он считает количество совпадений каждого символа в каждой строке. #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "rus"); char stroka; cout<<"Введите строку:\n";
Заполнение StringGrid словами Delphi
Как заполнить таблицу StringGrid рандомными словами ?
Delphi Замена букв с русского на латинский Дана строка символов содержащая некоторый текст на русском языке. Заменить буквы русского алфавита на соответствующие им буквы латинского алфавита. https://www.cyberforum.ru/ delphi-beginners/ thread1530656.html
692 / 509 / 238
Регистрация: 02.10.2012
Сообщений: 1,741
15.09.2015, 11:21 0

Найти величину наибольшего среди отрицательных чисел заданной последовательности (Pascal -> Delphi) - Delphi - Ответ 8075189

15.09.2015, 11:21. Показов 974. Ответов 7
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{$APPTYPE CONSOLE }
Var
  x,max:real;
  n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
  begin
  write('Введите число ',i,': ');
  readln(x);
  if x<0 then
     begin
     if max=0 then max:=x;                     // если это первое отр.число
     if x>max then max:=x
     end
  end;
writeln('Наибольшее среди отрицательных: ',max)
end.


Вернуться к обсуждению:
Найти величину наибольшего среди отрицательных чисел заданной последовательности (Pascal -> Delphi) Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2015, 11:21
Готовые ответы и решения:

Найти величину наибольшего среди отрицательных чисел последовательности
Даны целое n&gt;0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно...

Найти величину наибольшего среди отрицательных чисел последовательности
помогите плз!!!) Даны целое n&gt;0 и последовательность из n вещественных чисел, среди которых есть...

Найти величину наибольшего среди отрицательных чисел последовательности
Исправить все ошибки и сделать программу работоспособной Даны целоеn&gt;0 и последовательность из...

Найти величину наибольшего среди отрицательных чисел последовательности
помогите плиз . Даны целое n&gt;0 и последовательность из n вещественных чисел, среди которых есть...

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

Найти величину наибольшего среди отрицательных чисел последовательности
Буду благодарен!!!С!!!

Найти величину наибольшего среди отрицательных чисел последовательности
Даны целое N&gt;0 и последовательность из N вещественных чисел, среди которых есть хотя бы одно...

Найти величину наибольшего среди отрицательных чисел последовательности
Что подразумевается под величиной? ! Даны целое и последовательность из вещественных...

Найти величину наибольшего среди отрицательных чисел последовательности
дано целое N&gt;0 и последовательность из N вещественных чисел, среди которых есть хотя бы одно ...

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