Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Телефонный справочник: реализовать поиск по фамилии https://www.cyberforum.ru/ delphi-beginners/ thread583251.html
Нужно что бы програма искала по фамилии, после нажатия кнопки *найти* и сортировала по длине фамилии. Также, чтобы можна было просматривать записи при помощи кнопок *предыдущий* и *следующий*. помогите, очень прошу
Delphi Перевести код С++ на делфи
#include <fstream> using namespace std; ifstream in; ofstream out; int a, b,c,d; int main() { in.open("1.txt");
Delphi Эмуляция нажатия клавиши в неактивном окне https://www.cyberforum.ru/ delphi-beginners/ thread583191.html
Доброго времени суток.Я столкнулся с такой проблемой. Мне нужно написать программу для нажатия Hot Key в игре. Я нашел класс окна и handle окна, и Pid, но при отправке нажатия клавиши окно никак не реагирует. За то при активации чата в окне оно реагирует на ввод и вводит символы в строку чата, также при использовании windows.setfocus().Пробовал sendmessage(), postmessage() для них пробовал...
Delphi Расчет вырожденной гипергеометрической функции по первым трём слагаемым ряда по степеням z https://www.cyberforum.ru/ delphi-beginners/ thread583177.html
помогите пожалуйста написать програму задание: Напишите консольное приложение для вычисления вырожденной гипергеометрической функции с помощью конечной суммы ряда по степеням z первых трёх членов ряда Ф(a,b,z)=1+(a/b)z + (a(a+1))/(b(b+1))*((z^2)/2! + (a(a+1)(a+2))/ (b(b+1)(b+2))*(z^3)/3 Для расчётов следует использовать...
Какой процедурой возможно удалить комментарии из проекта Delphi? Delphi
Я хотел бы перед окончательной компиляцией удалить все комментарии из проекта с целью уменьшения приложения и на всякий случай. Как это сделать быстро? Надо написать, приложение которое будет удалять во всем проекте все комменты. Скорее всего эта задача вставала перед большинством и посему прошу Вас выложить сие чудо-код сюда.
Delphi Количество букв в рядке https://www.cyberforum.ru/ delphi-beginners/ thread583145.html
Нужно найти количество букв в рядке. procedure TForm1.Button4Click(Sender: TObject); begin k:=1; s:=trim(s); for i:=0 to Memo1.Lines.Count do begin s:=memo1.Lines.Strings; for j:=0 to Length(memo1.Lines) do
Delphi Поиск в глубину на графе, исправить ошибку пишу прогу поиск в глубину на графе. где Assign (Input,'Input.txt'); E2029 ',' or ':' expected but '(' found код program Project1; {$APPTYPE CONSOLE} uses SysUtils; const MaxN=10; https://www.cyberforum.ru/ delphi-beginners/ thread583114.html Печальная ошибка // Access violation at address Delphi
Код программы: unit yandex; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActiveX, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin, Vcl.OleCtrls, SHDocVw, Web.HTTPApp, RegExpr, mshtml;
Delphi Калькулятор Добрый вечер. Помогите найти ошибку. Написал программу калькулятор, но при компиляции дефли выдаёт ошибку на строке 156(соответственно и на 157 такая же будет). unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; https://www.cyberforum.ru/ delphi-beginners/ thread583096.html Delphi Записать в файл запись типа record https://www.cyberforum.ru/ delphi-beginners/ thread583089.html
Записать в файл запись типа record, как это произвести в интернете не нашел объяснений нормальных, помогите
Delphi написать программу, которая бы возводила в квадрат комплексное число типа Z=A+jB.
Уважаемые программисты, срочно нужна ваша помощь и как можно быстрее. Нужно на Делфи написать программу, которая бы возводила в квадрат комплексное число типа Z=A+jB. Желательно вместе с интерфейсом.... спасибо заранее...
Delphi Нужно сохранять величину, как? Нужно нарисовать столбчатые диаграммы, где n-количество прямоугольников. !проблема! Когда на форме пытаюсь нарисовать еще одну диаграмму высОты столбиков уже нарисованной диаграммы меняются, потому что они я их задаю random.Я понимаю, что нужно сохранять значения этих высот, но у меня не получается( .. procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;... https://www.cyberforum.ru/ delphi-beginners/ thread583066.html
usser
23.05.2012, 02:51 0

Вывод результата программы в текстовый файл и в двоичный файл с именем, задаваемым пользователем - Delphi - Ответ 3068499

23.05.2012, 02:51. Показов 2143. Ответов 4
Метки (Все метки)

Ответ

Pascal
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Program Evaluation_of_the_integral;
 
uses
  Crt;
 
type
  us_functions = function(argument: Real): Real;
 
function computable_func(argument: Real): Real; far;
//Описание интегрируемой функции
begin
  Func := 2 * sin(argument * argument);
end;
 
procedure rectangle_int(us_function: us_functions; a, b: real; n: byte; var area_rect: Real);
//Описание метода интегрирования прямоугольниками
var i: byte;
    step, middle_arg: Real;
begin
  area_rect := 0;
  step := b / n - a / n;
  middle_arg := a + step / 2;
  for i := 1 to n do
    begin
      area_rect := area_rect + us_function(middle) * step;
      middle_arg := middle_arg + step;
    end;
end;
 
procedure trapezoid_int(us_function: us_functions; a, b: real; n: byte; var area_rect: real);
//Описание метода интегрирования трапециями
var i: byte;
    step: real;
begin
  area_rect := 0;
  step := b / n - a / n;
  b := a + step;
  for i:= 1 to n do
    begin
      area_rect := area_rect + us_function(a) * step / 2 + us_function(b) * step / 2;
      a:= a + step;
      b:= b + step; 
    end;
end;
 
var
  n: byte;
  a, b, integral: real;
begin
  ClrScr;
//Ввод верхней, нижней границы интегрирования и количества шагов
  Write('Enter a, b and n [> '); Readln(a, b, n);
  Writeln;
 
//Интегрирование методом прямоугольноков
  rectangl_int(computable_func, a, b, n, integral);
  Writeln('Result of the integration method of rectangles: ', integral: 10:5);
  Writeln;
 
//Интегрирование методом трапеций
  trapezoid_int(computable_func, a, b, n, integral);
  Writeln('Result of the integration method of trapezoidal: ', integral: 10:5);
  Writeln;
 
  Readln;
end.


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

Нужно сделать вывод результата программы в текстовый файл
Вообщем есть программа уже составленная, надо сделать вывод результата программы в файл, т.е. я...

Текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый
Всем привет. Есть такая задачка: &quot;текстовый файл перевести в двоичный, а потом полученный двоичный...

Вывод результата в текстовый файл
Всем добрый день. Подскажите пожалуйста. Вот у меня есть программка и мне нужно, чтобы после того...

Вывод результата в текстовый файл
Всем привет. Народ, мне нужно выводить результат на экран и в файл, но разумеется не всё, а при...

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

Сохранение результата программы в текстовый файл
Возможно ли такое, чтобы все, что появилось после Ctrl+F9 сохранялось куда-нибудь в какой-нибудь...

Вывод результата в текстовый файл в нужной кодировке
В общем есть программа для табулирования функции (она будет ниже).Вопросов по самой программе нет,...

Создание файла с задаваемым пользователем именем
есть обычная функция создания файла, без ввода имени с клавы, например такая mov ah,3Ch mov...

Сумма различных последовательностей и вывод результата в текстовый файл
Доброго всем вечера! :) Возник один небольшой вопросик, буду очень благодарен тому, кто мне...

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