Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Ошибка: Http/1.1 400 bad request https://www.cyberforum.ru/ delphi-beginners/ thread1471999.html
Есть список почт и паролей,нужно проверить,какие еще не заблокированы,все сделал,но после 427 проверки выдает ошибку http/1.1 400 bad request Что это? Добавлено через 7 часов 14 минут Проблема решена.Кое как нашел на просторах интернета. Если у кого-то также,то я просто забыл очистить переменные которые передавали параметры(stringlist в моем случае) auth.Clear;
Delphi Скопировать часть текста из CMD в Memo
Здравствуйте. есть процедура, которая выполняет команду ping. нужно чтобы после выполнения команды IP-адрес в квадратных скобках скопировался в поле мемо или текстовой файл. помогите реализовать если это возможно
Delphi Вывод текста из файла в StringGrid Здравствуйте! Есть программа для заполнения StringGrid из файла. Она заполняет два столбика StringGrid подстроками (количество столбиков указано цифрой 2), в файле подстроки в строках разделены пробелами. Как изменить программу так, чтобы она заполняла j столбиков? То есть чтоб j была переменная и цикл вывода в ячейки от нее зависел. Помогите, пожалуйста! :gsad: procedure... https://www.cyberforum.ru/ delphi-beginners/ thread1471930.html Delphi Как создать инсталлятор приложения? Создал программу связанная с БД Accees, нужно создать установочный инсолятор. Как это делается? https://www.cyberforum.ru/ delphi-beginners/ thread1471920.html
Поворот не туда.Аффинные преобразования Delphi
Доброго времени суток! Кажется, аффинные преобразования тут не особо жалуют, но все же задам свой вопрос. Требуется повернуть картинку. Не спрашивайте почему не использовал TPoint:pardon:. var PointImage1X , PointImage1Y, PointImageEndX , PointImageEndY : array of integer; i , x , y , angle: integer; ColorImage : array of TColor; begin i:=0; //угол поворота
Delphi Как записать F(X) https://www.cyberforum.ru/ delphi-beginners/ thread1471915.html
Здравствуйте! У меня задание такое f(x)=\frac{1}{{x}^{2}}(2x-\sqrt{x}+3) при x=2\frac{1}{4}. Как все теперь записать на Delphi?
Delphi Вывести на экран те парные числа одномерного массива целых чисел, которые повторялись при вводе После ввода с клавиатуры произвольного одномерного массива целых чисел ( в пределах знакового целого типа) вывести на экран те парные числа, повторялись при вводе, и количество этих повторений. Введение каждого числа завершается нажатием <Enter> , введение прекращается введением числа 0. Результаты оформить в виде таблицы. https://www.cyberforum.ru/ delphi-beginners/ thread1471906.html Выдать на экран список фамилий и рядом с ними возраста (год рождения), отсортированный по возрасту лиц Delphi
После ввода с клавиатуры строками некоторых фамилий и рядом с ними возраста (год рождения) выдать на экран этот список , отсортированный по возрасту лиц .
Delphi Выскакивает ошибка доступа после прохождения setlength Добрый вечер. Выскакивает ошибка доступа после прохождения setlength(mas,i+1). TAer - класс. C чем может быть связана проблема? https://www.cyberforum.ru/ delphi-beginners/ thread1471868.html Delphi Парсинг. Теги находятся на разных строках Tmemo Приветствую. Пишу парсер. Такая проблема нужно спарсить между тегом <div class="col2"> </div>. Из мемо. function ParseStr1(str, tag1, tag2: string): string; var st,fin:Integer; begin repeat st :=Pos(tag1, str); if st > 0 then begin https://www.cyberforum.ru/ delphi-beginners/ thread1471858.html
Delphi Запуск приложения в приложении (скрыть первое, потом показать)
Нужно, чтобы при запуске приложения через мое приложение - мое скрылось, но после завершения другого приложения моё появилось. Думаю нормально объяснил. WinExec('Тест.exe', SW_SHOW);
Delphi Как убрать выделение ячейки StringGrid-а при нажатии на нее https://www.cyberforum.ru/ delphi-beginners/ thread1471759.html
Всем привет у меня есть стрингрид в каждой ячейки прорисованы картинки, и когда я нажимаю на картинку у меня выделяется ячейка и это как то не особо смотрится. кто знает как убрать?
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
08.06.2015, 10:49 0

Линейные программы на Delphi - Delphi - Ответ 7733406

08.06.2015, 10:49. Показов 1391. Ответов 16
Метки (Все метки)

Ответ

Тогда вот так. На форму надо положить:
Delphi
1
2
    Button1: TButton;
    Edit1: TEdit;
Для кнопки Button1 создать обработчик OnClick.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
  Y, D1, D2, D3 : Integer;
begin
  Y := StrToInt(Edit1.Text);
  if (Y < 100) or (Y > 999) then
  begin
    MessageBox(Handle, 'Неверный ввод. Число должно быть целым, трёхзначным, положительным. Повторите.',
      'Ошибка ввода!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Определяем разряды числа Y.
  D3 := Y mod 10;
  Y := Y div 10;
  D2 := Y mod 10;
  Y := Y div 10;
  D1 := Y mod 10;
  //Получаем число X.
  ShowMessage('X = ' + IntToStr(D2 * 100 + D3 * 10 + D1));
end;


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

Delphi 7 Линейные программы
1. Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу...

Delphi 7 Линейные программы.Лабораторная работа №2 Ветвления
Помогите кто чем может:sorry: Задание 1. Туристы вышли из леса на шоссе неподалеку от...

Линейные уравнения в delphi
Помогите составить программу которая могла бы решать уравнения вида - ax+by=d, где нужно найти x и...

Линейные программы.
Помогите с написанием кода : Написать программу для расчета по двум формулам:...

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

Линейные программы
4. Система из двух параллельных сопротивлений R1 и R2 соединена последовательно с сопротивлением...

Delphi линейные списки и записи,не могу разобраться
Создать запись &quot;Станция&quot; (хранит номер или название). Создать запись &quot;Поезд&quot; (хранит номер поезда,...

Линейные списки(перевести вроде с Си++ на Delphi [console application])
Здравствуйте, переведите, пожалуйста, программу с вроде Си ++ на Delphi; Си еще не проходили(((.

линейные программы
Найти плоскость кольца с внутренным и наружным радиусами используя формулу S= (R2-R1).

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