Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Телефонный справочник: реализовать поиск по фамилии http://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"); http://www.cyberforum.ru/delphi-beginners/thread583196.html
Эмуляция нажатия клавиши в неактивном окне Delphi
Доброго времени суток.Я столкнулся с такой проблемой. Мне нужно написать программу для нажатия Hot Key в игре. Я нашел класс окна и handle окна, и Pid, но при отправке нажатия клавиши окно никак не...
Расчет вырожденной гипергеометрической функции по первым трём слагаемым ряда по степеням z Delphi
помогите пожалуйста написать програму задание: Напишите консольное приложение для вычисления вырожденной гипергеометрической функции с помощью конечной суммы ряда по степеням z первых трёх членов...
Delphi Какой процедурой возможно удалить комментарии из проекта Delphi? http://www.cyberforum.ru/delphi-beginners/thread583155.html
Я хотел бы перед окончательной компиляцией удалить все комментарии из проекта с целью уменьшения приложения и на всякий случай. Как это сделать быстро? Надо написать, приложение которое будет удалять...
Delphi Количество букв в рядке Нужно найти количество букв в рядке. 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... подробнее
Usser
0 / 0 / 0
Регистрация: 06.02.2017
23.05.2012, 02:51 0

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

23.05.2012, 02:51. Просмотров 1390. Ответов 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.


Вернуться к обсуждению:
Вывод результата программы в текстовый файл и в двоичный файл с именем, задаваемым пользователем
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 02:51

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru